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PREFACE 



This manual is intended for use by customer service engineers. 
It contains information pertaining to the High Performance 
Magnetic Tape System 125 ips (HPMTS 125). This manual consists 
of a test program description and program listing. 



Revision 01 reflects changes to the program listing, 
consists of program patch information. 



Revision 02 



For information on the contents of all Perkin-Elmer 32-bit 
manuals, see the Perkin-Elmer 32-Bit Systems User Documentation 
Summary . 
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HIGH PERFORMANCE 

MAGNETIC TAPE SYSTEM 125 IPS (HPMTS 125) 

DIAGNOSTIC 



1 GENERAL 



This program is designed to verify the functions of the magnetic 
tape drive and its interface. In the event of a detected 
failure, the program diagnoses problems with the system to 
identify the most likely failing element. The program prints a 
message indicating which major replaceable unit contains the 
failing element. English language messages, with additional 
clarifying information as necessary, are output to the console to 
aid the user in test operation and to identify failure modes and 
the suspected failing element. 

2 SYSTEM REQUIREMENTS 

This program is designed for stand-alone use on any Perkin-Elmer 
3200 Series processor. 

3 CONFIGURATION OPTIONS/REQUIREMENTS 

This program requires the following system configuration to 
operate: 



Any Perkin-Elmer 3200 Series processor 

A Perkin-Elmer 3200 Series processor selector channel ( C EICH) 
or equivalent 

At least 48kb of memory 

A console device 

6250 bpi magnetic tape controller (Part Number 35-820) 

4 LOADING PROCEDURES 

The High Performance Magnetic Tape System 125 IPS (HPMTS 125) 
Diagnostic is only available on multimedia. 
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4.1 Loading from a Multimedia Magnetic Tape 

Manually key the X"50* sequence shown below into memory: 



LOCATION 


CONTFNTS 


0030 


88 00 


0032 


2000 


0034 


0000 


0036 


0030 


0038 


8800 


003A 


2000 


003C 


0000 


003E 


0038 


0050 


D500 


0052 


00CF 


0054 


4300 


0056 


0080 


0078 


85A1 


0078 


8540 


007A 


0000 


007C 


0000 


r 007C 


00F0 



ITPSW 



DCX 


8800,2000 


DC 


A(ITPSW) 


DCX 


8800,2000 


DC 


A(MMPSW) 


AL 


X'CF' 


B 


X'80* 



MMPSW 



LOAD 



Magnetic tape device address output 

command 
6250 magnetic tape device address/output 

command 

If no selector channel (SELCH) 
SELCH address 



4.2 Loading from a Multimedia Disk 

The multimedia disk pack is built in such a way as to be boot 
loadable using the loader storage unit (LSU). 

1. Enable the IPL and depress initialize. Observe that the 
following is output to the system console: 



3200 LSU LOADER R00-00 

DEVS 

MGS5 

MGC5 

DS5P 

DS5F 

DS67 

D2 56 

FLPY 

OTHR 

DEVICE= 
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If the system has default addresses, enter DS5F for the 10 v b 
removable; otherwise, enter OTHR and the applicable 
addresses. For example: 



DEVICE = OTHR 
DEV# = C6 
CODE = 33 
CTLF = B6 
SLCH = FO 



The following should be output: 

VOL = MMD,FII,F= 
Enter: 

OS32MDL2.111 
The following should be output: 

MMDL-INPUT SEQUENCE NUMBER 



Memory locations X'7A* through X'7F* have been set up by the 

LSU loader with default values for the 10Mb removable 

platter. If necessary, modify these locations and re-execute 
from address X'fiOOCr. 

Type the sequence number on the system console followed by a 
carriage return (CR). 

Select address 7' 50" and execute. The multimedia diagnostic 
(MMD) loader is loaded into memory. The magnetic tape 
automatically rewinds and the loader starts. 

The MMD loader outputs an identifying message to the system 
console and requests sequence number input. Type this 
program's library sequence number on the system console, 
followed by a CR. Refer to document 06-176A15 for more 
details. 



06-263M95A15 R00 



4.3 Loading from a Multimedia Diskette 

1. Manually key the 5T • 50 • sequence shown below into memory; 



LOCATION 


CONTENTS 


0030 


8800 


0032 


2000 


0034 


0000 


0036 


0030 


0038 


8800 


003A 


2000 


003C 


0000 


003E 


0038 


0050 


D500 


0052 


00CF 


0054 


4300 


0056 


0080 



IIPSW 



MMPSW 



DCX 


8800,2000 


DC 


A(IIPSW) 


DCX 


8800,2000 


DC 


A(MMPSW) 


AL 


X'CF' 


B 


x'so' 



LOAD 



0078 C186 Floppy device address/output 

command 

007A 0000 
007C 0000 



2. Put the diskette containing this program into the input 
floppy drive. 

3. Select address X"50' and execute. The floppy media loader is 
loaded into memory. 

4. The floppy loader outputs an identifying message to the 
system console and requests sequence number input. Type the 
sequence number on the system console, followed by a CR. 
Refer to document 06-225A15 for more details. 



5 SUMMARY OF FEATUEES 

The High Performance Magnetic Tape System 125 IPS (HPMTS 125) 
Diagnostic subtests are described in the following sections. 
Option definitions are described in detail in Section 6. 



5.1 Test - Multiplexor (MUX) and System Status 

Basic functions of the high performance magnetic tape controller 
are tested in relation to the MUX bus interface. The DRIVE 
option is checked for agreement with the address of the interface 
via a status check. Command, data available, and date request 
functions are also checked for continuity and operation. 
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The SSLCH option is checked to determine if the address selected 
agrees with what is available. 

A bit-by-bit check of the status byte is exercised. Local 
loop-back mode is tested by writing a data pattern determined by 
the DATA option to the interface, then reading it back and 
checking for data errors. The test ends with a check of the 
DRIVE option. Tf only one drive is specified, the test ends; 
otherwise, the above sequence is repeated for each subsequently 
specified drive. 



5.2 Test 1 - Worst Case Data Patterns 

The data paths and control logic are exercised with an extensive 
array of patterns. A check of the busy control logic of the two 
buffer first-in/first-out's (FIFO) within the controller is 
initiated, first in a completely loaded condition (write) and 
then in a completely empty condition (read). 

Next, a check of the data paths is undertaken on the interface 
and to the drive, with the hexadecimal data patterns as 
determined by the DATA option. If DMA is set equal to 0, the 
following worst case data patterns are checked: 



FF 


11 


22 


44 


88 


55 


EE 


CC 


33 


77 


A5 


5A 


99 


66 


DD 


Ah 


01 


23 


45 


61 


89 


AB 


CD 


FF 


FE 


DC 


BA 


98 


76 


54 


32 


10 



Otherwise, a specific data pattern determined by the user is 

tested. 



5.3 Test 2 - Device Status Halfword 

Test 2 makes use of the DRVTYPE option in determining whether the 
drive is STC or TELEX. It then checks the ability of the 
interface to correctly send to the central processing unit (CPU) 
the device status bytes (9 bytes per drive) of the drives in the 
system, plus the port bus signals contained in the bus status (7 
bits) which make up the device status halfword (16 bits). Bits 
through 8 make up the device status bits, while bits 9 through 
15 make up the bus status. The test checks to ensure that 
0NLINE=1; if it does not, the test aborts testing. Otherwise, 
the test then checks the drive itself; if the drive is 
unavailable, further testing is aborted. 

The test ends with a check of all bus status error bits to ensure 
they are 0. The test flags the bad bits and lists the device 
status byte and bit(s) that are bad. 
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5.4 Test 3 - Interrecord Gaps, End of File Marks, Erased Record 
Gaps 

Test 3 outputs a series of records and files to the drive. The 
size is determined by the options BYTES, RECORDS, and FILES. The 
method of transfer is determined by the TRMODE and SELCH options, 
with one exception: if TRMODE=0, BYTES is limited to X'FF" due 
to speed constraints of the system. If the user has specified a 
larger value, a message is output and X'FF' bytes are 
transferred. When the required number of records have been 
written to the tape, an end of file mark is written to the tape. 
This sequence is repeated until the required number of files have 
been, written to the tape. The tape is rewound, the files are 
read back, and a count is kept of the bytes and records for 
interrecord gap and end of file mark recognition. The data is 
compared as the program reads each record. If TRMODE=0, the test 
ends. 

If TRMODE does not equal 0, erased record gaps are attempted. 
The tape is rewound and data is written to the tape, using a 
record length that is shorter than the length to be erased. The 
tape is rewound and given the erase gap command. Everything that 
was written should be erased. Data is then written to the tape 
for a second time. The tape is rewound for a third time and a 
read is attempted. The erased record gap should be skipped over 
and the data from the following record read correctly. The test 
ends upon completion of the data comparisons. 



5.5 Test 4 - Variable Length Records 

Test 4 initializes the tape with a record of background data as 
specified by the FYTES option using the pattern X'FF*. It then 
proceeds to output a series of records. The records increase in 
length by one each time a write is executed. The starting length 
is two, and the record is incremented to a value determined by 
the BYTES option. Records decreasing in length by one are then 
written to the tape. A rewind command is given to the tape 
drive, and a read of each variable length record is attempted 
with data comparisons. If TRM0DE=0, the maximum record length is 
limited to X'FF" because of speed constraints of the system, and 
a message is output to that effect. 



5.6 Test 5 - Skip Functions 

Test 5 exercises the SKIP FORWARD and SKIP BACKWARD commands. 
First, a pair of files are written to the tape. Each file has 
two records, with each record having a unique pattern associated 
with it. The tape is given the rewind command, and when back at 
beginning of tape (EOT), a SKIP FORWARD RECORD command is given. 
This positions thp tape at INTERRECORD GAP (IPG) #1. To verify 
this, a check is made of the bit status. A read is done of the 
next record (with data compares). This Dositions the tape at IRG 
#3. 
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The tape is given a rewind command, and when it is back at BOT, 
a SKIP FORWARD FILE command is given. This positions the tape at 
IRG #3. After the tape is stopped, a check of the end of file 
status is made, and a read of the next record (followed by data 
comparisons) is made to verify the action taken. This positions 
the tape at IRG #4. 

A check is made of the backward skip commands. The tape is 
positioned at file mark #2, and then two SKIP BACKWARD FILE 
commands are given. The tape should now be positioned at IRG #2. 
This leaves the tape on the wrong side of the tape mark to verify 
the operation, so a SKIP FORWARD FILE command is issued, which 
positions the tape on IRG #3. A read is done to verify 
positioning. At the end of this operation, the tape should be 
positioned at IRG #4. 

A check of the SKIP BACKWARD RECORD command is made. The test 
outputs three SKIP BACKWARD RECORD commands, which positions the 
tape on IRG #1. A check of block status is performed as well as 
a read with data compares of record #2. 

The test ends with a series of read and file FORWARD and BACKWARD 
skip commands, which should position the tape at BOT. This 
status is then checked. 

5.7 Test 6 - Backward Read 

Test 6 outputs a record of length determined by the BYTES option 
(limited to X'FF" if TRMODE=0). A message is output to that 
effect and bytes transferred are X*FF*. The record contains an 
incrementing pattern. The tape is given a BACKWARD READ command 
to read the record back to the CPU. The data is compared with 
the SELCH setup to verify the operation. 

5.8 Test 7 - Interrupt Circuitry/Diagnostic Mode 

Test 7 checks the three states (enable, disable, and disarm) of 
the interrupt circuitry, and the associated logic on the 
interface. This test then enables the interrupt logic, and 
exercises interrupts, untilizing basic magnetic tape commands 
(write, rewind, read, and skip) and their associated signals, 
BUSY and no motion (NMTN). This builds up the complexity of the 
operation until the program exercises the entire system by doing 
writes, rewinds, and data compares. 

5.9 Test 8 - Read/Write Overruns 

Test 8 checks some of the more common error conditions associated 
with the magnetic tape system: READ OVERRUN, FORMATTER OVERRUN, 
and WRITE UNDERFLOW. The test also checks the ODD-EVEN BYTE 
indicator of the bus status. 
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The program outputs a record, to the tape, then rewinds the tape 
and tries reading the record using a smaller byte count. BEAD 
OVERRUN should set as SELCH BUSY drops and more data is loaded 
into the interface from the tape. Transfer error (TERR), bit 9 
of the status byte, should set, as should RERD OVERRUN (READ 
OVRN), bit 15 of the status halfword. 

The tape is rewound to EOT, and an amount of data that is larger 
than the amount of FIFO available is written to the tape. Then 
a read command is given to the interface without the reading of 
any data, causing the FIFO to fill and overflow. This, in turn, 
should cause FORMATTER OVERRUN to occur, which sets TERR (bit 9) 
and ERR (bit 8) of the status byte. 

WRITE UNDERFLOW is then exercised. A record is written tc the 
tape, the tape drive stops, and another write is attempted via a 
WH instruction without outputting another write command. This 
action should set TERR, bit 9 of the status byte, as well as 
WRITE UNDERFLOW, bit 13 of the drive status halfwords. 

The test ends with the setting and resetting of the ODD-BYTE 
status bit, bit 12 of the drive status halfword. The test issues 
a WRTODDBYTE command and outputs a record five bytes long. The 
record is then read back to the CPU. This should set ODD-BYTE 
status. The test then outputs a record four bytes long. After 
the record is read back, the ODD-BYTE status bit is checked to 
see that it is reset. 

5.10 Test 9 - Gapless Mode 

An attempt to write and read a gapless tape is undertaken in Test 
9. A gapless tape is a tape with no interrecord gaps. Parity is 
not checked in the read mode. 

Using the amount of available memory configured in the system, 
the test calculates the maximum number of buffers the system can 
handle. It then compares that number with the RECORDS option. 
If the maximum is less than the option value, a message is output 
to the console stating that the RECORDS option was modified. The 
test uses the BECOFDS option to indicate how many buffers are to 
be written to the tape. 

The tape is cleared by a series of erase commands. The test then 
outputs a number of buffers (with the SELCH) that are composed of 
incrementing data patterns. 

The tape is given a series of backward record commands. Fhen the 
tape is stopped at POT, a read command is issued. The read 
buffers of the SELCH are sized to include both write buffers to 
make sure no record gaps were written out. 

After the memory is filled and all buffers are read in, the test 
compares the data that was read back to verify the data 
transfers. These compares will take a short period of time to 
complete. 
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5.11 Test A - Autoload/REL Loader Test 

Test A writes a data pattern to the tape, puts the interface in 
the byte mode, and does a series of read instructions, followed 
by a check of the data. It then executes an autoload instruction 
to read the same record into a buffer starting at location X'80' 
in memory. ^he data is checked again for validity. Since this 
test destroys the dedicated memory setup, the test reinitializes 
dedicated memory before terminating. 

The BYTES option is applicable to Test A. Maximum byte 
specification is limited to X'7F f for this test. If a higher 
value is specified, the BYTES option is modified and the bytes 
transferred equal X f 7F'. A message is output to that effect. 

5.12 Test B - Rewind and Unload Check 

Test 3 outputs a message instructing the user to set the drive 
offline. When the drive is manually set offline, an interrupt 
should occur. The driver's DU status bit should be set at the 
time of the interrupt. If either of these does not occur, an 
error message is output to the list device. 

A message is then output instructing the user to set the drive 
online. Each specified tape drive is given a REMIND and UNLOAD 
command. A timeout is taken to give device unavailable (DU), bit 
15 of the status byte (Section 9.2), time to set. If the bit 
does not set, an error is flagged. 

This test is not a default test and must be selected through the 
TEST option. If this test is selected, no other test can be run 
until a manual reload of the tape into the drive(s) is 

undertaken. 



5.13 Test C - SELCH Scope Loop 

Test C puts the interface in the test mode. A data pattern 
determined by the DATA option is continually written to the 
interface, then read back and checked for data errors. The data 
should be unique hexadecimal digits. No message is output when 
looping. The test is terminated by depressing the BREAK key on 
the console. 

Other options applicable to this test are BYTES and TRKODE. 

Test C is not a default test and must be selected through the 
TEST option. 
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5.14 Test D - Write-Only Scope Loop 

Test D executes continuous writes to the tape with the tape drive 
online. The test ends only upon depression of the BREAK key. 

Options applicable to this test are DATA, BYTES, RECORDS, and 
TRMODE. 

Test D is not a default test and must be selected through the 
TEST option. 

5.15 Test E - Read-Only Scope Loop 

Test E executes continuous reads from the tape. The test ends 
only upon depression of the BREAK key. 

Options applicable to this test are DATA, BYTES, RECORDS, and 
TRMODE. 

Test E is not a default test and must be selected through the 
TEST option. For proper results, Test D must be executed before 
Test E is executed. 



5.16 Test F - Command and Clear Scope Loop 

This test issues an output command to the tape as determined by 
the COMMAND option and waits for NMTN to set in a particular time 
limit specified by the TIMELIMT option. When the test receives 
NMTN status, a CLEAR command is issued. If the COMMAND option 
contains more than one output command, the above sequence repeats 
for each one. 

Test F ends only upon depression of the BREAK key. 

Test F is not a default test and must be selected through the 
TEST option. 



6 SUMMARY OF OPTIONS 

A description of the options used by the above subtests is 
contained in the paragraphs that follow. 

Optional mnemonic characters, shown in brackets, need not be 
entered. The option mnemonic followed by a carriage return ( C^ ) 
results in selection of the default value. 
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6.1 BY(TES) 

The BYTES option is applicable to Tests 1, 3, 4, 5, 6, 7, ft, C, 
D, and E. The default value is X'FF*. This option selects the 
total number of bytes per record. The maximum value is X^FFFF*. 
The minimum value is X'0002'. 



NOTE 

BYTES is limited to a maximum of X'FF' 
when TRHODE=0. 



6.2 COM(MAND) 

The COMMAND option is applicable to Test F. The default value is 
0. This option specifies an output command to send to the 
interface for debugging purposes. Any output command that is 
applicable to the 6250 magnetic tape unit can be used here. 
Hexadecimal values through FF are acceptable. This option 
accepts up to four entries separated by commas. 

6.3 CO(NTIN) 

The CONTIN option is applicable to all tests. The default value 
is 0. This option, when set to 1, causes continuous execution of 
all selected tests until the BREAK key is depressed. 

6.4 DAT(A) 

The DATA option is applicable to Tests 0, 1, 3, 4, 6, 7, 8, A, C, 
D, and E. The default value is X*0000'. This option specifies 
the halfword data that is to be written to and/or read from the 
tape. If the default value is chosen, worst-case data patterns 
are used. 

6.5 DEN(SITY) 

The DENSITY option is applicable to all tests. The default value 
is 6250, which selects a tape density of 6250 bpi (GCR). A value 
of 1600 selects a tape density of 1600 bpi (PE). A value of 800 
selects a tape density of 800 bpi (NRZI). 



6.6 DRI(VE) 

The DRIVE option is applicable to all tests. The default value 
is X"85*. The DRIVE option accepts up to four entries separated 
by commas. This option corresponds to the drive addresses that 
are to be tested. 
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6.7 DRVT(YPE) 

The DRVTIPE option is applicable to Test 2. The default value is 

0. This option specifies which magnetic tape drive type is in 

use, STC or TELEX. The default value specifies STC. A value of 
1 specifies TELEX. 



6.8 FI(LES) 

The FILES option is applicable to Test 3 and Test 7. The default 
value is X"02". This option specifies the number of files to be 
written to the tape. The maximum value is X'FFFF*. 



6.9 LOO(P) 

The LOOP option is applicable to all tests. The default value is 
0. It specifies whether the program is to loop on error or not 
loop on error. LOOP specifies no loop on error. LOOP 1 
specifies loop on error. LOOP 2 specifies loop on error without 
messages. 

NOTE 

Both LOOP 1 and LOOP 2 override PROCEED 
1 and PROCEED 2. 



6.10 ONL(INE) 

The ONLINE option is applicable to Tests 1 through 7. The 
default value is 1. This option specifies whether to put the 
interface into the test mode, ONLINE=0, or to put the interface 
into the online mode, 0NLINE=1. 



6.11 OPT(ION) 

This option is used to display all options, with their current 
values, on the CRT. 

6.12 PRO(CEED) 

The PROCEED option is applicable to all tests. The default value 
is 1. Other applicable values are and 2. This option 
specifies whether or not to proceed on an error. PROCEED 
specifies halt on error. PROCEED 1, the default value, specifies 
proceed on error as far as possible within a subtest. PROCEED 2 
specifies execution of the entire subtest selection regardless of 
errors encountered. 

NOTE 

PROCEED overrides LOOP options. 
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6.13 REC(ORDS) 

The RECORDS option is applicable to Tests 3, 7, 9, D, and F. The 
default value is X'7F". This option selects the number of 
records per file, as well as the number of buffers to be written 
to the gapless tape in Test 9. The maximum value is X'^FFF*. 



6. 14 RUN 

The RUN option causes all currently selected tests in the TEST 
option to execute. 



6.15 SEL(CH) 

The SSLCH option is applicable to all tests. The default value 
is X'FO'. This option specifies the address of the SELCH being 
used. 



6.16 TE(ST) 

The TES^ option is used to select the test or tests to be 
executed. The default selections are Tests 0, 1, 2, 3, 4, 5, 6, 
7, 8, 9, A, B, C, D, F, and F. Tests B, C, D, and E are optional 
tests and must be chosen through this option. This option 
accepts any test numbers selected (0 through F). If more than 
one test is selected/ the test numbers must be separated by 
commas. 



6.17 TIME(LIMT) 

The TIMELIMT option is applicable to Test F. The default value 
is Y*00007FFF*. This option specifies a time value for Test F to 
wait for NMTN after the output command is given. Fullword values 
are accepted. 



6.18 TRM(ODE) 

The TRMODE option is applicable to Tests 1 through 7, C, D, and 

E. This option selects the mode transfer of data. The default 

value, 1, selects SELCH transfers. A value of selects 
read/write (programmed I/O instructions) transfers. 



7 ERROR HANDLING 

When an error is found, the conditions that led to the error are 
repeated. If the error still appears after the specified maximum 
number of retries, then the program performs some further 
isolating steps, and a message is output describing what caused 
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the error and what is suspected to be at fault. In some cases, 
additional clarifying information, such as expected device status 
and received device status, is output. For example: 

DID NOT ERASE GAP 

SUSPECTED ERROR WITH FORMATTER 

or 

INCORRECT STATUS FROM INTERFACE 

EXPECTED STATUS=0014 

ACTUAL STATUS=0022 

SUSPECTED ERROR WITH CONTROLLER 



7.1 Error Messages 
TEST 



INCORRECT DATA COMPARE AFTER WRITE TO CPU 
INCORRECT DATA COMPARE 

DRIVE=*** (Note 1) 

STATUS***** (Note 2) 

BYTE ****** (Note 3) 

DATA WRITTEN***** (Note 2) 

DATA READ =**** (Note 2) 



or FALSE SYNC FROM DRIVE *** (Note 1) 

EXECUTING RD 
or EXECUTING WD 
or EXECUTING OC 
or EXECUTING SS 



or FALSE SYNC FROM SELCH *** (Note 1) 



or 'DRIVE UNAVAILABLE* SET 

or 'EOF' IS ACTIVE UNJUSTLY 

or 'BUSY* IS ACTIVE AFTER CLEAR 

or 'NO MOTION' IS NOT ACTIVE 

or 'BOT' MARK NOT FOUND AFTFR REWIND 

or 'TERR* IS ACTIVE UNJUSTLY 

or 'ERR* IS ACTIVE UNJUSTLY 

or INCORRECT STATUS FOR OFF LINE 

INCORRECT STATUS FROM INTERFACE 

DRIVF=*** (Note 1) 

EXPECTED STATUS=**** (Note 2) 

ACTUAL STATUS =**** (Note 2) 
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SUSPECTED ERPOP WITH FORMATTER 
or SUSPECTED ERFOR WITH CONTROLLER 
or SUSPECTED EPROP WITH DRIVE 
or SUSPECTED ERPOR WITH SELCH 

ADVISORY MESSAGES: 

NO MATCH ON SELCH ADDRESS 

BYTES TPftNSFERED = 7'FF' 



TEST 1 



TESTMODE WRITE TO CHECK FIFO CONTROL ON BI^S 
or TESTMODE READ TO CHECK FIFO CONTROL ON BITS 

INCORRECT STPTUS RECEIVED FROM INTERFACE 

DRIVE *** 

EXPECTED STATUS=**** (Note 2) 

ACTUAL STATUS = **** (Note 2) 



or TESTMODE CHECK OF FIFO CONTROL ON BITS 

INCORRECT DATA COMPARE 

DRIVE *** (Note 1) 

STATUS 

BYTE ****** (Note 3) 

DATA WRITTEN=**** (Note 2) 

DATA READ =**** (Note 2) 



or CHECK OF FIFO BUSY LOGIC 

3USY RESET DURING TIMEOUT IN TESTMODE WRITE 
or BUSY RESET DURING TIMEOUT IN TESTMODE READ 

INCORRECT STATUS PECEIVED FROM INTERFACE 

DRIVE *** 

EXPECTED STATUS 

ACTUAL STATUS =**** (Note 2) 



or SELCH WRITE TO THE INTERFACE 
or SELCH READ FPOM THE INTERFACE 
or SELCH WRITE TO THE TAPE 
or SELCH READ FPOM THE TAPE 
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TIMED OUT DURING SELCH *** WRITE 
or TIMED OUT DURING SELCH.*** READ 



(Note 1) 
(Note 1) 



or INCORRECT STATUS FROM SELCH *** 
SELCH STATUS=**** 
DRIVE **■* 
STATUS=**** 



(Note 
(Note 
(Note 
(Note 



1) 
2) 
1) 
2) 



or MISMATCH ON SELCH *** ENDING ADDRESS 



(Note 1) 



NO READ OCCURRED 
or NO WRITE OCCURRED 

DRIVE *** 
STATUS=**** 
SELCH STATUS=**** 
EXPECTED ADDPESS=****** 
ACTUAL ADDRESS =****** 



(Note 
(Note 
(Note 
(Note 
Cote 



1) 

2) 
2) 
3) 
3) 



or WRITE/READ TRANSFERS TO THE TAPE 

or SELCH TRANSFERS TO THE TAPE 

or SELCH TRANFEPS TO THE INTERFACE 



INCORRECT DATA COMPARE 

DRIVE *** 

STATUS=**** 

BYTE ****** 

DATA WRITTEN=**** 

DATA READ =**** 



(Note 1) 

(Mote 2) 

(Note 3) 

(Note 2) 

(Note 2) 



or WRITE TO THE TAPE 
or READ FROM THF TAPE 

INCORRECT STATUS RECEIVED FROM INTERFACE 

DRIVE *** (Note 1) 

EXPECTED STATUS=**** (Note 2) 

ACTUAL STATUS =**** (Note 2) 



TEST 3 



INCORRECT STATUS ON READ - "WRITE" SET 

DRIVE *** 

DEVICE STATUS HALFFORD=**** 



(Note 1) 
(Note 2) 



or MO TAPE MARKS WRITTEN 

ON READ FROM TAPE - NO "EOF" STATUS 

or NO TAPE MARKS WRITTEN 

ON SELCH READ - NO "EOF" STATUS 
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DRIVE *** (Mote 1) 

EXPECTED STATUS***** (Note 2) 

ACTUAL STATUS = **** (Note 2) 



or SELCH READ FILES-BECORDS-BYTES 
or SELCH WRITE AFTEP ERASE RECORD GAP 
or ERASE RECORD GAP. .WRITE 
or ERASE RECORD GAP..FEAD 

TIMED OUT DURING SELCH *** WRITE (Note 1) 

or INCORRECT STATUS FROM SELCH *** (Note 1) 

SELCH STATUS=**** (Note 2) 

DRIVE *** (Note 1) 

STATUS***** (Note 2) 

or MISMATCH ON SELCH *** ENDING ADDRESS (Note 1) 
NO READ OCCURRED 
or NO WRITE OCCURRED 

DRIVE *** (Note 1) 

STATUS=**** (Note 2) 

SELCH STATUS***** (Note 2) 

EXPECTED ADDRESS=****** (Note 3) 

ACTUAL ADDRESS =****** (Note 3) 



or INCORRECT DATA FROM SELCH TRANSFER 
or "ERASE GAP" DID NOT ERASE RECORD 

INCORRECT DATA COMPARE 

DRIVE *** (Note 1) 

STATUS=**** (Note 2) 

BYTE ****** (Note 3) 

DATA WRITTEN***** (Note 2) 

DATA READ =**** (Note 2) 

ADVISORY M 'SSAGES: 

WILL NOT DO FRASF GAPS WITH NON-SELCH TRANSFERS 



TEST 4 



INCREMENTING RECORDS 
or DECREMENTING RECORDS 

INCORRECT DATA COMPARE 

DRIVE *** (Note 1) 

STATUS***** (Note 2) 

BYTE ****** (Note 3) 

DATA WRITTEN***** (Note 2) 

DATA READ =**** (Note 2) 
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or SELCH WRITE INCEFMENTING RECORDS 
or SELCH READ INCREMENTING RECORDS 
or SELCH WRITE DECREMENTING RECORDS 
or SELCH READ DECREMENTING RECORDS 



or 



TIMED OUT 
TIMED OUT 



ON 
ON 



SELCH 
SELCH 



*** WRITE 
*** READ 



(Note 
(Note 



1) 
1) 



or INCORRECT STATUS ON SELCH *** 
SELCH STA?US=**** 
DRIVE *** 
STATUS=**** 



(Note 
(Note 
(Note 

(Note 



1) 
2) 
1) 
2) 



or MISMATCH ON SELCH *** ENDING ADDRESS 
NO READ OCCURRED 
or NO WRITE OCCUPRED 



(Note 1) 



DRIVE *** 
STATUS=**** 
SELCH STATUS=**** 
EXPECTED ADDPESS=****** 
ACTUAL ADDRESS =****** 



(Note 
(Note 
(Note 
(Note 
(Note 



1) 
2) 
2) 
3) 
3) 



or INCORRECT DATA COMPARE 
LENGTH=**** 
DRIVE *** 
STATUS=**** 
BYTE ****** 
DATA WRITTEN=**** 
DATA READ =**** 



(Note 
(Note 
(Note 
(Note 
(Note 
(Note 



2) 
1) 
2) 
3) 
2) 
2) 



TEST 5 



SKIP BACKWARD FILE 

POSITIONED ON WRONG RECORD 
or SKIP BACKWARD RECORD 

POSITIONED ON WRONG RECORD 
or HO SKIP FORWARD RECORD OCCURRED 

POSITIONED ON WRONG RECORD 
or SKIP FORWARD RECORD 

POSITIONED ON WRONG RECORD 
or NO SKIP FORWARD FILE OCCURRED 

POSITIONED ON WRONG FILE 
or SKIP FORWARD FILE 

POSITIONED ON WRONG RECORD 
or TAPE HAS EyCFEDED WRITTEN RECORDS 



DRIVE *** 

EXPECTED RECORD=**** 
ACTUAL RECORD =**** 
DATA WRITTEH=**** 
DATA READ =**** 



(Note 
(Note 
(Note 
(Note 
(Note 



1) 
2) 
2) 
2) 
2) 



1 8 
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or NO "BOT" STATUS AFTER SKIP COMMANDS 

DRIVE *** (Note 1) 

EXPECTED STATUS=**** (Note 2) 

ACTUAL STATUS = **** (Note 2) 



or IRG WAS NOT WRITTEN 

DRIVE *** (Note 1) 

DEVICE STATUS HAIFWORD=**** (Note 2) 



or SELCH SKIP COMMANDS 

TIMED OUT ON SELCH *** WRITE (Note 1) 

or INCORRECT STATUS FROM SELCH *** (Note 1) 

SELCH STATUS=**** (Note 2) 

DRIVE **** (Note 2) 

STATUS=**** (Note 2) 

or MISMATCH ON SELCH *** ENDING ADDRESS (Note 1) 

DRIVE *** (Note 1) 

STATUS=**** (Note 2) 

SELCH STATUS=**** (Note 2) 

EXPECTED ADDRFSS=****** (Note 3) 

ACTUAL ADDRESS =****** (Note 3) 
ADVISORY MESSAGES: 

NO MATCH ON SELCH ADDRESS 



TEST 6 



READ BACKWARD 
or SELCH READ BACKWARD 

INCORRECT DATA COMPARE 

DRIVE *** (Note 1) 

STATUS=**** (Note 2) 

BYTE ****** (Note 3) 

DATA WRITTEN=**** (Note 2) 

DATA READ =**** (Note 2) 



or READ BACKWARD. „ (SELCH WRITE) 
or SELCH READ EACKWARD 

TIMED OUT ON SELCH *** READ (Note 1) 

or TIMED OUT ON SELCH *** WRITE (Note 1) 
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or INCORRECT STATUS ON SELCH *** (Note 1) 

SELCH STATUS=**** (Note 2) 

DRIVE *** (Note 1) 

STATUS***** (Note 2) 

or MISMATCH ON SELCH *** ENDING ADDRESS (Note 1) 
NO READ OCCURRED 
or NO WRITE OCCURRED 



DRIVE *** 
STATUS=**** 
SELCH STATUS=**** 
EXPECTED ADDRFSS=****** 
ACTUAL ADDRESS =****** 



(Note 
(Note 
(Note 
(Note 
(Note 



1) 
2) 
2) 
3) 
3) 



TEST 7 



or 
or 
or 
or 
or 
or 
or 
or 
or 
or 
or 
or 

or 

or 
or 
or 

or 



INTERRUPT GENERATED WH 
INTERRUPT QUEUED WHILE 
INTERRUPT QUEUED WHILE 
NO INTERRUPT QUEUED WH 

INTERRUPT 

INTERRUPT 

INTFRRUPT 

INTERRUPT 

INTERRUPT 

INTERRUPT 

INTERRUPT 

INTERRUPT 

INTERRUPT 
RECORD 

NO INTERRUPT 
RECORD 

NO INTERRUPT 
NO INTERRUPT 
TIMED OUT ON 
UNDER 
TIMED 



NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 



GENERATED 
GENERATED 
GENERATED 
GENERATED 
GENERATED 
GENERATFD 
GENERATED 
GENERATED 
GENERATFD 



ILE DISARM 
DISARMED 
DISABLED 
ILE DISABL 
WHILE ENA 
ON "BUSY" 
"BUSY" 
"NMTN" 
"BUSY" 
"NMTN" 
"BUSY" 
"NMTN" 
"NMTN" 



ON 
ON 
ON 
ON 
ON 
ON 
ON 



ED 



ED 

BLED 
AFTER 
AFTER 
AFTER 
AFTER 
AFTER 
AFTER 
AFTER 
AFTER 



COMMAND WRITE 

COMMAND READ 

COMMAND REWIND 

A WRITE 

WRITE 

READ 

READ 

SKIP BACKWARD 



GENERATED ON "NMTN" AFTER SKIP FORWARD 



GFNFRATED 
GENFRATED 
SELCH *** 

INTERRUPTS 

OUT ON SELCH *** 



UNDER INTERRUPTS 



ON "BUSY" AFTER 
ON "BUSY" AFTFR 
WRITE TO MEMORY 

READ FROM MEMORY 



WRITE "EOF" 
READ "EOF" 
(Note 1) 

(Note 1) 



DRIVE *** 
STAT T 'S = **** 



(Note 1) 
(Note 2) 



or NO INTERRUPT GFNFRATED ON "NMTN" AFTER COMMAND READ(SELCH) 
or NO INTERRUPT GFNFRATED ON "BUSY" AFTER COMMAND WRITF(SFICH) 
or NO INTERRUPT GENERATED ON "NMTN" AFTER REWIND( SELCH) 
or NO INTERRUPT GENFRATED ON "NMTN" AFTER SELCH WRITE EOF 
or NO INTERRUPT GENERATED ON "NMTN" AFTER SFLCH READ EOF 
or TROUBLE WITH SELCH WRITE TO MEMORY UNDER INTERRUPTS 



2 
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3ELCH *** (Note 1} 

DRIVE *** (lfQte 1} 

STATUS=**** (Note 2) 

or COMPARES UNDER WRITE/READ INTERRUPTS 

or SELCH COMPARES UNDER INTERRUPTS 

DRIVE *** (Note 1} 

STATUS=**** (Note 2 ) 

RYTF ****** / u ->i 

DI lt (Note 3) 

DATA WRITTEN=**** (Note 2) 

DATA READ = **** (Note 2 ) 



or NO TAPE MARK STATUS AFTER READ UNDER INTERRUPTS 
or NO TAPE MARK STATUS AFTER SELCH READ UNDER 
INTERRUPTS 

DRIVE *** (Note 1} 

EXPECTED STATUS***** (Note 2) 

ACTUAL STATUS = **** (Note 2) 

ADVISORY MESSAGES: 

MO MATCH ON SELCH ADDRESS 



TEST 8 



LONG RECORD WRITES 
or SHORT RECORD READS 

TIMED OUT ON SELCH *** READ (Note 1) 

or TIMED OUT ON SFLCH *** WRITE (Note 1) 

or INCORRECT STATUS ON SELCH *** (Note 1) 

SELCH STATUS=**** (Note 2) 

DRIVE *** { * ote 1} 

STATUS=**** (Note 2 ) 

or MISMATCH ON SELCH *** ENDING ADDRESS (Note 1) 

DRIVE *** (Note 1} 

STATUS^**** (Note 2 ) 

SELCH STATUS=**** (Note 2) 

EXPECTED ADDRFSS=****** (Note 3) 

ACTUAL ADDRESS =****** (Not<= 3) 



READ OVRN DID NOT SET "TERR" 
or FORMATTER OVPN DID NOT SET "TERR" £ "ERR" 
or WRITE UNDERFLOW DID NOT SET "TERR" 

DRIVE *** (Note 2 ) 

EXPECTED STATUS=**** (Note 2) 

ACTUAL STATUS =**** (Note 2) 
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or READ OVRN (DSB BIT 15) DID NOT SET 
or WRITE UNDERFLOW (DSB BIT 13) DID NOT SET 
or ODD-BYTE STATUS (DSR BIT 12) DID NOT SET 
or ODD-BYTE STATUS (DS3 BIT 12) DID NOT RESF r 



DRIVE *** 

DEVICE STATUS HALFWORD=**** 



(Note 1) 
(Note 2) 



ADVISORY MESSAGES: 

SELCH TRANSFERS NOT SELECTED 
NO MATCH ON SELCH ADDRESS 



TEST 9 



GAPLESS WRITE 
or GAPLESS READ 



TIMED OUT ON SELCH *** WRITE 
or TIMED OUT ON SELCH *** READ 



(Note 1) 
(Note 1) 



or INCORRECT STATUS ON SELCH *** 
SELCH STATUS=**** 
DRIVE *** 
STATUS=**** 



(Note 1) 

(Note 2) 

(Note 1) 

(Note 2) 



or MISMATCH ON SELCH *** ENDING ADDRESS 



(Note 1) 



DRIVE *** 
STATUS***** 
SELCH STATUS=**** 
EXPECTED ADDRESS=****** 
ACTUAL ADDRESS =****** 



(Mote 
(Note 
(Note 
(Note 
(Note 



1) 
2) 
2) 
3) 
3) 



or GAPLESS COMPARE ERROR 



INCORRECT DATA COMPARE 

DRIVE *** 

STATUS=**** 

BYTE ****** 

DATA WRITTEN***-** 

DATA READ =**** 



(Note 
(Note 
(Note 
(Note 
(Note 



1) 
2) 
3) 
2) 
2) 



or IRG FOUND IN GAPLESS TAPE 



DRIVE *** 

EXPECTED STATUS=**** 

ACTUAL STATUS =**** 



(Note 1) 
(Note 2) 
(Note 2) 



ADVISORY MESSAGFS: 

RECORDS OPTION HAS BEEN MODIFIED 

SELCH TRANSFERS NOT SELECTED 
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TEST A 



BYTE MODE READ 
or AUTOLOAD 

INCORRECT DATA COMPARE 

DRIVE *** (Note 1) 

STATUS=**** (Note 2) 

BYTE ****** (Note 3) 

DATA WRITTEN=**** (Note 2) 

DATA READ =**** (Note 2) 



or 

or AUTOLOAD 

CC INDICATES DRIVE UNAVAILABLE 
or CC INDICATES END OF MEDIUM 
or CC INDICATES EXAMINE OR TIMEOUT 
or INCORRECT CC 

CC EXPECTED=* 
CC RECEIVED=* 



or AUTOLOAD 

INCORRECT STATUS FROM INTERFACE 

DRIVE *** (Note 1) 

EXPECTED STATUS=**** (Note 2) 

ACTUAL STATUS =**** (Note 2) 

ADVISORY MESSAGES: 

BYTES OPTION HAS BEEN MODIFIED 



TEST B 



NO INTERRUPT OCCURRED ON MANUAL DU 
or INCORRECT STSTUS AFTER DU INTERRUPT 
or TAPE DID NOT UNLOAD 

INCORRECT STATUS FROM INTERFACE 

DRIVE *** (Note 1) 

EXPECTED STATUS=**** (*ote 2) 

ACTUAL STATUS =**** (Note 2) 

or TIMED OUT WAITING FOR ON LINE STATUS 
or TIMED OUT WAITING FOR OFF LINE STATUS 

ADVISORY MESSAGES: 

TURN DRIVE OFF LINE 
or TURN DRIVE ON LINE 
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TEST C 



SELCH SCOPE 
or WRITE/READ SCOPE LOOP 

INCORRECT DATA COMPARE 

DRIVE *** 

STATUS=**** (Note 2) 

BYTE ****** (Note 3) 

DATA WRITTEN=**** (Note 2) 

DATA READ =**** (Note 2) 

ADVISORY MESSAGES: 

BYTES OPTION HAS PFEN MODIFIED 



ERROR MESSAGES COMMON TO TESTS 1-9 

ERROR BITS APE SET 

INCORRECT DEVICE STATUS HALFWORD RETURNED 

BUS PARITY FPROP 
or FORMATTER OVERRUN 
or REJECT OR DATA CHECK 
or WRITE UNDERFLOW 
or READ OVERRUN 
or FORMATTER WENT OFF LINE 
or REASON FOR FAILURE UNKNOWN 

DEVICE STATUS HALFWORDS: 

DS30=**** (Note 2) 

DSB1=**** ( No te 2) 

DSB2=**** (Note 2) 

DSB3=**** ( Not e 2) 

DSB4=**** (Note 2) 

SUSPECTED ERROR WITH FORMATTER 

ERROR MESSAGES COMMON TO ALL TESTS 

"FILE PROTECT" IS ACTIVE ON DRIVE *** (Note 1) 
or DRIVE *** IS OFF LINE (Note 1) 

or FALSE SYNC FROM DRIVE *** (Note 1) 

or "NMTN" DID NOT SET AFTER REWIND 
or "BOT" DID NOT SFT AFTER REWIND 
or TIMED OUT WAITING FOR "NMTN" 
or TIMED OUT WAITING FOR "BUSY" 

DRIVE *** ( Note d 

EXPECTED STATUS=**** (Note 2) 

ACTUAL STATUS=**** (Note 2) 



SUSPECTED ERROR KITH TAPE DRIVE 
or SUSPECTED ERROR WITH CONTROLLER 
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TAPE WILL NOT REWIND 

DRIVE *** (Note 1) 

STATUS=**** (Note 2) 

SUSPECTED EPFOR KITH CONTROLLER 
or SUSPECTED ERFOR VITH DRIVE 



NOTES: 

1. *** = Drive or SELCH address in hex 

2. **** = Halfword of data 

3# ****** = 24-bit hex address on number 



8 USER INTERFACE DEFINITION 

Upon the completion of load/ program execution is started at 
location X'AOO* on startup; the title 'HIGH PERFORMANCE (6250 
BPI) MAGNETIC TAPE DIAGNOSTIC 06-253R00' is output. An asterisk 
operator prompt is output to the console device to indicate the 
proaram is waiting for user input. The user can type OPTION (CF) 
to cause the options with their current values to be displayed on 
the console device. If all are acceptable, the user can type RUN 
by entering a CP. 

The commercial at (£) sign causes a system breakpoint, giving 
control of the system to the user at the system console. Any 
invalid command/option input results in a question mark (?) and 
a new asterisk operator prompt being output. Refer to 
Appendix A. 



9 I/O DEFINITION 

Information relative to command bytes, status bytes, and drive 
status halfwords can be found in the following sections. 



9.1 Command Bytes 

The interface has two command bytes selected by command bit 12 

COMMAND 

BIT 8 - CMDO 
9 - CMD1 

10 - CMD2 

11 - CMD3 
12-0 

13 - MUX2 

14 - MUX1 

15 - MUXO 
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The various combinations for- bits 8:11 (command select) result in 
different meanings of the command. 

The various combinations for bits 13:15 (MUX error) result in 
different meanings of error MUX byte (EMB). 

COMMAND 1 

BIT 8 - DISABLE 
9 - ENABLE 

10 - DENSITY SELECT (D31) 

11 - DENSITY SELECT (DSO) 
12-1 

13 - TEST MODE 

14 - GAPLESS MODE 

15 - CLF 



WRTODDBYTE command is set when bits 14 and 15 are both set to 1 
BYTE READ command is set when bits 13 and 15 are both set to 1. 

9.2 Status Byte Information 



(Data error) 

(Transfer error) 

(End of tape) 

(No motion) 

(Busy) 

(Examine) 

(Tape mark status) 

(Device unavailable) 

9.3 Drive Status Half words 

When a read halfword is given to the maqnetic tape interface, a 
halfword of status consisting of EMBs and magnetic tape interface 
status is transferred to the user software. Depending upon which 
EMB has been requested, the halfword is as shovn. Refer to 
Tables 1 and 2 for STC and TELEX maonetic tape drives, 
respectively. Note that bits through P reflect the EMBs from 
the controller, while bits 9 through 15 are a combination of 
controller status and magnetic tape interface status. Bit 
definitions are listed after Tables 1 and 2. 



BIT 8 - 


ERR 


9 - 


TEPP 


10 - 


EOT 


11 - 


NMTN 


12 - 


BSY 


13 - 


EX 


14 - 


TMS 


15 - 


DU 
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TABLE 1 STC HAGNETIC TAPE DHIVE STATUS HALFWOBD 



| | ERROR HUX STATUS BITS | UPPER STATUS BITS 


| DATA BUS | | 1 | 2 | 3 | "4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 

| ERROR MUX | | | | I I I I I I I I I I I I 
| BYTE |D|D|D|D|D|D|D|D|D |NRZI | SSC | BLOCK |0DD |WRITE | BUS | READ 
| (EMB 0) |T |T |T |T |T |T |T |T |T | | | | BYTE | UNDER |PARITY| OVRN 
| DEAD TRACKS| 7|6|5|<i|3|2|1|0|P| | | | |FL0W | | 


| Elft 1 | WTM | UCE | PART | MTE | | END | VEL | DIAG. I CRC I 

I BEAD/WRITE I I I I I NOT |DAT» j | KODE | j Sane as above 

| ERRORS | CHK | | REC | | USED | CHECK | ERR | LTCH | ERR | 


I EHB 2 |D|D|D|D|D|D|D|D| | 

| DIAGNOSTIC j A | A I A j A | A | A | A j A j TACH | Same as above 

| AID BITS |7|6|5|K|3|2|1|0| | 


| EMB 3 | EOT | BOT | W8T | FILE | BKHD | HI | RDY | ON- | MRT | 

I DRIVE SENSEJ I I I I I I I LIKE j j Same as above 

| BYTE | STAT | STAT |INHB j PROT | STAT | DEN | STAT | STAT | STAT | 


| EMB H | CRC | CRC | CRC | CRC | CRC | CRC | CRC | CRC | CRC | 

j CRC-F BYTE |7 j 6 |5 |<» |3 |2 |1 |0 |P j Same as above 


| EHB 5 | Reserved I 


| EMB 6 | Reserved I Same as above 


| EMB 7 | Reserved j 



^1 



CD 



TABLE 2 TELEX MAGNETIC TAPE DRIVE STATUS HALFWORD 



o 

I 
a\ 

en 



1 I ERBOR MUX STATUS BITS | UPPER STATUS BITS 


1 1 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 

| DATA BUS | | 1 | 7 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 

I ENB | PQUIP| EQUIP| NOISEI FILE | SAGC | HULTI | VRC | HOT | | NRZI | DDSO | BLOCKI ODD | HRITE | BUS | RKAD 
I | FAIL | FAII | | MARK | | TRACK| | CHPT I I | I I BITE | USFLW | PARITY | OVRK 
| | TU | FCI1 | | FRR I I I I I I j I I I | | 


I EHB 1 | CRC | SKEW | LOST | PART | POST | PBEBB | EMVLP| LRC | | 

I ill BOB | REC | ERR j ERR j CHECK | j j Same as above 


I EHB 2 | DEAD | IBG | NO | LOOP | ERASE | TACH | VEL0C| ID | C | 

| | TRACK| OVFLUJ DATA | OUT | URITE| FAIL | CHECKJ CHECK| j Sane as above 

I I P I I I I FAIL | I I I I 


I EHB 3 | DEAD | DEAD | DEAD | DEAD | DEAD | DEAD | DEAD | DEAD | | 

| | TRACK| TRACK| TRACKl TRACK | TRACK| TRACKI TRACK| TRACK| | Same as above 

I I 7 | 6 | 5 | 4 | 3 | 2 | 1 |0 | | 



o 
o 



For a complete definition of the status halfword bits, refer to 
the High Performance Magnetic Tape System (HPMTS) 125 
Installation and Maintenance Manual, Publication Number 47-028. 



MNEMONIC 



DEFINITION 



BKWD STAT 

BLOCK 

30T STAT 1 

CSC 

CRC ERR 

DA 

DDS 

DIAG MODE ITCH 

DT 

END DATA CHK 

ENVLP CHECK 

EOT STAT 

EQUIP FAIL FCU 

EQUIP FAIL TU 

ERASE/WRITE FAIL 

FILE MARK 

FILE PROT 

HI DEN 

IBG OVFLW 

ID CHECK 

LOST BOB 

LRC 

MTE 

MULTI-TRACK 



Packward status 

Block status 

Beginning of tape status 

Cyclic redundancy character 

Cyclic redundancy character error 

Diagnostic aids 

Data density 

Diagnostic mode latch 

Dead track 

End of data check 

Envelope check 

End of tape status 

Equipment fail formatter 

Equipment fail tape drive 

Current erase or write failure 

File mark error 

File protect 

High density 

Interblock gap overflow 

Identification burst check 

Lost beginning of block 

Longitudinal redundancy check 

Multiple track error 

Multi-track error 
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MNEMONIC DEFINITION 

NOT COKPT Not compatible 

ODD BYTE Sets on odd byte boundary 

ON LINE STAT Online status 

PART REG Partial record 

POST ERR Fostamble error 

PREMB ERR Preamble error 

READ OVRN Read overrun 

RDY STAT Ready status 

SAGC Set auto gain control 

SKEW Excessive skewing 

SSC Slave status change 

TACH Digital tachometer 

TACH FAIL Tachometer pulses not received 

UCE Uncorrectable error 

VEL ERR Velocity error 

VELOC CHECK Velocity check 

VRC Vertical redundancy check 

WRT INH8 Vrite inhibit 

WRT STAT Write status 

WTM CHK Write tape mark check 
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APPENDIX A 
USER DEVICE DEFINITION 



ASCII I/O DEVICE SUPPORT 

The R05 executive (ETPE R05) of the program uses the concept of 
console I/O device and list device. The console I/O device is an 
interactive device capable of logging messages and accepting 
commands and other user input. When the executive, is accepting 
input from the user or sending messages to the user, the console 
device is used. When the test program is running/ the list 
device is used for logging messages. 



10 HALFWORD CONTROL OF I/O DEVICE SELECTION 

The list device and console device are specified to the executive 
by the contents of the halfword 10 at 0PIGIN1+X" 10" (normally 
X'OAIO'). The interpretation of this data is detailed in Table 
A-1. The executive allows only the identifiers shown and changes 
illegal identifiers to X'OV. 



TABLE A-1 I/O IDENTIFIERS 



CONSOLE DEVICE IDENTIFIER 
BITS 0-7 



LIST DEVICE IDENTIFIER 
BITS 8-15 



X'01' - CRT on PASLA/PALM 
or COMM MUX 
interface 

X*02' - Device on current 
loop interface 
(CLI) 

X'03* - Reserved; changed 
to X'OV 



X'OU* - Carousel on PASLA/ 
PALM or COMM MUX 
interface 

X'05' - CET on micro-I/0 
bus interface 



X'01' - CET on PASLA/PALM 
or COMM MUX 
interface 

X'02' - Device on CLI 



X'03' - Line printer on 
line printer 
interface 

X"04' - Carousel on PASLA/ 
PALM or COMM MUX 
interface 

X*05" - CRT on micro-I/0 
bus interface 
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I/O DEVICE ADDRESSES AND CHARACTERISTICS 

The device types implied by the values contained in the 10 
halfword are described in the following paragraphs. For each of 
the devices, including device type X'03*, termination of an 
output line results in a CR, line feed, and null character being 
output by the executive (XVOD', X'OA', X'00'). 

Devices identified by X'OT are assumed to be on a full duplex 
asynchronous RS232C-type interface with addresses X'010 f and 
X"011" for read and write sides, respectively. Examples of such 
interfaces are PASLfl, PALM, and COMM MUX. The executive programs 
these devices for highest clock rate, seven data bits, two stop 
bits, and even parity. If the terminal is set up differently, 
location CRT2ND must be modified accordingly. Line break status 
is assumed to be indicated by framing-error status, with BUSY not 
active, and a character in the receive buffer. Offline status 
is assumed to be X'OC" (BUSY+EXAMINE STATUS). 

Devices identified by X'02' are assumed to be on a teletype- 
compatible CLI with address X*002". The executive programs these 
devices for unblocked mode (echoplex). Line break status is 
assumed to be indicated by framing-error status. Offline status 
is assumed to be X'01' (DU). If this bit is set, other status 
bits are "don't cares". 

The list device identified by X'03' is assumed to be a line 
printer on a line printer interface with address X'062*. Offline 
status is assumed to be X'01' (DU). If this bit is set, other 
status bits are "don't cares". 

Devices indicated by X'OU" are assumed to be attached as 
described for device type X"01", having the capability of 
transmitting DC4 and DC2 transmission pause and resume requests. 
An example of such a device is the Perkin-Elmer Carousel 300 
terminal. 

Devices indicated by X'05' are assumed to be on a micro-I/0 bus 
interface with address X'OCO'. These devices are programmed for 
blocked mode (full duplex). Line break is assumed to be 
indicated by framing-error status, which is not testable if a 
character is in the interface read buffer. Offline status is 
assumed to be X'01' (DU). If this bit is set, other status bits 
are "don't cares". 



SELECTING DEVICES BEFORE STARTING EXECUTION 

The 10 halfword controls which device identifiers are used when 
the program is started. The default data in this halfword is 
X'0101*. If this value does not indicate the desired type of I/O 
device of the types supported, the data in the 10 halfword might 
be modified before starting program execution. 



A-2 06-263M95A15 R00 



If the default device addresses are not the addresses of the 
devices configured in the system, the table of device addresses 
found in the source program adjacent to the 10 halfword might be 
modified. There are two halfword entries used for each type 
device. The first is the read-side address, and the second is 
the write-side address. Both these halfwords must be modified 
for any change required. If the device type has only one 
address; i.e., a line printer, the device address must be placed 
in each of the two appropriate halfwords. The R05 executive 
always uses the read-side address to test offline status. 
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1 
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SCRAT 

2 HPKT263 PFOG HIGH PERFORMANCE (6250 )MAGTA?E DIAGNOSTIC 6-263R01 M95A1 3 

3 TARGT 32 CODE FX D ECT3 TAF"ET 32 

4 FSLST 

5 WIDTH 132 
5 CfiOSS 

7 SQUEZ 9 

3 SPSQZ 

Q * ******************************************************************** 

10 * COPYRIGHT PEPKIN-FIME?., INC., JULY 1981 

11 * 

12 * 

13 * THIS PROGRAM PROVTBES A COMPREHENSIVE TEST OF THE STC AND TELEX 

14 * HIGH PERFORMANCE MAGNETIC TAPE INTERFACE, DRIVE AND FORMATTER. 

15 * 

16 * THERE ARE NUMEROUS OPTIONS AVAILABLE TO THE USER, AND 

17 * DETAILED ERROR MESSAGES TO AID IN THE ISOLATION OF A FAUL^ 

18 * AT THE HARDWARE LEVEL. 

19 * 

20 * THE PROGRAM CAN 3E SUN OH ANY STANDARD PERKIN-ELMEP 

21 * 3200 FAMILY PROCESSOR. 

22 * OPTIONS AND RUN COMMAND ARE TO BE ENTERED VIA A CONSOLE 

23 * TERMINAL. UP TO 4 TAPE DRIVES MAY BE TESTED AT ONE TIME. 

24 * 
MULTIPLEXOR AND SYSTEM STATUS CHECK 

VOEST CASE DATA PATTERNS 

DEVICE STATUS BYTES 

RECORD GAPS, TAPE MARKS AND ERASE GAPS 

VARIABLE LENGTH RECORD AND FILES TES 1 " 

REWIND AND SKIP FUNCTION" 

BAC'-".'APDS READ 

INTERRUPT CIRCUITRY 

WRITE AND READ OVERRUNS 

GAPLESS MODS TEST 

AUTOLOAD/BEL LOADER TEST 

REWIND AND UNLOAD CHECK 

SCOPE LOOP TEST 

WRITE-ONLY SCOPE LOOP 

PEA3-0NLY SCOPE LOOP 



25 


* 


TEST 





26 


* 






27 


* 


TEST 


1 


23 


* 






29 


* 


TEST 


2 


39 


* 






31 


* 


TEST 


3 


32 


* 






33 


* 


TEST 


4 


34 


* 






35 


* 


TEST 


5 


36 


* 






37 


* 


TES"* 1 


6 


38 


* 






39 


* 


TEST 


7 


40 


* 






41 


* 


TEST 


? 


42 


* 






43 


* 


TEST 


9 


44 


* 






45 


* 


TEST 


A 


46 


* 






47 


* 


TEST 


p 


48 


* 






49 


* 


TEST 


C 


50 


* 






51 


* 


TEST 


ri 


52 


* 






53 


* 


TEST 


E 



M mr >00010 
M"'D00020 
w,n D00030 
M^DOOCUO 
>fT,oo050 

y'DOOOfiO 

M" PT >000 7 O 
w,,,r >00080 
» T D00090 
M^DOOIOO 
M^DOOIIO 
MT>D00120 
W'DOO^O 
M^D00140 
MT-DOOI^O 

M^DOOISO 
M'"D00170 
M"D00180 

M^nooigo 

M^D00200 
M^D00210 
M'"D00220 
*' T 'D00230 
«" , D002«0 
M T D00250 

M^D00270 
MTD00280 
M n, D00290 
MT>00300 
M m D00310 
M^D00320 
MTD00330 
MTD00340 
M"D00350 
M'T'D00360 
" n, D00370 
M^D00380 
M^DOOSgO 
Mi , D00400 
MTD00410 
"■"D90420 

yT D oo430 
f' ! 'D00440 
MTD00450 
htt)00460 
M" , D00470 
M'"D00480 
«^r>G0490 
M^DOOSOO 
M-"D00510 
MTD00520 
M^D00530 
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54 * HTD00540 

55 * TEST F COMMAND-CLEAR SCOPE LOOP MTD00550 

56 * 1TD00560 

57 * HTD00570 
5g * ***************************************************** ******** * T^DOOBSO 
59 **ETPE STD00"i90 
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EXEC 



r TP" 80SP7 



C00O00 
000008 
COOOOA 
COOOOC 
OOOOOE 



0000 0050 



0000 


0001 


0000 


0001 


0000 


0001 


0000 


0001 


0000 


0001 


0000 


0001 


0000 


0001 


0000 


0001 


0000 


0001 


0000 


0000 


0000 


0001 


0000 


0002 


0000 


0003 


0000 


ooou 


0000 


0005 


0000 


0006 


0000 


0007 


0000 


0008 


0000 


0009 


0000 


OOOA 


0000 


OOOB 


0000 


OOOC 


0000 


OOOD 


0000 


OOOE 


0000 


OOOF 



51 
62 
63 
54 
5 5 
66 
57 
68 
69 
70 
71 
72 
73 
74 
75 
75 
77 
79 
79 
80 
81 
82 
83 
84 
85 
85 
87 
88 
89 
90 
91 
92 
93 
94 
95 
95 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 



NLSTC 

$STRUC1 STHUC 
50PTNAEE PS 
$CKBOUT DS 
SVALU1 
$VALU2 



DS 
DS 
ENDS 



SBUFLEH EQU 



90 



OPTION TABLE STRUCTURE 
ASCII OPTION' SA W F 
2(CHECK ROUTINE) 
16-BIT VALUE 
SPARE 



I/O BUFFER LENGTH 



CONDITIONAL ASSEMBLY PARAMETERS TO FOLLOW 
IN ALL CASES, EQUALS DELETE 

1 EQUALS INCLUDE 
TIMER LABEL IS "TIMER" FOR SOFTWARE AND 
HARDWARE, EXCEPT WHEN BOTH ARE INCLUDED. 
THEN LABELS ARE "STIMER" AND "HTIMER" 
RESPECTIVELY. 



$R5BIN 

$DECTAB 

SDECHEX 

SDECASC 

$KBINT 

SCLOCK 

$DISPLAY 

SACTIND 

$BUFIO 

* 

RO 

R1 

R2 

R3 

R4 

R5 

R6 

R7 

R8 

R9 

R10 

S11 

R12 

R13 

R14 

S15 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
FQU 
EQU 
EQU 
EQU 
EQU 
FQU 
EQU 
EQU 
EQU 
EQU 



OUTPUT (R5) IN BINARY 

TABLE OF DECIMAL VALUES 

CONVFRT DECIMAL TO HEX VALUE 

CONVERT DECIMAL TO ASCII CHARS 

RECOGNIZE INTERRUPTS FROM KEYBOARD 

INCLUDE TIMER FUNCTIONS 

HEX DISPLAY PANEL SUPPOR' p 

VDU ACTIVITY INDICATOR SUPPORT 

BUFFER ORIENTED I/O 




1 
2 

3 
4 

6 

7 

3 

9 

10 

11 

12 

13 

14 

15 



»tt)00510 
^■"000620 
M^DOO^O 

M^ooo^no 

1TD00650 
M m D0066C 
N"'D00670 
M"> DOPKRO 
MTD00690 
T , D0O"'OO 
M^D00710 
*? "-000720 
M~D00730 
* ""000740 
"""DOO^SO 
*" , r>00760 
»TD007-70 
M^n00790 
v-"D0f>790 
K"-D00800 
mt'DOO'HO 
M" , D00820 
^"■000830 
tf""D00?O0 
M T D00850 
MTD00P60 
H^D00870 
T'DOOSSO 

mt>oo89o 

HT-000900 
M""D00910 

f m r)00920 

M"-D00930 

y^Dooguo 

MTD00950 
NTD0096O 
M T D00970 
^■^000980 
W"'D09990 
"■"DOIOOO 
V'DOIOIO 
w ""001020 
wt^OIO^O 
M'f'DOIOUO 
I^DOIOSO 

y'ooiofo 
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OOOOOE 



000000:1 

OOOAOO 

OOOAOO 



000A04 
000A08 
OOOAOC 



0000 OAOO 



0000 1D7E 
0000 1C9E 



4300 0A5E 



4300 0A72 
4300 0A72 
4300 0A72 





0000 0006 


000A10 


0101 


000A12 


0010 


000A14 


0011 


000A16 


0002 


000A18 


0002 


000A1A 


0062 


000A1C 


0062 


000A1E 


0010 


000A20 


0011 


000A22 


OOCO 


000A24 


OOCO 


000A26 


0000 


000A28 


0000 



0OOA2A 


0000 




000A2C 


0000 




0OOA2E 


0000 






0000 


0A2F 


000A30 


0000 






0000 


0A31 


000A32 


0000 




000A34 


A1A3 




000A36 


EE61 





108 


ORIGIN 


EQO 


Y'OOAOO 1 


109 




IFNZ 


ORIGINUY'OOFFOOOO 


113 




ELSE 




114 


$ERRF9CH 


EQU 


SERRF9 


115 


SXI32CH 


EQU 


$XI32 


116 




ENDC 




117 




ORG 


ORIGIN 


118 


0RIGIN1 


B 


START 


119 




IFZ 


ADC-2 


123 




ELSE 




124 


0RIGIN2 


B 


START3 


125 




B 


START3 


126 




B 


START3 


127 




ENDC 




128 


* 






129 

130 








* TEST 


CONSTANTS 


131 


* 






132 


$MAXIQ 


EQU 


6 


133 


10 


DC 


X'0101' 


134 


* 






135 


PASXADR 


DC 


X'0010" 


136 




DC 


X'0011' 


137 


CLIFADR 


DC 


X'0002" 


138 




DC 


X'0002* 


139 


LPADR 


DC 


X'0062" 


140 




DC 


X'0062* 


141 


C300ADR 


DC 


X'0010' 


142 




DC 


X'0011 ■ 


143 


HICROBUS 


DC 


X'OOCO* 


144 




DC 


X'OOCO' 


145 




DCX 





145 




DCX 





147 


* 






148 


* 10 = 


0101 


FOR CRT ON PASLA 


149 


* 


0202 


FOR TELETYPE, CAROt 


150 


* 


XX03 


FOR LINE PRINTER 


151 


* 


0404 


FOR CAROUSEL 300 


152 


* 


0505 


FOR MICROBUS 


153 


* 






154 








155 


* ETPE : 


10 COMMANDS 


156 


* 






157 


CONRAPB 


DCX 





158 


CONWADR 


DCX 





159 


* 






160 


CONRD 


DCX 





161 


CONBRT 


EQU 


CONRD+1 


162 


C0N2ND 


DCX 





163 


CONENRD 


EQU 


C0N2ND+1 


154 


CONCMD 


DCX 





165 


CRTRD 


DCX 


A1A3 


166 


CRT 2ND 


DCX 


EE61 



*** CHANGE AS APPLICABLE *** P6 11/80 

P6 11/80 
P6 11/8 
P6 11/80 
P6 11/80 
P6 11/80 
P6 11/80 

START HERE FOR 32-BIT PROCESSOR 



SPECIAL START(S) 



32 BIT PROCESSO 



> MAX VALID IDENTIFIER 
I/O DEVICECS) IDENTIFIER 

PALSA/PALM READ ADDRESS 

PASLA/PALM WRITE ADDRESS 

CURRENT LOOP INTERFACE READ ADDRES 

CURRENT LOOP INTERFACE WRITE ADDRE 

DUMMY FOR LINE PRINTER 

WRITE ADDRESS 

CAROUSEL/PASLA READ ADDRESS 

CAROUSEL/PASLA WRITE ADDRESS 

MICROBUS READ ADDRESS 

MICROBUS WRITE ADDRESS 

PROVISION FOR SPECIAL DEVICE (READ 

WRITE ADDRESS 



CONSOLE DEVICE READ ADDRESS 
CONSOLE DEVICE WRITE ADDRESS 

CONSOLE READ/WRITE COMMANDS 



DUMMY HW AS POINTER 

FOR CRT 



MTD01080 
fT , D01090 

MTD01140 
MTD01150 
MTD01160 
KTD01170 
M^D01180 
»^D01190 

MTD01240 
MTD01250 
MTD01260 
MTD01270 
WTD01?80 
MTD01290 
MTD01300 
STD01310 
MTD01320 
STD01330 
HTD01340 
MTD01350 
MTD01360 
*TD01370 
HTD01380 
MTD01390 
MTD01400 
Mn<D01410 
MTD01420 
MTD01430 
MTD01440 
MTD01450 
»ITD01460 
HTDOIUTO 
M T D01480 
W1-D01490 
MTD01500 
M^DOISIO 
KTT)Q1^20 
M^D01530 
WTD01540 
MTDQ1550 
MTD01S60 
YTD01570 
MTD01^80 
MTD01590 
MTDOI'SOO 
MTD01610 
M^D01620 
MTD01630 
"TD01640 

M^DOieso 
i^Doieeo 
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00OA38 


E4t8 




O00A3A 


0064 




00OA3C 


0080 




000A3£ 


0000 




00OA4O 


A1A3 




000A42 


F061 




000A44 


8202 




000A46 


0082 




000*48 


00 




000A49 


23 




000A4A 


00 




000A4B 


00 




000A4C 


23 




0O0A4D 


00 




000A4E 






000A4E 


0000 




0OOA5O 


70F0 




000A52 


30F0 




000A54 


70F0 




000A56 


0000 




000A58 


0001 




000A5A 


7FFF 




000A5C 


8800 




000 A5E 


48E0 


0A52 


000A62 


E6F0 


0A72 


0OOA66 


DOEO 


0034 


0OOA6A 


DOEO 


0030 


000A6E 


0000 




0OOA70 


2200 


=000 


*000A72 






000A72 


C800 


8000 


000A76 


4000 


1E4E 


000A7A 


ECOO 


0010 


0O0A7E 


4000 


1E30 


000A82 


41S0 


19F8 


000A86 


41F0 


1BD0 


000A8A 


2400 




OO0A8C 


4000 


1E4A 


000A90 


41F0 


1782 


000A94 


41F0 


17E6 


0OOA98 


0000 


2236 


000A9C 


48F0 


1E58 


OOOAAO 


4230 


1394 


00OAA4 


2401 




0OOAA6 


4000 


4000 840C 


OOOAAC 


C800 


6250 


OOOABO 


4000 


2044 



167 

158 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 



CLIFSD 

CLIF2ND 

LPWPT 

CAERD 

CAR2ND 

MREADC 



DCX 
DCX 
DCX 
DCX 
CCX 
DCX 
DCX 
DCX 



E4ES 

0054 

0080 



A1A3 

F061 

8202 

0082 



C0SRQ2S 
CRTRQ2S 



CARRQ2S 



PSW 
PSW 2 
PSW3 

SKLFDEV 
STIKVAL 
SCON 



DB 

DB 

DB 

DB 

D3 

DB 

DCX 

DCX 

DCX 

DCX 

DCX 

DCX 

DCX 

DCX 





X'23' 





X'23' 





70F0 

30F0 

70F0 



1 

7FFF 

8800 



* CURRENT LOOP INTERFACE P3 V80 

P3 3/30 

* LINE PRINTER 
DUKVY FOR LP 

* CAROUSEL 300 



"ICROB'IS 



P2 1/80 



START LH E14,PSW2 

I DAI R15,STAPTA 

STH R14,X'34' 

STM Rl^X'aO' 

DCX 

BS * 

* 

START3 B STAPTA 

STARTA IHI RCX'SOOO 1 

STH R0,ISITERR 

SRL R0,16 

STH R0,HOD32 
* 

BAL R14,STC0N 

BAL R15,LC0RE 

LIS R0,0 

STH RO,$BRKFLG 

BAL R15,CRLF 

BAL R15, SPRINT 

DAC TITLE 

LH E15,$WASDU 

BSZ HALT9 

LIS R0,1 

STH R0,DFNSFLAG 

LHI R0,X"6250' 

STH R0,DENSITY+$VALU1 



CONSOLE REQUEST TO SEND CMD 

FOR CRT 

DUMXY BYTE FOR CLI 

* DUFSY BYTE FOR LP 

* CAROUSEL 300 

* DUK1Y BYTE FOR 3ICR0B1S 
(ALIGN ON HW BOUNDARY) 
RESERVED 

PSW USED IS PROGRAM 

PSW USED IN EXEC 

PSW USED IN INTERRUPT TESTS 

RESERVED 

VIDEO DISPLAY UNIT DEV TYPE P6 11/30 

TIHEOUT CONSTANT 

BREAKPOINT INSTRUCTION 



NEW PSW FOR ILLEGAL INTERRUPT 

AND NEW LOC 

FOR SERIES 16 

FOR SERIES 32 

TAKE AN ILLEGAL INSTRUCTION INT 

HALT IF II NOT ""AKEN 

INSERT SPECIAL ROUTINE HERE 

FORCE TITLE PRINT 

REGISTER PAIR SHIFTED, SERIES 16 

SIGN EXTENSION, SERIES 32. 

SET UP CONSOLE 
SET UP LOW CORE 

NO BREAK KEY YET 

PRINT TEST PROGRAM TITLE 

WAS DEVICE SEEN DU ? 
PRINT TOTAL, TOTFRR 

DENSITY 



mtt)01P70 

y^Doieso 
i^DOieso 

H T D01^00 

*" ,T >oi' 7 ia 

"""D01720 
T"D01730 
M^D01"'40 
w , ' , D01750 
f-DOI^O 
» m D01770 

I»T'T)017B0 
STP01790 
*'"D01800 
MTi)01810 
«?D01820 
•ffr)01830 
""'D01840 
!» '"001850 
N-^D01860 
1""D01870 

f^DOieso 

f^D01890 
^■"DOIPOO 
H^DO^IO 
«Tt)019?0 
WTP01530 
S' 1 'D01940 
f T D01950 
KTD01960 
MTi)01 c '70 
JJ^DOigSO 
»^D01990 
*"'D02000 
f^D02010 
«fTir>2050 
HTD02060 
HfD02070 
"TD02080 
y^DO? 09 ^ 
M* , D02100 
f^D02110 
WT)02 1 ""^ 
WTD02130 
»TTD02m0 
*TD02150 
'»TD021 ,:; 
NTD07170 
"TDQ2150 
fTT)02''90 
M" , D02200 
^TD02?10 
MTD02220 
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0000 


0AB4 


000AB4 


41F0 


1B5E 


000AB8 


41F0 


1782 


OOOABC 


1*820 


0A52 


OOOACO 


4020 


1E4E 


000AC4 


9512 




000AC6 


2400 




000AC8 


4000 


1E4A 


OOOACC 


4000 


1E40 


000 ADO 


41F0 


1B5E 


000AD4 


7300 


4000 8404 


OOOADA 


4000 


200C 


OOOADE 


D340 


1F40 


000AE2 


41F0 


18C4 


000AE6 


2541 




000AE8 


41F0 


18C4 


OOOAEC 


41F0 


1964 



OOOAFO 
000AF4 
000AF8 
000 AFA 
OOOAFC 
OOOBOO 
000B02 
000B0.4 
OOOBOA 
OOOBOE 
000B10 
000B12 

*000B16 
000B18 
000B1C 

♦0O0B1E 
000B20 
000B22 
000B24 
000B28 
00OB2C 

*000B2E 

O0OE3O 
000B32 
000B36 



E6C0 


1A7C 




C810 


2146 




2460 






2U30 






D351 


0000 




0855 






033C 






D343 


4000 


8 8FC 


D351 


0000 




2631 






2611 






C350 


0080 




233D 




=000630 


C450 


007F 




0545 






223D 




=000B04 


2661 






0855 






4330 


OAFA 




D351 


0000 




2611 






2206 




=000B22 


0545 






4330 


0BO4 




0855 







223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
27 3 
274 
275 



KEYBOARD INPUT ROUTINE 



OPTIN 



0PTIN1 



EQU 


* 


BAL 


E15,SETKB 


BAL 


R15,CRLF 


LH 


B2,PSW2 


STH 


E2,ISITEER 


FPSE 


R1,E2 


LIS 


R0,0 


STH 


R0,$BEKFLG 


STH 


RO,SNLFFLAG 


BAL 


R15,SETKB 


LHL 


RO,BYSAV 


STH 


R0,BYTES+$VALU1 


LB 


S4,AHSG 


BAL 


R15,0UTCHR 


LCS 


R4,1 


BAL 


R15,0UTCHR 


BAL 


E15,$READ 



COHHAND DECODE 



HATCH LDAI 
LHI 
LIS 

HATCH. 01 LIS 
LB 
LE 
EZS 

HATCH. 02 LB 
LB 
AIS 
AIS 
THI 
BZ 
NHI 
CLE 
BE 

HATCH. 03 AIS 

HATCH. 04 LE 
BZ 
LB 
AIS 
B 

* 

HATCH. 05 CLE 

BE 
HATCH. 06 LR 



R12,QUESTN 

R1, OPT. TAB 

R6,0 

E3,0 

R5,0(R1) 

R5,E5 

R12 

B4,$INBUF(B3) 

R5,0(ED 

B3,1 

B1,1 

RSjX'SO" 

HATCH. 05 

R4,R5 
HATCH. 02 
S6,1 
R5,R5 
HATCH. 01 
B5,0(B1) 
B1,1 
HATCH. 04 

R4,E5 

KATCH.02 

R5,R5 



ESTABLISH CONSOLE 

SPEC'D AS X'30F0' 

FOECE EXEC HESSAGE PRINT 

NO INT. REG SET 15 

NO BRK TERH QUEUE, NOHSG>0 

DISABLE ACTIVITY INDICATOR 
ESTABLISH CONSOLE 
GET ORIGINAL VALUE 
RESTORE BYTES OPTION 
OUTPUT AS * TO INDICATE 
COHHAND SODS ESTABLISHED 
X'FF' 

GET INPUT RECOBD 



P1 

P1 
P6 



10/79 
10/79 
11/80 



*** * 



GLOBAL E3B0R ROUTINE *** 

ADDRESS OF OPTION TABLE IN P1*** 

BACK TO START OF INBUF 

CLEAR R3 

LOAD BYTE FROH TABLE **** 

END OF TABLE, NO HATCH **** 

LOAD CONTENTS OF INBUF INTO **** 

LOAD A BYTE FROH OPTION TAB **** 

INCREHENT E3 

INCBEKENT B1 

HATCH REQUIRED? 

SKIP IF NO 

HASK TO 7-BIT ASCII 

COHPABE R4 TO R5 

IF EQUAL, TRY NEXT BYTE 

INCREHENT R6 

SKIP TO NEXT TABLE ENTRY 

* 

LOAD THE NEXT BYTE 
INCREHENT P, 1 BY 1 






***■* 
**** 

* *+ i 



HATCH NOT REQUIRED **** 

COHPABE TABLE AND BUFFER ANY **** 
IF EQUAL, SEE IF NEXT BYTE HA*** J 
NO HATCH, DONE WITH "ABLE ENTR***" 



HTD02230 
HTD02240 
HTD02250 
HTD02260 
HTD02270 
HTD02280 
HTD02290 
HTD02300 
HTn02''10 
MTD02320 
HTD02330 
HTD02340 
HTD02350 
HTD02360 
H' n D02370 
HTD02380 
HTD02390 
HTD02400 
HTD02410 
H' I 'D02420 
HTD02430 
HT002440 
HTD02450 
HTD02460 
H"?D02470 
HTD02480 
H T D02490 
HTD02500 
H T D02510 
HTD02520 
HTD02530 
H'< , D02540 
HT , D02550 
HTD02560 
H^D02570 
H" , D02580 
HTD02 c ;90 
H , ' , D02«00 
HTD02610 
HTD026 20 
H n, D02630 
HTD02640 
H' r D02650 
HTD02660 
HT , D02670 
HTD02680 
Hn>02690 
HTD02700 
HTD02710 
HTDO2720 
>f , D02730 
HTD02 7 40 
HTD02750 
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3X5C - 



*000P38 
000B3A 
000B3F 
O00B4O 
000E42 

•000B46 
0OOB48 
000B4C 
000350 
000B54 

*000B58 
000B5A 
000B5C 

O0OB5E 
000B60 
000B64 
000B68 
000B6A 
000B6E 

000B70 
000B72 
000B74 
000B76 
000B78 
00057A 
000B7C 
00037E 
000B80 
000B82 
000B84 
000B86 
000B88 
000B8A 
OO0B8C 
00OB8E 
O00B90 
000B92 
000B94 
000B96 
000B98 
000B9A 
000B9C 
000B9E 
OOOEAO 
000BA2 
000BA4 
000BA6 
000BA8 
OOOBAA 
OOOBAC 
OOOBAE 



ETPE R05P7 




2335 




=0OOB42 


0351 


0000 




2611 






2205 




=000B36 


C540 


OOOD 




233C 




=000P5F 


C540 


0020 




4230 


0B20 




D353 


0000 




C550 


0020 




2133 




=0OOB5F 


2631 






2206 




=0OOF5O 


1162 






48F6 


0B70 




C540 


OOOD 




033F 






48F6 


0B72 




030F 






OBCC 






OBCC 






0C1A 






0C1E 






0C36 






0C3A 






0C4C 






0C52 






0C64 






0C68 






0CD2 






0CD6 






0CE2 






OCEC 






106E 






1074 






05E0 






0EE6 






OECA 






OECE 






0D1A 






0D7E 






0DE2 






ODBC 






OEBA 






OEBE 






0F9E 






0FA2 






0FB4 






0FB8 






OFCE 






0FD2 







276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 



MATCH. 07 



HATCH. 08 



HATCH. 09 



LB 

AIS 

3S 

CLHI 

BE 

CLHI 

ENE 

L3 

CLHI 

BNE 

AIS 

3S 

SLLS 

LH 

CLHI 

BER 

LH 

BR 



OPT.PROC DC 

DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
PC 
DC 
DC 



PATCH. 07 

?.F,0(31) 

31,1 

MATCH. 06 

54,X , 0D' 

HATCH. 09 

R4,X'20' 

MATCH. 03 

?5,0(R3) 

RSfX^O' 

XATCR.09 

S3,1 

?ATCH.08 

S5,2 

R15,0PT.PR0C(R6) 

?,4,X"0D' 

R15 



BRANCH IF YFS 

ELSE, SKIP REST OF THIS FNTRY**** 

* 

TEST IN^TJF TERMINATOR 

IF [CR] , RETURN 

IS ?4(TERSINATING CHAR) = SPA 

IF SO, TRY TO HATCH NEXT 

YES, SKIP EXTRA SPACES 

IS ?.5= SPACE 

N0.5FTURN 

INCEEWFST TABLE POINTER 



POSITION INDEX 

CARP.IAGE RETURH FOLLOWING 0P' r 
YES, DEFAULT VALUE 



R15,0PT.PR0C+2(R6) ELSE OTHER VALUE 
R15 * 

Z($TESTOP),Z($TESTOP) * 

Z(IOOP.DEF),Z(LOOP.CKD) * 

Z(CONT.DFF),Z(CONT.CND) * 

Z(BYTE.DEF),Z(BYTF.CMD) * 

Z(COK.DEF),Z(COM.C!ID) * 

Z(DATA.DEF),Z(DATA.CHD) * 

Z(DENS.DEF),Z(DENS.CHD) * 

Z(DEIV.DEF),Z(D8IV.CKD) * 

Z(DRVS.DEF),Z(DRVS.CHD) * 

Z(DRVT.DEF),Z(DRVT.CMD) * 

Z(DUMP.DEF),Z(DUHP.CMD) * 

Z(EXTD.DEF),Z(EXTD.CKD) * 

Z(FILE.DFF),Z(FILE.C??D) * 

Z(FIF.DEF),Z(FIF.C*D) * 

Z(INT.DEF),Z(INT.CMD) * 

Z(ONL.DFF),Z(OHL.C«D) * 



#* + + 


!frno2' T SO 


* ** * 


f" n D02770 


*** * 


"TD02780 


*** * 


"""D02790 


* ** * 


y^D02800 


**** 


"TD02810 


**** 


tfTD02820 


** + * 


K'!'T>02830 


*** * 


«fD02840 


**** 


MTD02850 


**** 


*'" , )02860 


**** 


"TD02870 


* ** * 


VD028 80 


* *** 


TTDO2890 




MTD02900 


**** 


M^D02910 




VTD02920 




MTr>02930 




M^D02940 


**** 


HTD02950 


**** 


JTTD02960 


**** 


mt , D02970 


**** 


*^D02980 


* ** * 


mt)q2990 


* *** 


»f'D03000 


*** 


"■"D03010 


* *** 


"TD03020 


* * ** 


sjTr)03030 


* ** * 


fTT)03040 


* * * * 


"TD03050 


* * * * 


fTD03060 


* ** * 


TTD03070 


• * * * 


M T D03080 


* * # * 


1i"D03090 


* * * * 


"TD03100 


R01 


WTD03110 


* * * * 


HTD03120 
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000BB0. 

000BB2 

0003B4 

000BB6 

O00BB8 

OOOBBA 

OOOEBC 

OOOBBE 

OOOBCO 

000BC2 

000BC4 

000BC6 

000BC8 

OOOBCA 

OOOBCC 
OOOBDO 
000BD4 
000BD6 
OOOBDA 
OOOBDE 
OOOEEO 
000BE2 

000BE4 
000BE8 
OOOBEC 
OOOBEE 
OOOBFO 
000BF2 
000BF6 
000BF8 
OOOBFA 
OOOBFC 
OOOBFE 
OOOCOO 
000C02 
000C04 
000C08 
OOOCOC 
OOOCOE 
000C12 
000C16 



1128 




1128 




0FE4 




0FE8 




1000 




1006 




1280 




1280 




1012 




1018 




1024 




102A 




103C 




1040 




4890 


21EE 


4880 


21F0 


274D 




4330 


OCOE 


CB40 


0013 


023C 




2490 




2480 




41E0 


15EC 


4960 


2234 


022C 




24E8 




11 EC 




CCE6 


0000 


276F 




2123 


=OOOEFE 


069E 




2302 


=000C00 


068E 




274D 




2336 


=000C0E 


CB40 


001F 


4330 


0BE4 


030C 




4090 


1FE2 


4080 


1FE4 


4300 


OABC 



0O0C1A 


2460 






*000C1C 


2306 




=0OOC28 


000C1E 


41F0 


1052 




000C22 


C560 


0003 




000C26 


038C 






O00C28 


4060 


1FF0 





313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 



STESTOP 



DC 
DC 
DC 
DC 
DC 
DC 
DC 



LH 

LH 

SIS 

BZ 

SHI 

BNZR 

LIS 

LIS 



STST0P.1 BAL 
CH 
BPE 
LIS 
SLLS 
SRHL 
SIS 
BPS 
CAR 
BS 

STST0P.3 OAR 

STST0P.4 SIS 
BZS 
SHI 
PZ 
B5 

$TST0P.5 STH 
STH 
B 



Z($OPTPET),Z($OPTPBT) * 
Z(PBO.DEF),Z(PRO.CHD) * 
Z(EEC.DEF),Z(EEC.CHD) * 

Z(SELC.DEF), ZCSELC.CMD) 
Z(TIM.DEF),Z(TIM.CMD) * 
Z(TR».DEF),Z(TRM.CMD) * 



R9,DEFTESTS 

R8,DEFTESTS+2 

R4,X'0D' 

STST0P.5 

R4,C" •-X'OD* 

E12 

E9,0 

F8,0 

R14,0PTVAL 

R6,KAXTST 

R12 

R14,8 

314,12 

E14,0(E6) 

H6,15 

STST0P.3 

R9,R14 

STST0P.4 

R8,E14 

R4,X'0D" 

STST0P.5 

R4,C , ,"-X , 0D' 

STST0P.1 

R12 

R9,TEST+$VAL01 

R8,TEST+$YALU2 

0PTIN1 



* OPTION CHECK ROUTINES 

LOOP.DEF LIS ?6,0 

B L00P.1 

LOOP.CMD BAL R15,SPACHK 

CLHI R6,3 

BNLR 312 

L00P.1 STH E6,L00P+$VALU1 



ASSUME DEFAULT REQUIRED 

CARRIAGE RETURN ? 
BRANCH: YES. 
HAS SPACE 1 
BRANCH: INPUT ERROR. 
CLEAR ACCUMULATORS 



GET OPTION VALUE IN R6 
VALID TEST NUMBER ? 
ERROR: INVALID TEST NUMBER 

(R14) = -SOOO' 
UNARY OPERAND 
TEST 16:31 ? 
BRANCH: YES. 
SET CURRENT BIT 

SET CURRENT BIT 

CHD TERMINATED BY CR ? 

BRANCH: YES. 

WAS COMMA ? 

BRANCH: YES. TRY AGAIN. 

INPUT ERROR. 

STORE VALID SELECTED TESTS 

TO ACCEPT NEXT COMMAND 



DEFAULT VALUE 

SAVE IT 

CHECK FOR SPACES 

COMPARE TO MAXIMUM ALLOWED VA**** 

ERROR IF > 

SAVE VALUE 



**** 


MTD03130 


**** 


1TD03140 


**** 


"TD03150 


**** 


HTD0 31«0 


* *** 


MTD03170 


**** 


MTD03180 


**** 


MTD03190 




KTD03200 




MTD03210 




MTD03220 




MTD03230 




MTD03240 




MTD03250 




MTD03260 




MTD03270 




M'"D03280 




MTD03290 




MTD03300 




MTD03310 




MTD03320 




M^D03330 




M^D03340 




MTD03350 




M^DOSSeO 




MTD03370 




M^D03380 




MTD03390 




MTD03400 




MTD03410 




MTD03420 




MTD03430 




MTT)03440 




MTD03450 




MTD034S0 




M^D03470 




M'"D03480 




MTD03490 




M^D03500 




M-TD 03 MO 




Mi , D03520 


**** 


Mn>03530 


**** 


MTD03540 


**** 


MTDOSSSO 


^* *** 


'f'D03560 


**** 


MTD03570 


* *** 


MTD03580 
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000C2C 
000C32 

000C35 
*O0OC3S 
O0OC3A 
000C3E 
000C42 
000C44 
000C48 

000C4C 
*000C50 
000C52 
OO0C56 
000C5A 
000C60 

000C64 
*000C66 
000C68 
000C6C 
000C6E 
000C72 
000C76 
00OC78 
000C7A 
O0OC7E 
000C82 
0C0C86 
00OC8A 
000C8E 
O0OC92 
00OC96 
0O0C9A 
O0OC9C 
OOOCAO 
000CA4 
OO0CA8 
OOOCAC 
OOCCBO 
0O0CB2 
C00CB6 
*Q00CBA 
OOOCBC 
OOOCCO 
000CC4 
000CC6 
OCOCCA 
OOOCCC 
OOOCC" 

0OOCD2 



4060 


4000 


£402 


4 300 


OABC 




2460 






2306 




=000C44 


41"0 


1052 




C360 


FFFE 




023C 






40 60 


1FFE 




4300 


0A3C 




C8S0 


007F 




2303 




=000C56 


41F0 


1052 




4060 


200C 




4060 


4000 


8404 


4300 


OABC 




2460 






2309 




=000C78 


C540 


0020 




02 3C 






41E0 


15EC 




C360 


FFOO 




023C 






24S0 






4060 


201A 




40E0 


201C 




40E0 


2028 




40E0 


202A 




C540 


002C 




4230 


OCCA 




41E0 


15EC 




C360 


FFOO 




023C 






4060 


201C 




C540 


002C 




4230 


OCCA 




41E0 


15EC 




C360 


FFOO 




023C 






4060 


2028 




C540 


002C 




2133 




=000CC» 


4 1 EO 


15EC 




C360 


FFOO 




02 3 C 






4050 


202A 




274D 






023C 






4300 


0A3C 





24t0 



359 

360 

361 

362 

353 

354 

36 5 

366 

357 

353 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

330 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

395 

397 

398 

399 

400 

401 

402 

403 

404 

405 

405 

407 

408 

409 

410 

411 



R 

* 

CONT.DEF LIS 

CONT.CD EAL 
T L * I 
3NZR 

C0ST.1 S7H 

B 



BYTE. 



LHI 

3 

BYTE.CMD BAI 

BYTE.1 STH 

STH 



COK.CSF 
COH.CMD 

COS.O 



COS. 



LIS 

3 

CLHI 

BNEB 

HAL 

THI 

3NZR 

LIS 

STH 

STH 

STH 

STH 

CLHI 

3NE 

3AL 

THI 

BN'ZS 

CLHI 

BN'E 

BAL 

THI 

3NZE 

CLHI 

BNE 

3AL 

THI 

3NZR 

STH 

SIS 

~ 'I Z R 



R6, LOOP. OPT 
0P?I»1 

R5,0- 

COS^.I 

R15,SPACHK 

?6,X"FFFE* 

P12 

R6,CDNTIN+$VALU1 

0PTIN1 

R6,X'7F" 

3YTE.1 

R15,SPACHK 

R6,3YTES+SVAL'J1 

R6,BYSAV 

0PTIN1 



DEFAULT VAt'TF 

SAVE IT 

CHECK FOR SPACE FOLLOWING 

IGNORE L^B 

E3RCR RETURN* 

SAVE VAL'JE 

* #£ 

DEFAUL'" VAL'JE 

SAVE IT 

CHECK FOR SPACES 

SAVE VAL'JE 

STORE ISTO SAVE AREA TOO! 



DEFAULT VALUE 
SAVE IT 

CHECK FOR SPACE 
ERROR RETURN (?) 
GET VALUE INTO R6 
O-FF ACCEPTABLE 
V R?QR RET'JRf? 



****** 
****** 



R6,0 

C0«.0 

R4,C" ' 

R12 

R14,0PTVAL 

He/X'FFOO' 

R12 

R14,0 * 

Re/COHHAJ'D+SVALUI * 

R14,C0PKAND+$VALU2 * 

R14,C0KKAND+SVALU1+2STR"C1 

R14,C0HHAND+$VALU2+$S?RUC1 

R4,C*,' * 

C0H.1 

R14,0PTVAL 

S6,X'FF00" 

P12 

R5,C0MHAND+SVALU2 

P.ii,C',' 

C0H.1 * 

R14,0PTVAL 

RS^'FFOO' * 

R12 ERROR RETURN 

R6,C0M9AMD+SVALU1+$ST?UC1 ****** 

R4,C',' CHECK FOR 4TH I^pHT 

C0H.1 * 

R14,0PTVAL * 

F.e^'FFOO' * 

R12 ^RPOP RETURN 

R6,C0HMAND+$VALU2+$3~?UC1 SAVE INTO 

R4,X'0D' CARRIAGE RETURN 

R12 "0, r R"OR RETURN 

0PTIK1 OUTPUT * 



1 INPUT 



SAVE 2ND VALUE ISTO ^ABLE 



TABL^ 
^ N T E T,r ^ ? 



DATA. T IF LIS 



R6,0 



DEFAVL* 71 VALUE 



* *** 
*** * 
**** 

* * * * 

* ** * 

OPT**** 

* ** * 

* * * * 

* ** * 

* ** * 
**** 

* ** * 
**** 

* ** * 
**** 

** * * 

**** 

* * * * 
*** * 

* ** * 

* * ** 

* * * * 

* * ** 

* *** 
**** 

***** 
****** 



* ** * 
****** 
****** 

*** + 
**** 

* ** * 

* ** * 
****** 

**** 

* ** * 
*** * 

* ** * 
****** 

* * * * 

* * * * 

* * * * 

* * * * 

* ** * 

* * * * 
*** * 

* * * * 

* * * * 



f m 003600 
•^03*10 
'(^n03fi20 
"■"no^^n 
YTD03640 

f ""1)0 3*60 
v t 1)03670 

f T n036P0 
H™D0?690 
T'D03700 

"■"D03720 
*" , D03T30 
^003740 
»TD03750 
>?Tp03760 
*'"D03770 
^^^03780 
*' p D03790 
fTJ>03800 

, »TD03e2C 
*TT)03830 
y"D03940 
"TDOSOSO 
"f?003«60 
H^D03R70 
"TD03880 
» m D0389Q 
>(Tn03900 
wn, D03910 
^ ,7, D03920 
wTno39TO 
^■"003940 
W"D0?Q50 
MTD03960 
^'"003970 
"^003980 

M^Dosggo 

""■004000 
>!' r D04010 
»tt)04020 
MT004030 
MTD04040 

^tdouoso 

■/T304050 
" m D04070 
r^D04080 
VTD04090 
>tT004100 
VTDQ41 10 
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EXEC - 


- STPE R05P7 














*000CD4 


2303 




=0OOCDA 


412 






B 


DATA.1 


000CD6 


41F0 


1052 




413 


DATA. 


,CWD 


BAL 


515,SPACHK 


OOOCDA 


4060 


2036 




414 


DATA. 


.1 


STH 


R6,DATA+SVALU1 


OOOCDE 


4300 


OABC 




415 
416 


* 




R 


0PTIN1 


000CE2 


C860 


6250 




417 


DENS. 


,DEF 


LHI 


R6,X'6250* 


O0OCE5 


2401 






418 






LIS 


P0,1 


000CE8 


4300 


ODOC 




419 






B 


LEVELA.1 


OOOCEC 


41F0 


1052 




420 


DENS. 


,CMD 


BAL 


315,SPACHK 


OOOCFC 


C560 


6250 




421 






CLHI 


R6,X*6250" 


*O0OCF4 


2133 




=0OOCFS 


422 






BSE 


DENS.O 


000CF6 


2401 






423 






LIS 


R0,1 


*000CF8 


230A 




=OOODOC 


424 






B 


LEVELA. 1 


OOOCFA 


C560 


1600 




425 


DENS. 


,0 


CLHI 


R6,X'1600' 


*OOOCFE 


2133 




=000D04 


426 






BNE 


DENS.1 


OOODOO 


2400 






427 






LIS 


R0,0 


*OOOD02 


2305 




=000D0C 


428 






B 


LEVELA.1 


000D04 


C560 


0800 




429 


DENS. 


.1 


CLHI 


^x'soo- 


000D08 


023C 






430 






BNER 


R12 


OOODOA 


2402 






431 






LIS 


R0,2 


OOODOC 


4000 


4000 


840C 


432 


LEVELA.1 


STH 


R0,DENSFLAG 


000D12 


4060 


2044 




433 






STH 


R6,DENSITY+$VALU1 


00OD16 


4300 


OABC 




434 
435 


* 




B 


0PTIN1 


000D1A 


41F0 


4000 


838C 


436 


DUHP. 


.DEF 


BAL 


R15,L0OPT0P 


000D20 


0000 


ODDE 




437 






DAC 


DUHP. END 


000D2U 


0000 


ODDE 




438 






DAC 


DUMP. END 


OO0D28 


4810 


4000 


8408 


439 






LH 


R1,DRIVSAV 


000D2E 


4300 


0DB8 




440 






B 


DUMP. 2 


000D32 


2420 






441 


DO 




LIS 


R2,0 


000D34 


2450 






442 


DO.O 




LIS 


R5,0 


000P3S 


41F0 


1A8C 




443 


D1 




BAL 


R15,TSTBRK 


000D3A 


0832 






444 






LR 


R3,S2 


000D3C 


1031 






445 






SRLS 


R3,1 


000D3E 


D343 


4001 


89D0 


446 






LB 


R4,READBUF(R3) 


000D44 


2182 




=000048 


447 






BCS 


D2 


00QD46 


1044 






448 






SRLS 


R4,4 


000D48 


4530 


200C 




449 


D2 




CLH 


R3,BYTES+$VALU1 


*0OOD4C 


2135 




=000D56 


450 






BNE 


D2.1 


0OOD4E 


41F0 


1782 




451 






BAL 


R15,CRLF 


000D52 


4300 


OABC 




452 






B 


0PTIN1 


000D56 


C440 


OOOF 




453 


D2.1 




NHI 


R4,X'F* 


000D5A 


CA40 


0030 




454 






AHI 


R4,C , 0" 


000D5E 


C540 


003A 




455 






CLHI 


R4,X'3A" 


*000D62 


2182 




=000D66 


456 






BL 


D3 


000D64 


2547 






457 






AIS 


R4,7 


000D66 


41F0 


18C4 




453 


D3 




BAL 


R15,0UTCHR 


000D6A 


2621 






459 






AIS 


R2,1 


000D6C 


2651 






460 






AIS 


R5,1 


000D6E 


C550 


0033 




461 






CLHI 


R5,51 


000D72 


4280 


0D36 




462 






BL 


D1 


000D76 


41F0 


1782 




463 






BAL 


R15,CRLF 


000D7A 


4300 


0D34 




464 






B 


DO.O 



CHECK FOR SPACE 
SAVE VALUE 



DEFAULT VALUE 

S250 FLAG NUMBER 

GO SAVE 

CHECK FOR SPACE FOLLOWING OP 

IS IT A 6250 DENSITY? 

IF NO, CHECK OTHER DENSITY 

6250 FLAG INDICATION 

STORE VALUES 

IS IT A 1600 DENSITY? 

IF NOT, CHECK 800 

1600 FLAG INDICATION 

STORE VALUES 

IS IT A 800 DENSITY? 

ELSE ERROR RETURN 

800 FLAG INDICATION 

SE.T DENSITY FLAG 

SAVE VALUE 



ADDRESS SET UP 

PASS ADDR 

PROC ADD? 

GET DRIVE ADDRESS 

FILL READBUF 

SET UPT INDEX REGISTER 

CLEAR A CHAR COUNT REGISTER 

CHECK FOR BREAK DEPRESSION 



ADJUST FOR BIT 



INCREMENT BYTES OUTPUT 
REACHED LIMIT 



ASCII CONVERSION 
LETTER A OR > 
NO 

ELSE SET UP FOR LETTERS 
OUTPUT THE CHARACTER TO 
INCREMENT BYTE LOC 
INCREMENT CHARACTER P/L 
COMPARE TO SAX 
CONTINUE IF LESS THAN 
OTHERWISE, ISSUF CCR) - 
PE-INIT CHAR PER LINE 



**** 

* •* * 
**** 

* + ** 
**** 
#*** 

**** 

* + ■* ■ * 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
***• 
+ *** 
**** 

R01 
R01 
R01 
R01 
R01 
R01 
#*** 

**** 

**** 

**** 

**** 

*•** 

**** 

R01 

R01 

**** 

**** 

**** 

**** 

**** 

**** 

**** 

CONSO**** 
**** 

COUNT**** 
**** 

* *** 

(LF) **** 
**** 



M r ''D04120 
MTD04130 
HTD04140 
M'"D04150 
1TD04160 
W TD04170 
M^D0418fl 
MTDQ4190 
w-"D04200 
MTT>04210 
WTD04220 
M ,n D04230 
MTD04240 
HTD04250 
MTD04260 
M'"D04270 
K"'D04280 
MTD04290 
HTD04300 
MT004310 
"Tr>04320 
HTD04330 
MTD04340 
Ml , t)043 c ;0 
"['"D04360 
MTD04370 
»f'D04380 
1^004390 
MTD04400 
MTD04410 
KTD04420 
MTD04430 
»;tdo4440 
MTD04450 
MTD044«0 
MTD04470 
M^D04480 
MTD04490 
VTD04500 
MTD04510 
MTD04520 
1^004^30 
MTD04540 
1(^004550 
MT0045SO 
MTD04570 
MTD04580 
MTD04590 
M^D04600 
>f , D04610 
MTD04«20 
?fTlM)4«30 

WTT)04S40 
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465 


* 












^ m D04«50 


000D7E 


41F0 


4000 


838C 


456 


DUHP 


• CHD 


3AL 


R15,L00PT0F 


SET UP ADD3 


R01 


, f'D04660 


000D84 


0000 


ODDE 




457 






DAC 


DUMP. END 


PASS ADD' 


R01 


M" , D04670 


00OD88 


0000 


ODDS 




468 






DAC 


DUKP.END 


P30C ADD" 


R01 


W' n D04680 


000D8C 


41F0 


1052 




469 






BAL 


E15,3PACHK 


CHECK FOE SPACE 


* ** * 


1' r D04690 


000D90 


4060 


2098 




470 






STH 


R6,DU9P+$VALU1 


* 


*•** 


MTD04700 


0OOD94 


4810 


4000 


6408 


471 






Lri 


P1,D3IVSAV 


DRIVE WORKING WITH CURPENTLV **** 


M" , D04'M0 


000D9A 


41E0 


4000 


7B9A 


472 






PAL 


R14,CCLEAR 


CLEAR INTERFACE 


R01 


KTD04720 


OOODAO 


41F0 


4000 


80D2 


473 






BAL 


P15,EEWHT 


REWIND TAPE 


*** + 


f?D04730 


000DA6 


0866 






474 






LP. 


R6,R6 


LOOK AT R6 


R01 


5 m D04"'40 


*nnnni o 


23 38 




=000PB8 


475 






BZ 


DUSP .2 


THFA'" 71 2ER0 ENTRY AS ONE 


R01 


«H , D04750 


OOODAA 


2761 






475 






SIS 


F6,1 


DECREMENT RECORD VALUE 


* * ** 


HTD04760 


*OOODAC 


2336 




=00CDB8 


477 






3Z 


DUWP.2 


* 


* *** 


fTD0U7"'0 


OOODAE 


41E0 


4000 


7C66 


478 


DUHPC1 


BAL 


S14,CSKFB 


SKIP FORWARD RECORD 


**** 


f p D04780 


0OODB4 


2751 






479 






SIS 


R6,1 


* 


**** 


"»TD04790 


♦000DB6 


2034 




=0OODAF 


430 






3NZ 


DUHPC1 


* 


* •* * 


y m D04 ( ?00 


0OODB8 


2420 






481 


DUHP, 


.2 


LIS 


B2,0 


* 


**** 


wti)04«10 


OOODBA 


7350 


200C 




432 






LHL 


R5,BYTES+$VALU1 


GET BYTES VALUE 




NTD04A20 


OOODBE 


2751 






483 






SIS 


35,1 


ADJUST FOR HALFWORD READS 




»f'U04830 


OOODCO 


41E0 


4000 


7C5A 


484 






SAL 


R14,CREAD 


PUT INTO READ HODE 


**** 


•? ""004840 


OO0DC6 


41E0 


4000 


7C22 


485 


DUHP, 


.2A 


BAL 


R14,SENSTA3 


SENSE STATUS OF DRIVE INTFACE**** 


HTD04850 


OOODCC 


9912 


4001 


89D0 


436 






EH 


R1,READBUF(R2) 


READ OFF TAPE INTO 3CFFEP 


+ ** * 


M^Doaseo 


0O0DD2 


2622 






437 






AIS 


R2,2 


* 


**** 


*!' T, D04S70 


000DD4 


2752 






438 






SIS 


P5,2 


DECREMENT BYTES VALUE 




1TD04880 


*00ODD6 


2288 




=0OODC6 


489 






BNL 


D0MP.2A 


CONTINUE READS 




K n, D04R°0 


000DD8 


41E0 


4000 


7BF4 


490 






BAL 


R14,SENSTA1 


WAIT FOR NO MOTION 


* ** + 


H'"D04900 


OOODDE 


4300 


0D32 




491 
492 


DUMP. 
* 


,ESD 


3 


DO 


DISPLAY ON LIST DEVICE 


301* 
* ** * 


*TD04910 
1 m D04920 


000DE2 


C860 


0085 




493 


EXTD. 


.DEF 


LHI 


R6,X'85' 


DEFAULT IS DRIVE ADDR 85 


R01 


fTD04930 


000DE6 


4060 


20A6 




494 






STH 


36,EXTDRVS+$VALU1 


SAVE VALUE 


* ** * 


IJTD04940 


♦OOODEA 


230B 




=000E00 


495 






3 


EXTD. 00 


GO PROCESS 


R01 


W'D04950 


OOODEC 


C540 


0020 




496 


EXTD. 


,CMD 


CLKI 


R4,C ' 


FOLLOWED BY SPACE 


**** 


VTD04960 


OOODFO 


023C 






497 






BN3R 


R12 


IF NOT, ERROR. 


* * * * 


M"'D04970 


000DF2 


41E0 


15EC 




498 






BAL 


S14,0PTVAL 


GFT VALUE 


* ** * 


"TD04980 


0OODF6 


C360 


FCOO 




499 






THI 


Ee^'FCOO" 


IS IT LEGAL ADDRESS 


*** * 


YTD04990 


OOODFA 


023C 






500 






BNZR 


512 


IF NOT, ERR03 


* * ** 


, '" P D05000 


OOODFC 


4060 


20A6 




501 






STH 


R6,EXTDRYS+$VALU1 


ELSE SAVE IT 


**** 


^^005010 


OOOEOO 


0815 






502 


EXTD. 


00 


LS 


R1,R6 


GET DRIVE ADDRESS 


301 


fTD05020 


000E02 


41E0 


4000 


7BDC 


503 






BAL 


R14,SENSTA 


CHECK STATUS OF DRIVE 


**** 


VDOSOSO 


000E08 


C330 


0001 




504 






THI 


R3,X'01 * 


IS DRIVE DU? 


* * * * 


"TD05040 


*OOOEOC 


233F 




=0 0OF2A 


505 






BZ 


EXTD.O 


NO 


* * * * 


ITDO^O^O 


OOOEOE 


2403 






506 






LIS 


R0,3 


3 DIGITS 


* * * + 


^roosoeo 


OOOE10 


0311 






507 






13 


R1,R1 


DRIVE ADDRESS 


* * * + 


"'"005070 


000E12 


E620 


4000 


8880 


508 






LA 


32,DEVOFF+6 


DRIVE *** IS OFF LINE 


* * * * 


W ' T 'D05080 


COOF13 


41F0 


1680 




509 






BAL 


315,HEXASC 


* 


* * * * 


M m D05090 


0OOF1C 


E650 


"000 


887A 


510 






LA 


E5,DFV0FF 


* 


* * * + y 


fTD05100 


000E22 


4 1F0 


1302 




511 






BAL 


315, PRINT 


OUTPUT OFF LINE »ESG 


**** y 


VTH05110 


000E26 


4 300 


0A3C 




512 






3 


0PTIN1 


STOP AND OUTPUT * 


*** * 


1TD0S120 


000 P 2A 


41^0 


4000 


8216 


513 


EXTD. 





BAL 


315,SNS.C0*1 


GET DEVICE STAT HALFWORDS 


*** + 


"TD0513O 


000230 


4300 


208A 




514 






LH 


R0,DEVTY?E+SVALU1 


LOOK IF STC OR TELEX 


* * * * 


yTT)05140 


♦000E34 


213E 




=00CF5C 


515 






3NZ 


FXTD.OA 


""ELEX IF NON ZERO 


* * * * 


w^nOM ^0 


0O0E35 


5550 


4000 


875A 


516 






LA 


H5,DS3!*SG 


LOAD 0-3 DSH 


* * * * 


*T05160 


000E3C 


41F0 


1802 




517 






BAL 


315, PRINT 


OUTPUT IF POSSIBLE 


+ * * * v 


WTD0M70 
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EXEC - 


- ETPE R05P7 




















000E40 


E650 


4000 


87A4 


518 






LA 


R5,DSB4MSG 


LOAD 4TH DSH 


**** 


•f^DO5180 


0OOE46 


41F0 


4000 


836E 


519 






BAL 


R15,L00P2 


OUTPUT IF POSSIBLE 


* *** 


H MTD05190 


000E4C 


4300 


OABC 




520 






B 


CPTIN1 


OUTPUT * 


* * * * 


MTD05200 


000E50 


E650 


4000 


875A 


521 


EXTD. 


OA 


LA 


P5,DSBKSG 


ADDRESS OF MESSAGE 


** ** 


fTD05210 


000E56 


41F0 


1802 




522 






BAL 


R15, PRINT 


PRIST THE* IF POSSIBLE 


**** 


H H"D05?20 


000E5A 


E650 


1F8A 




523 






LA 


R5,EXTDMSG2 


TJPE UNIT STATUSCOF TELEX) 


* *** 


H T D05230 


000E5E 


(UFO 


4000 


836F 


524 






BAL 


R15,LO0P2 


PRINT OUT IF POSSIBLE 


* ** + 


yt wft^q 52 UO 


000E64 


E650 


4000 


84F0 


525 






LA 


R5,TSTBUF 


LOAD A BUFFER ADDRESS 


*** * 


f q 'D052^0 


000E6A 


2172 






526 






LIS 


F7,2 


* 


**** 


w T D052S0 


000E6C 


4810 


20A6 




527 






LH 


S1,EXTDRVS+$VALU1 


GET DRIVE TALKING ABT 


* * * * 


1TD052 7 


O00E7O 


DE10 


4000 


83E7 


528 






OC 


R1,TTUS 


GIVE TAPE UNIT STATUS COKHAND **** 


MTD05280 


000E76 


41E0 


4000 


7C22 


529 


EXTD. 


1 


BAL 


R14,SENSTA3 


GET STATUS 


* ** * 


N" , D05290 


O0OE7C 


D915 


0000 




530 






RH 


R1,0(R5) 


AND READ INTO 3UFFER 


**** 


NTD05300 


000E80 


2652 






531 






AIS 


R5,2 


INCREHENT BUFFER ADDRESS 


**** 


MTD05310 


000E82 


2771 






532 






SIS 


B7,1 


DECREMENT STATUS BYTES 


***• 


HTD05320 


000E84 


2287 




=000E76 


533 






BNLS 


EXTD.1 


CONTINUE TIL COMPLETE 


**** 


HTDO5330 


000E86 


E630 


1F9C 




534 






LA 


R3,BYHSG0 


* 


**** 


"TD05340 


000E8A 


E650 


4000 


84F0 


535 






LA 


R5,TSTBUF 


* 


**** 


^TD05350 


000E90 


2402 






536 






LIS 


R0,2 


NUMBER OF DIGITS TO CONVERT 


**** 


1TD05^«0 


000E92 


2440 






537 






LIS 


R4,0 


* 


**** 


S^D05370 


000E94 


D315 


0000 




538 


TUS.OUT 


LB 


R1,0(R5) 


GET FIRST BYTE 


* ** * 


HTD05380 


OOOE98 


E623 


0007 




539 






LA 


R2,7(R3) 


WHERE DATA IS STORED UPON CON****ION 


MTD05390 


000E9C 


41F0 


1630 




540 






BAL 


R15,HEXASC 


CONVERT 


*** * 


H' I 'D05400 


OOOEAO 


263C 






541 






AIS 


R3,12 


INCREHENT ADDRESS FOR HESSAG 


** ** 


HTD05410 


000EA2 
000EA4 


2651 
2641 






542 
543 






AIS 
AIS 


P.5,1 
R4,1 


INCREHENT BUFFER ADDRESS 

* 


**** 
**** 


H"'D05420 
yrr)05430 


000EA6 


C540 


0005 




544 






CLHI 


R4,5 


HAXIHUH DESIRED 


**** 


HTD05440 


*OOOEAA 


203B 




=000F94 


545 






BNE 


TUS.CUT 


* 


**** 


N m D054^0 


OOOEAC 


E650 


1F9C 




546 






LA 


R5,BYMSG0 


* 


**** 


'tTDOSI'SO 


OOOEBO 


41F0 


4000 


836E 


547 






BAL 


R15,L00P2 


OUTPUT IF POSSILBE 


**** 


V N' T 'D05470 


000EB6 


4300 


OABC 




548 
549 


* 




B 


0PTIN1 


* 


*** * 
**** 


?TD05480 
HTD05490 


OOOEBA 


2462 






550 


FILE. 


• DEF 


LIS 


R6,2 


DEFAULT VALUE 


**** 


M^D05^00 


♦OOOEBC 


2303 




=000EC2 


551 






B 


FILE.1 


GO SAVE 


*** * 


HTD05510 


OOOEBE 


41F0 


1052 




552 


FILE. 


.CKD 


BAL 


R15,SPACHK 


CHECK FOR SPACE 


**** 


HTD05520 


000EC2 
000EC6 


4060 
4300 


20B4 
OABC 




553 
554 
555 


FILE. 

* 


.1 


STH 

B 


R6,FILES+$VAL01 
0PTIN1 


* 

* 


**** 
**** 
**** 


HTD05530 
1TD05540 
¥?D05550 


OOOECA 


2460 






556 


DRYT. 


• DEF 


LIS 


R6,0 


DEFAULT VALUE 


**** 


H'DOSS'iO 


*OOOECC 


2306 




=0OOFD8 


557 






B 


DRVT.1 


SAVE 


**** 


HTD05570 


OOOECE 


41F0 


1052 




558 


DRVT. 


.CUD 


BAL 


R15,SPACHK 


CHECK FOR SPACE 


**** 


HTDOSBSO 


OOOED2 


C360 


FFFE 




559 






THI 


RejX'FFFE' 


VALID ENTRY 


**** 


H^DOSSSO 


000ED6 


023C 






560 






BNZR 


E12 


ERROR RETURN 


* *** 


f m D05600 


000ED8 


4060 


208A 




561 


DRVT, 


.1 


STH 


R6,DRYTYPE+$VALU1 


SAVE VALUE ****** 


IfTDOSMO 


OOOEDC 


4300 


OABC 




562 
563 


* 




B 


0PTIN1 


* 


* * * * 
**** 


TTD05620 
HTD05630 


OOOEEO 
*000EE4 


C860 
2309 


0085 


=000FF6 


564 
565 


DRVS. 


• DEF 


LHI 

E 


R6,X*85' 
DRYS.00 


DEFAULT VALUE 

* 


**** 
**** 


NTD05«40 
HTD05650 


0OOEE6 


C540 


0020 




566 


DRVS. 


.CHD 


CLHI 


R4,C' ' 


CHECK FOR SPACE 


* * * * 


HTD05660 


OOOEEA 


023C 






567 






BNER 


R12 


ERROR RETURN (?) 


**** 


HTD056 7 


OOOEEC 


41E0 


15EC 




568 






BAL 


R14,0PTVAL 


GET VALUE INTO R6 


**** 


M T D05680 


OOOEFO 


C360 


FCOO 




569 






THI 


R6,X'FC00" 


10 BIT DEVICE ADDRESS 


**** 


f™D05690 


000EF4 


023C 






570 






BNZR 


R12 


ERROR RETURN 


**** 


"TD05700 
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0OOEF6 
000EF8 
OOOEFC 
OOOFOO 
00OFO4 
000F08 
OOOFOC 
O0OF1O 
000F14 
000F18 
000F1A 
000F1E 
000F22 
OO0F26 
000F2A 
0C0F2E 
OOOF30 
000F34 

*000F38 
000F3A 
000F3E 
000F42 
000F44 
000F48 
000F4A 
000F4E 
000F52 
000F58 
000F5A 
000F5E 
000F62 
000F68 
00OF6C 
000F70 
000F74 
0OOF78 
000F7E 
00OF8O 
000F84 
000F88 

*000F8C 
OO0F8E 

♦000F90 
00OF92 
000F96 
000F9A 

000F9E 
*OOOFA0 
000FA2 
000FA6 
OOOFAA 
OOOFAC 



2 4F0 




4060 


205F 


40F0 


2070 


40E0 


207C 


40E0 


207E 


C540 


002C 


4230 


0F48 


41E0 


15EC 


C350 


FCOO 


023C 




4060 


2070 


C540 


002C 


4230 


0F48 


41E0 


15EC 


C360 


FCOO 


023C 




4060 


207C 


C540 


002C 


2138 


=000F48 


41E0 


15EC 


C360 


FCOO 


023C 




4060 


207E 


2460 




4816 


206E 


4330 


OABC 


41E0 


4000 7BDC 


2403 




E620 


1F7E 


41F0 


1680 


4810 


4000 83C4 


C410 


OOFF 


E620 


1F85 


41F0 


1680 


E650 


1F62 


41F0 


4000 836E 


2662 




C560 


0004 


4230 


0F4A 


C560 


OOOC 


2123 


=000F92 


2662 




2204 


=O0OF88 


C550 


0012 


4280 


0F4A 


4300 


OABC 


2460 




2306 


=OOOFAC 


41F0 


1052 


C360 


FFFE 


023C 




4060 


20C2 



571 

572 

573 

574 

575 

576 

577 

579 

579 

530 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

595 

597 

599 

599 

600 

601 

602 

603 

504 

605 

505 

607 

608 

509 

610 

611 

612 

613 

614 

615 

616 

617 

518 

519 

620 

621 

622 

623 



DSVS.00 



DRVS. 1 
DRVS.1A 



DRVS.1AA 



DRVS. 13 



FIF.DEF 



FIF.CKD 



FIF. 1 



LIS 

STH 

STH 

STH 

STH 

CLHI 

ENS 

EAL 

THI 

BNZR 

STH 

CLHI 

BNE 

BAL 

THI 

BNZR 

STH 

CLHI 

BNE 

BAL 

THI 

ENZR 

STH 

LIS 

LH 

BZ 

BAL 

LIS 

LA 

BAL 

LH 

HHI 

LA 

BAL 

LA 

EAL 

AIS 

CLHI 

BL 

CLHI 

BP 

AIS 

p 

CLHI 

BL 

B 

LIS 

B 

BAL 

THI 

BNZR 

STH 



R14,0 * 

R6,DRVSTAT+$VALU1 * 

P14,DRVSTAT+$VALU2 * 

P14,r>RVSTAT+$VALU1+$STRUC1 ****** 

R14,DRVSTAT+$VALU2+$STRUC1 ****** 

R4,C',' * 

DRVS.1 

R14,0PTVAL ' 

H6,X'FC00' 

R12 

R6,DEVSTAT + $VALU2' SAVE 2ND ifiUJjg INTO TA3LF 

R4,C', 1 * 

DRVS.1 * 

R14,0PTVAL * 

R6,X'FC00' * 

P12 ERROR 

R6,DRVSTAT+$VALU1+$STRUC1 

E4,C , , < CHECK FOR 4TH INPUT 

DRVS.1 * 

E14,0PTVAL * 

EejX'FCOO" * 

R12 ERROR 

R6,DRVSTAT+$VALU2+$STRUC1 

R5,0 SET INDEX 

R1,DRVSTAT+$VALU1(R6) **** 



1 INPUT 



ERROR RETURN 
SAVE 2ND VALUE 



RETURN 
****** 



RETURN 

SAVE INTO TA3LF 

REGISTER TO ZERO 



0PTIN1 

R14,SENSTA 

R0,3 

R2,DRVS3SG+28 

R15,HEXASC 

R1, STATUS 

R1,X'00FF' 

R2,DRVS»SG+35 

R15,HEXASC 

R5,DPVSMSG 

R15,L00P2 

F6,2 

P6,4 

DRVS.1A 

R6,12 

DRVS.1B 

P6,2 

DRVS.1AA 

R6,1P 

DSVS.1A 

oPTitn 

R6,0 

FIF. 1 

R15,SPACHK 

?6,X'FFFE" 

R12 

R6,FIF0+SVALU1 



NO DRIVE STATUS'S RFQUESTED 

GET CURRENT STATUS OF DRIVE 

CONVERT 3 DIGITS 

STORF IT HERE 

CONVERT DRIVE NUMBER 

LOAD STATUS 

CLEAR TOP ORDER BITS 

STORED HERE 

AFTER CONVERSION 



CONTINUE 
COMPARE 1 



WITH DRIVES 

'JHERF ADDR 



ARE 



INCREMENT TILL REACHED 

* 

CHECKED ALL DRIVES 

NOT YET 

YES, OUTPUT * 

DEFAULT 

SAVE IT 

CHECK FOR A SPACF 

IS IT VALID? 

? IF NOT 

STORAGE LOC 



**** 


M^nos^io 


***** 


T"D05720 


****** 


"^D05^30 




*' T 'D05740 




«fTT)nt;750 


**** 


>? T D05760 


****** 


w* 1)05770 


****** 


M^DOS^SO 


**** 


f"D05790 


**** 


I^DOSSOO 


* ** * 


« m D05<?10 


**** 


H^005820 


****** 


TTD05830 


**** 


»' n D05840 


**** 


M"'D05850 


**** 


"TD05860 




M' ,, D05870 


* * ** 


MT>0S380 


****** 


M^D05890 


**** 


MTD05900 


**** 


TTD05910 


**** 


K^DOSg?© 


* ** * 


it'do^so 


**** 


?H'D05940 




fTD05950 


*** * 


f m D05960 


S****FIED 


TTD05970 


**** 


f"l>05980 


*** * 


*TT>05990 


* *** 


MTD06000 


**** 


M^Doeoio 


**** 


MTD0«020 


* ** * 


tTDoeoso 


*** * 


«fTl)06040 


**** 


M m 1)06n50 


*** * ff 


w^D06060 


*** * 


MTD06070 


* * * * 


WD06080 


*** * 


* m D05090 


* ** * 


VT>06100 


+ * * + 


T'D06110 


* ** * 


f^lO^^O 


* * * * 


"TD06130 


** * * 


TPD06140 


* * * * 


M""D06150 


* * * * 


»f^D06160 


* * * * 


1^06170 


* ** * 


T"D05180 


* ** * 


?TD06190 


* * * * 


JTD06200 


* * * * 


VTD06210 


* * * * 


WTD06220 


** * * 


"""D06230 
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EXEC - 


- ETPE B05P7 


















OOOFBO 


4300 


OABC 




624 
625 


* 


B 


0PTIK1 


OUTPUT * 


* ** * 
**** 


"TD06240 
MTD06250 


000FB4 


2460 






626 


INT.DEF 


LIS 


R6,0 


DEFAULT VALUE 


R01 


w'D062S0 


0C0FB6 


2306 




=000FC2 


627 




ES 


INT.1 


E01 




H" , D06'70 


000F38 


41F0 


1052 




628 


INT.CMD 


BAL 


R15,SPACHK 


CHECK FOR SPACE 


R01 


"""006280 


000F3C 


C360 


FFFC 




629 




THI 


R6,X'FFFC' 


0-4 


R01 


« rT D06290 


OOOFCO 


023C 






630 




BNZR 


R12 


ERROR IF NOT 


P01 


"■"D06300 


000FC2 


D260 


21EC 




631 


INT.1 


STB 


R6,INTLVL 


STORE FFOR EXEC USE 


R01 


*TD06310 


000FC6 


4060 


2OD0 




632 




STH 


P6,INTLEVEL+SVALU1 


STORE INTO OPTION TABLE 


P.01 


y^T)06320 


OOOFCA 


4300 


OABC 




633 
634 


* 


B 


0PTIN1 


* OUTPUT 


R01 


WTD06330 
>!'"D0';340 


OOOFCE 


2461 






635 


ONL.DEF 


IIS 


R6,1 


DEFAULT VALUE 


*** * 


*T D 06350 


*OO0FDO 


2306 




=000FDC 


636 




B 


0NL.1 


* 


* ** * 


*TD06360 


000FD2 


41F0 


1052 




637 


ONL.CKD 


BAL 


R15,SPACHK 


CHECK FOR SPACES 


**** 


»!TD06370 


0OOFD6 


C360 


FFFE 




638 




THI 


R6,X'FFFE' 


VALID ENTRY 


**** 


?!TD06380 


OOOFDA 


023C 






639 




BNZR 


R12 


* 


* ** * 


STD06390 


OOOFDC 


4060 


20DE 




640 


0NL.1 


STH 


R6,0NLINE+$VALU1 


* 


* ** * 


*TD06400 


OOOFEO 


4300 


OABC 




641 
642 


* 


B 


0PTIN1 


* 


**** 
* *** 


B n, D0«410 
MTD06420 


000FE4 


2461 






643 


PFO.DEF 


LIS 


R6,1 


DEFAULT VALUE 


* *** 


W'"D06430 


*000FE6 


2309 




=000FF8 


644 




B 


PR0.1 


SAVE 


**** 


WTD06440 


000FE8 


41F0 


1052 




645 


PRO.CHD 


BAL 


R15,SPACHK 


CHECK FOR SPACE 


* *** 


»rD06450 


OOOFEC 


C360 


FFFE 




646 




THI 


Re^'FFFE* 


0,1, OR 2 


**** 


f^D06460 


*OOOFFO 


2334 




=0OOFF8 


647 




BE 


PP.0.1 


* 


**** 


MTD06470 


000FF2 


C360 


FFFD 




648 




THI 


RejX'FFFD' 


2 


*** * 


>?^D06480 


000FF6 


023C 






649 




BNZR 


R12 


ERROR RETTTRN 


**** 


H n 'D06490 


000FF8 


4060 


20EC 




650 


PR0.1 


STH 


R6,PR0CEED+$VALU1 


* 


**** 


'JTD06500 


OOOFFC 


4300 


OABC 




651 
652 


* 


B 


0PTIN1 


* 


*** + 

* *** 


^TTiO^IO 
9^006520 


001000 


C860 


007F 




653 


REC.DEF 


LHI 


R6,X'7F' 


DEFAULT VALUE 


**** 


^005530 


♦001004 


2303 




=00100* 


654 




B 


REC.1 


SAVE 


* *** 


»I^D06540 


001006 


41F0 


1052 




655 


REC.CBD 


BAL 


R15,SPACHK 


CHECK FOR SPACE 


**** 


"■"DOSS^O 


00100A 


4060 


20FA 




656 


REC.1 


STH 


R6,REC0RDS+$VALU1 


SAVE VALUE 


* *** 


BTD06560 


00100E 


4300 


OABC 




657 
658 


* 


B 


0PTIN1 


* 


*** * 
* *** 


HTD06570 
M^D06580 


001012 


C860 


OOFO 




659 


SELC.DEF 


LHI 


R6,X*F0' 


DEFAULT VALUE 


** + * 


W^D06590 


*001016 


2303 




=00101C 


660 




B 


SELC.1 


* 


**** 


B^D06600 


001018 


41F0 


1052 




661 


SELC.CHD 


BAL 


R15,SPACHK 


CHECK FOR SPACE 


**** 


fTD06610 


00101C 


4060 


2108 




662 


SELC.1 


STH 


R6,SELCH+$VALU1 


* 


**** 


Mn-006620 


001020 


4300 


OABC 




663 
664 


* 


B 


0PTIN1 


* 


* *** 


1Tr>06630 
1"'D06640 


*001024 


C860 


7FFF 




665 


TIH.DEF 


LI 


R6,X"7FFF' 


* 


**** 


w'DOPfiSO 


*001028 


2303 




=00102F 


566 




B 


TIB.1 


* 


**** 


« m ri06«60 


00102A 


41F0 


1052 




667 


TIM.CKD 


BAL 


R15,SPACHK 


CHECK FOR SPACE 


**** 


>TD06670 


00102E 


4060 


2118 




668 


TIH.1 


STH 


R6,TIHELI«T+$VALU2 


SAVE VALUE 


* *** 


'("■cofieso 


001032 


3466 






669 




EXHR 


R6,R6 


+ 


**** 


?( T D06690 


001034 


4060 


2116 




670 




STH 


R6,TIBELIMT+$VALU1 


* 


* * + ■* 


1TD06700 


001038 


4300 


OABC 




671 
672 


* 


B 


0PTIS1 


* 


**** 
**** 


VD06710 
HTD06720 


00103C 


2461 






673 


TRH.DEF 


LIS 


R6,1 


DEFAULT VALUE 


* *** 


"^006730 


*00103E 


2306 




=00104A 


674 




B 


TRH.1 


SAVE 


* *** 


"TD06740 


001040 


41F0 


1052 




675 


TRB.CMD 


BAL 


R15,SPACHK 


CHECK FOR SPACE 


* *** 


WTD06750 


001044 


C360 


FFFE 




676 




THI 


R6,7'FFFE' 


VALID ENTRY 


*•** 


fTD06760 
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EXEC 



001048 
00 104 A 
00104E 

001052 

001058 
00105C 
00105E 
001062 
001064 
001056 
00106C 

00106E 
*001072 
001074 
001078 
001C7A 
00107E 
001082 
001084 
001086 
00108A 
00108E 
001092 
001096 
C0109A 
001C9E 
001CU2 
0010A6 
0010A8 
0010AC 
0010B0 
0010B4 
001038 
0010BC 
0010BE 
0010C2 
*0010C6 
0010C8 
0010CC 
0010D0 
0010D2 
0010D6 
0010D8 
0010DS 

0010DE 



ETPF R05P7 


02 ^C 




4060 


2124 


4300 


OABC 


40F0 


4000 894C 


C540 


0020 


02 3C 




41E0 


15EC 


274D 




023C 




48F0 


4000 694C 


030F 




ceso. 


0085 


2309 


=001084 


C540 


0020 


023C 




41 SO 


15EC 


C360 


FCOO 


023C 




24E0 




4060 


2052 


40E0 


2054 


40E0 


2060 


40E0 


2062 


C540 


002C 


4230 


10D6 


41E0 


15EC 


C360 


FCOO 


023C 




4060 


2054 


C540 


002C 


4230 


10D6 


41E0 


15EC 


C360 


FCOO 


023C 




4060 


2060 


C540 


002C 


2138 


=001006 


41E0 


15EC 


C360 


FCOO 


023C 




4060 


2062 


2740 




023C 




4300 


OAEC 



677 
678 
679 
530 
681 
682 
583 
684 
685 
686 
687 
638 
589 
590 
691 
692 
693 
594 
695 
596 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 



DRIV.DEF 
DRIV.C3D 

DRIV.O 



BNZR R17 

TRM.1 STH R6,TRH0DE+SVALU1 

B OPTIM 

* 

SPACKK STH R15,R15SAVE 

CLHI R4,C ' 

BNKR 512 

BAL R14,0PTVAL 

SIS R4,X , 0D* 

BNZR R12 

IH R15,S15SAVE 

BR R15 
* 

LHI S6,X , 35* 

B DRIV.O 

CLHI R4,C* ' 

BSER R12 

BAL ?14,0PTVAL 

THI R6,X'FC00' 

BNZR R12 

LIS R14,C 

STH R6,DRIVE+$VALU1 

STH R14,DRIVE+$VALU2 

STH R14,DRIVE+SVALU1 

STH R14,DEIVE+$VALU2 

CLHI R4,C',' 

BNE DRIVE. 1 

BAL R14,0PTVAL 

THI Re/X'FCOO' 

BNZR R12 

STH R6,DRIVE+$VALU2 

CLHI ?.*,€•,' 

BNE DRIVE. 1 

BAL R14,0PTVAL 

THI Re^'FCCO' 

BNZR R12 

STH R6,DRIVF+$VALU1+ 

CLHI R4,C•,■ 

BNE DRIVE. 1 

3AL R14,0PTVAL 

THI Re.X'FCOO" 

ENZR R12 

STH R6,DRIVE+SVAL'J2 + 

DRIVE. 1 SIS R4,X'0D' 

BNZR R12 

P 0PTIN1 

* 

IFZ SDECKEX-1 



ERROR RETURN 



SAVE R15 

CHECK FOR A SPACE 

ERROR RETURN 



RESTORE R15 
RETURN TO CALLER 

DEFAULT VALUE 

CHECK FOR SPACE 
ERROR RETURN (?) 
GET VALUE INTO R6 
10 BIT DEVICE ADDRESS 
ERROP RETURN 



+SSTRUC1 **** 
+$STRUC1 **** 

* 

1 INPUT 



ERROR RETURN 

SAVE 2ND VALUE INTO TABLF 



ERROR RETURN 
SSTRUC1 **** 

CHECK FOR 4TH INPUT 



ERROR RETURN 
SSTP.UC1 SAVE INTO TABLE 

CARRIAGE RETURN ENTERED? 
NO, ERROR RETURN 
OUTPUT * 



* TO CHECK THAT OPTION ENTRY IN R6 IS IN DECIMAL DIGITS. 

* TO CONVERT DECIMAL ENTRY IN R6 TO HEX VAL'!E AND 

* STORE IT 3 OCRS). 



* * * * 


v^no5770 


* *** 


v-T, r>057P0 


* * * * 


"»^D05790 


* * + * 


T"O06800 


* *** 


Y T D06<HO 


*** * 


M"D06820 


* * ** 


¥-"1106 8 30 


* * ** 


"Tf)06840 


*** * 


M^DOe^SO 


* *** 


"■"Doeeeo 


**** 


""'006870 


* ** * 


**TD06380 


** ** 


T , ')0689 , 


**** 


HTD06900 


* + ** 


¥^006910 


*** + 


Y'"D06920 


**** 


MTD06930 


**** 


«f" , D06940 


* ** * 


" T D06950 


**** 


^■"006960 


**** 


"T006970 


* **** 


VTD06980 


**** 


"^006990 




HTT)07000 




H'"D07010 


*** + 


w,n D07620 


**** 


f' T, D07030 


**** 


•}T1)07 040 


* ** * 


W ^D07050 


+ *** 


M q, D07060 


#** * 


M'"T)070" 7 


* * ** 


Y m D07080 


* ** * 


V , D07090 


**** 


wn>07100 


**** 


MTTxmiO 


* *** 


MTD07120 




M ""007130 


*•* + 


^00714" 


**** 


M' T 'D07150 


* * * + 


M m D07160 


* * * * 


«TT)07170 


* *** 


wti)07180 


* *** 


YTD07190 


* * * * 


*"'D07200 


* * * * 


M'"O0"'?10 


* *** 


vt>t)07220 


* * * * 


"■"007230 




V?00 7 ?40 




M m 007250 




yTT)07?60 




y , D07270 




?Tr)07?80 




KT007290 
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EXEC - 


- ETPE R05P7 






















0010DE 


DCOO 


4000 


8950 


730 


DECHEX 


STM 


E0,RSAVE 


. 


P5 


9/ SO 


MTD07300 


0010E4 


2400 






731 






LIS 


R0,0 


ACCUMULATOR 


P5 


9/80 


MTD07310 


0010E6 


2410 






732 






LIS 


R1,0 


TABLE INDEX 


P5 


9/80 


MTD07320 


001CE8 


2420 






733 


$DEC. 


.0 


LIS 


52,0 


SHIFT COUNTER 


P5 


9/80 


MTD07330 


0010EA 


0836 






734 


$DEC. 


.1 


LDAR 


R3,F6 


COPY INPUT VALUE 


P5 


9/80 


M' r D07340 


0010EC 


CC32 


0000 




735 






SRHL 


E3,0(R2) 


. 


P5 


9/80 


MTD07350 


Q\j iuhu 


C430 


000F 




736 






r; HI 


F3 , 1 5 


EXTRACT LS DIGIT 


P5 


9/8 


*T T D0*7 3 6 


0010F4 


C530 


OOOA 




737 






CLHI 


P.3,10 


VALID DECIMAL DIGIT ? 


P5 


9/80 


MTD07370 


0010F8 


038C 






738 






3NLH 


R12 


IF NOT, ERROR. 


P5 


9/80 


MTD07380 


0010FA 


5881 


1E74 




739 






LDA 


R8,DECTAB(R1) 


1,10,. ..,10000 


P5 


9/80 


KTD07390 


0010FE 


2731 






740 


SDEC, 


.2 


SIS 


S3,1 


. 


P5 


9/80 


HTD0' 7 4O0 


001100 


2113 




=001106 


741 






B*S 


SDEC. 3 


. 


P5 


9/80 


M^D07410 


001102 


0A08 






742 






AAR 


R0,R8 


ADD IN CURRENT VALUE 


PS 


9/80 


M"'D07420 


001104 


2203 




=0010FE 


743 






BS 


SDEC. 2 


. 


P5 


9/80 


MTD07430 


001106 


2614 






744 


$DEC, 


.3 


A IS 


R1,ADC 


INCREMENT POINTER 


P5 


9/80 


MTD07440 


001108 


2624 






745 






AIS 


P.2,4 


INCREMENT SHIFTER 


P5 


9/80 


M'H)07450 


00110A 


C520 


0010 




745 






CLHI 


R2,15 


DONE WITH LS HALFWOFD ? 


P5 


9/80 


M'"D07460 


00110E 


4280 


10EA 




747 






BL 


SDEC.1 


BRANCH: NO. LOOP. 


P5 


9/80 


HTD07470 


001112 


9068 






748 






SRHLS 


R6,8 


SHIFT RIGHT 16 PLACES 


P5 


9/80 


MTD07480 


001114 


9068 






749 






SRHLS 


R6,8 


. TO CLEAR R6 (16BIT) OR LS 


HW (3281? 


MTD07490 


001116 


S360 


0010 




750 






SLL 


R6,16 


ROTATE R6 (R6:R7 16 BIT) 


P5 


9/80 


MTD07500 


00111A 


0866 






751 






LDAR 


R6,R6 


(R6) ZERO ? 


P5 


9/80 


M^D07510 


00111C 


4230 


10E8 




752 






BNZ 


SDEC.O 


BRANCH: NO. NOT DONE YET. 


P5 


9/80 


MTD07520 


001120 


4005 


0000 




753 


DECHEX1 


STH 


R0,0(R5) 


STORE HEX OPTION VALUE 


P5 


9/80 


MTD07530 


001124 


4300 


1648 




754 






B 


SRSAVRET 


RESTORE REGISTERS, RETURN (R15) 




MTD07540 










755 






E"DC 










M n, D07550 










756 
757 
















M" , n07560 
*TD07570 










* TO PF, 


OCESS 


INPUT COMMAND ■OPTION' 














758 


* 














K"D07580 


001128 


C540 


OOOD 




759 


SOPTPRT 


CLHI 


R4,X , 0D' 


OPTION (CR) ? 






MTD07590 


00112C 


233A 




=001140 


760 






BES 


SOPT.O 


BRANCH: YES. 






M T D07600 


00112E 


41E0 


15EC 




761 






PAL 


R14,0PTVAL 


NO, GET OPTION DEV. PRINTOUT 


NUM. 


MTD07610 


001132 


C560 


0006 




762 






CLHI 


R6,$MAXI0 


DEVICE NUMBER VALID ? 






MTD07620 


001136 


038C 






763 






BNLR 


R12 


BRANCH: NO. 






MTD07630 


001138 


0366 






764 






LDAS 


R6,?6 


OPTION ZERO ? 






H'< , D07640 


00113A 


033C 






765 






BZ5 


R12 


BRANCH: YES. INVALID INPUT. 






M T D07650 


00113C 


D250 


1E4D 




766 






STB 


R6,I0SAVE+1 


CHANGE THE LIST DEVICE 






MTD076P0 


001140 


4820 


2130 




767 


SOPT. 


,0 


LH 


R2,0PTI0N+$CKR0UT 


SPECIAL PRINTOUT ROUTINE ? 






MTD07670 


*001144 


2335 




=00114F 


768 






BZ 


OPTRTN 


BRANCH: NO. 






MTD07680 


001146 








769 






IFZ 


ADC-4 


• 


P6 


11/80 


M' I 'D07690 


001146 


7320 


2130 




770 
771 
775 






LHL 

ELSE 

ENDC 


R2,0PTI0N+$CKR0UT 


DISALLOW SIGN EXTENSION 


P6 
P6 
P6 


11/80 
11/80 
11/80 


MTD07"?00 
MTD07710 
WTD07750 


00114A 


41F2 


0000 




775 


$OPT. 


,0A 


BAL 


R15,*£Y , OOFFOOO0" 


(R2) LINK USER ROUTINE 


P6 


11/80 


MTD07-760 


00114E 


E630 


1FD8 




777 


OPTRTN 


LDAI 


R3,0PT 


START OF OPTION TABLE 






MTD07770 


001152 


C840 


0014 




778 


$OPT. 


.A 


LHI 


P.4,20 


. 


P5 


9/80 


MTD07780 


001156 


4040 


2134 




779 






STH 


R4,SLINCNT 


20 LINES PER PRINTOUT PAGE 


P5 


9/80 


M~D07790 


00115A 


2410 






780 


SOPT. 


,B 


LIS 


R1,0 








M ,p n07800 


00115C 


0823 






781 






LDAR 


R2,R3 


START OF OPTION ENTRY 






M r,, D07810 


00115E 


D302 


0000 




782 


SOPT. 


2 


LB 


R0,0(R2) 


GET OPTION NAME BYTE 






1TD07820 


001162 


D201 


4000 


88AC 


783 






STB 


R0,$OUTBUF(R1) 


MOVE TO OUTPUT BUFFER 






MTD07830 


001168 


2611 






784 






AIS 


R1,1 








MTD07840 


001 16A 


2621 






785 






AIS 


R2,1 








YTD07850 
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00116C 
001170 
001172 
001176 
*00117C 
001180 
001182 
001186 
001 18A 

00118E 

•001190 

*001194 

*001196 

*00119A 

*00119C 

0011A0 

0C11A4 

0011A8 

0011AE 

0011B2 

0011B6 

0011BC 

0011C0 

0011C6 

001 1CA 

001 1DO 

0011D4 

001 IDA 

0011DS 

0011E4 

0011E8 

0011EE 

0011F2 

0011F4 

*0011FA 

0011FC 

*001200 

001204 

001208 

00120C 

00120E 

001212 

001214 

001215 

00121C 

001220 

001222 

♦001223 



ITP 1 : B05P7 




C510 


0008 




2089 




=001 15F 


C340 


2020 




4040 


4000 


8834 


C530 


1FD8 




2137 




=00118E 


E550 


1"E2 




41FC 


16E0 




4300 


1246 




2403 






C530 


2048 




2338 




=0011A4 


C5 30 


2064 




2335 




=0011A4 


C530 


2010 




4230 


1200 




4813 


OOOA 




H620 


4000 


88P5 


41F0 


16 30 




C840 


0020 




D240 


4000 


88B8 


4313 


OOOC 




E620 


4000 


88B9 


41F0 


16S0 




D240 


4000 


88BC 


4813 


0018 




S620 


4000 


88BD 


41F0 


1680 




9240 


4000 


88C0 


4813 


001A 




E620 


4000 


88C1 


41F0 


1580 




240D 






5200 


4000 


88C4 


263E 






4300 


1242 




C530 


210C 




4230 


122A 




4813 


OOOA 




3411 






7303 


OOOC 




0510 






2408 






E620 


4000 


88P5 


41F0 


1680 




240D 






0200 


4000 


88PD 


230D 




=001242 



786 
787 
783 
739 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
303 
804 
805 
S06 
307 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
813 
819 
820 
821 
822 
823 
824 
325 
826 
827 
828 
829 
830 
831 
332 
833 
834 
835 
836 
337 
333 



CLHI S1,SCK50UT 

ELS SOP?. 2 

LHI R4,C 

STH R4,$0UTBUF+$CKR0HT 

CLAI R3,TEST 

*NES 0PT.2A 

LDAI P5,T£ST+SVALU1 

3AL E15,SLSTBIT 

B S0PT.5 
+ 

0PT.2A LIS P0,3 

CLAI P3, DRIVE 

PS 0PT.2EB 

CLAI 33,DRVSTAT 

BE 0PT.23B 

CLAI R3,C0HKAND 

BSE 0PT.2C 

0PT.2BB LH R1,$VALU1(R3) 

LA P2,$CUTBUF+$CKP0UT+ 

BAL R15,HEXASC 

LHI R4,C* * 

STB R4,$0UTBUF+$CKR0UT+ 

LH R1,$VALU2(R3) 

LA 52,SOUTBUF+$CKROUT+ 

BAL R15,KEXASC 

STB F4,$OUTEUF+$CKB0UT+ 

LH P1,$VALU1+$STRUC1(R 

LA B2,SOUTBUF+$CKR0UT+ 

BAL R15,HEXASC 

STB R4,$0UTBUF+SCKR0UT+ 

LH R1,$VALU2+$STRUC1(R 

LA R2,$0UTEUF+$CKR0UT+ 

BAL *15,HEXASC 

LIS R0,X'0D' 

STB RO,$CUTBUF+$CKROUT+ 

AHI "3,$STRHC1 

B 0PT.3B 

0PT.2C CLAI R3,TI»ELI«T 

BNE S0PT.3 

LH P.1,$VALU1(P3) 

F.XKR R1,R1 

LHL R0,SVALU2(R3) 

OR R1,B0 

LIS R0,8 

LDAI D 2,$0UTBUF+$CKR0UT+ 

3AL ?15,HEXASC 

LIS R0,X'0D' 

STB R0,$0UT3UF+SCKR0UT+ 

■a nPT. ib 



t'HOLF NAfF fOVED ? 
BRANCH: NO. 
SPACES 

PROCESSING 'TEST' OPTION ? 

BRANCH: NO. 

A(OPTION BITS) 

OUTPUT BIT NUM3EPS (F.G.,1,2.. 

ADVANCE TO NEXT OPTION 



.) 



CONVERT 3 DIGITS 
PROCFSSING "DRIVE' OPTION? 
SPECIAL OUTPUT RTN 
DRVSTAT OPTION ENTERED? R01 
SPECIAL OUTPUT ROUTINE THEN R01 
PROCESSING 'COSMAND' OPTION? 
NO, CHECK OTHERS 
1ST VALUE 
I 

CONVERT 
LOAD A SPACE 

4 STORE INTO BUFFER 
2ND VALUE 

5 STORAGE 

8 STUFF A SPACE INTO OUTBUF 
3) 

9 STORAGE LOC 
CONVERT 

12 STUFF INTO 3UFFER 

3) 

13 

CARRIAGE RETURN 
16 INSERT INTO BUFFER 
INCREMENT R3 
PRINT OUTBUF 
'TIHELIMT* OPTION 



8 DIGIT CONVERSION 

1 STORE HERE 
AFTER CONVERSION 
CARRIAGE RETURN 

9 STUFF CR 



PROCESSING OPTIONS WITH 4-DIGIT H^X VALUES. 
OPTION N'A^E ALREADY IN OUTPUT BUFFER. 



"""007S60 
HTI10787" 
wi , r)07880 
*" , D07890 
w"T>07900 
VrT)07910 
"""007920 
1 ""007030 
*""D07940 
YT0O795O 
fTD07960 
HTD07970 
T"D07980 
MTD07990 
M""D03000 
f""D08010 
"*TD08020 
WTD08030 
"T008O40 
*TD0S050 
M""D08060 
MTD08070 

fJ'DOSOsn 

T"D08090 
YTD08100 
HTDOSHO 
"[""D08120 

M""D03130 
^""008140 
fTD08150 
WTD08160 
I » ,p D08170 
MT108180 
■(""D08190 
VD08700 
y^nns^io 
T"D08220 
HTD03230 
MTD08240 
»( ""008250 
"f""D08260 
, f , D08?70 
M'"D08' , 80 
T"D08290 
*""D08300 
«f""D08310 
T""D0832 n 
wt>T)03?30 
i ""008340 
MTD083 C 
M""D0B350 
»ITD08'''7O 
MT[)08380 
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00122A 


4813 


OOOA 


00122E 


2404 




001230 


E620 


4000 88B5 


001236 


41F0 


1680 


00123A 


240D 




00123C 


D200 


4000 88B9 


001242 


41F0 


17F4 


*001246 


263E 




♦001248 


C530 


2128 


00124C 


4380 


0A3C 


001250 


D300 


1E4D 


001254 


D400 


0A10 


001258 


4230 


1152 


00125C 


2501 




00125E 


6100 


2134 


001262 


4230 


115A 


001266 


41F0 


1964 


00126A 


D340 


4000 88FC 


001270 


274D 




001272 


4330 


OABC 


001276 


2643 




001278 


4230 


OAFO 


00127C 


4300 


1152 



001280 
001284 
001288 
00128A 
00128C 
001290 
001292 
001294 
001296 
001298 
00129A 
00129E 

0012A2 
0012A6 
0012A8 
0012AC 
0012B0 
0012B6 
0012BC 
0012C2 
0012C8 
0012CC 



C8F0 


001F 




4800 


1FE4 




2135 




=001292 


24FF 






4800 


1FE2 




033C 






1001 






2183 




=00129A 


27F1 






2203 




=001292 


40F0 


1E52 




41F0 


1BD0 




41F0 


1782 




2400 






4000 


1E5A 




4000 


1E5C 





4000 4000 8400 

4000 4000 83C4 

^800 0002 89D0 

5000 4000 83FC 

41F0 2276 

41F0 1B6E 



839 
840 
341 
842 
343 
844 
845 
346 
847 
848 
849 
350 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
883 
889 
890 
391 



S0PT.3 



0PT.3A 



QPTc 3B 
S0PT.5 



S0PT.6 



LH 

LIS 

LDAI 

BAL 

LIS 

STB 

BAL 

AKI 

CLAI 

ENL 

LB 

CLB 

BNE 

LCS 

AH* 

PNZ 

BAL 

LB 

SIS 

BZ 

AIS 

BNZ 

B 



R1,$VALU1(R 

R0,4 

R2,$0UTBUF+ 

R15,HEXASC 

ROfX'OD 1 

R0,$OUTBUF+ 

P.15, 3PEINT 

P3,$STRUC1 

R3,0PTEND2 

0PTIN1 

R0,IOSAVE+1 

RO,IO 

$OPT.A 

R0,1 

RO,$LINCNT 

SOPT.B 

R15,$READ 

R4,$INBUF 

R4,X , 0D < 

0PTIN1 

R4,X'03' 

KATCH 

SOPT.A 



3) 



OPTION VALUE HALFWORP 



** * + 

HEX (4 DIGITS 



$CXR0UT+1 BUFFER OFFSET 

WRITE OPTION VALUE I 

CARRIAGE RETURN 
SCKROUT+5 INSERT TO BUFFER 

OUTPUT PRINT BUF P ES **** 

LENGTH OF TABLE ^NTRY 

DONE ALL PRINTING OPTIONS ? 

BRANCH: YES. 

CURRENT LIST ID 

SAME AS CONSOLE ? 

BRANCH: YES. NO LINE CNT TEST. 

DECREMENT COUNTER 

BRANCH: SCREEN NOT FULL 

GET CCR) OR (LF) TO CONTINUE 

FIRST CHARACTER 

CARRIAGE RETURN ? 

BRANCH: YES. DONE. 

LINE FEED (X'OA") ? 

BRANCH: NO. ATTEMPT DECODE. **** 

BRANCH: CONTINUE. 



'RUN' COMMAND HAS BEEN ENTERED 



* FIND HIGHEST SELECTED TEST NUMBER 



SRUNIT LHI R15,31 

LH R0,TEST+$YALU2 

BNZS $KEEP.1 

LIS 515,15 

LH R0,TEST+$VALU1 

EZR R12 

$KEEP.1 SRLS R0,1 

5CS $KEEP.2 

SIS R15,1 

BS SKEEP.1 

SKEEP.2 STH R15,SELTST 

BAL R15,LC0RE 

* 

BAL R15,CRLF 

LIS R0,0 

STH RO, TOTAL 

STH R0,TOTERP 

STH RO,ERR.FLG 

STH RO, STATUS 

LI RO,ABSTOP 

ST RO,WPROCEED 

BAL 515,INIT 

INITRET BAL R15,SETLST 



INITIAL OFFSET FPOX 

BITS FOR TESTS 16:31 

BRANCH: BIT(S) SET. 

OFFSET FROM 

BITS FOR TESTS 0:15 

BRANCH: NO TESTS SELECTED. 

SHIFT UNTIL BIT SEEN 

BRANCH: GOT IT. 

DECREMENT INDEX 

AND LOOP. 

HIGHEST SELECTED TEST NUMBER. 

SET UP LOW CORE 

LINE FEED TO LIST DEVICE 

RESET TOTAL 

EESFT TOTERR 

CLEAR FLAG 

CLEAR STATUS 

USE VALUE OF ABSTOP 

P01 

LINK USER INITIALIZATION ROUTINE 

SELECT LIST DEVICE 



* TO PROCEED TO NEXT SEQUENTIAL TEST (STARTS WITH TEST 0) 



KTD08390 
*TD08400 
MTD08410 
*Tri08420 
1TD0P430 
1TD08440 
MTT)n?u50 
«fTno84»50 
WTD08470 
MTD0S480 
MTD08490 
«TD08 c i00 
MTD08510 
MTD08520 
MTD08530 
1^008540 
M^D08550 
HTD08560 
MTI08570 
MTD08580 
MTD08590 
1^008^00 
MTD08610 
MTD08K20 
M^DOSSSO 
MTD08640 
MTD0S650 
W?T>08660 
M"'D08S70 
1TD08680 
Y^D08690 
MTD08700 
MTD08710 
«n>08720 
M T D08730 
MTD08740 
MTD03750 
HTD08760 
MTD08770 
MTD08780 
MTD08790 
MTD08800 
MTD08810 
*'*D08820 
M^D08830 
M' r D08840 
MTDOSSSO 
fTD08860 
M'"D08870 
M^D08880 
MTD08890 
"TD08900 
1TD08910 
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EXEC 



0012D0 
0012D2 
0012D6 
0012DA 
0012DC 
0O12E0 
0012E4 
0012E3 
0012EA 
0012EE 
Q012F2 
0012F6 
0012F8 
O012FA 
0012FC 
001300 
001304 
001308 
00130A 
00130E 
001312 
001318 



00131C 
001320 
001322 
001325 
00132A 
00132E 
001330 
001334 
001338 



ETPE R05P7 


2501 




uooo 


IK^E 


4810 


1E5E 


2611 




4910 


1E52 


4220 


1358 


4010 


1ESE 


24 80 




4080 


1E60 


4080 


1E4E 


C510 


0010 


2182 


=0012FA 


2482 




0851 




41E0 


1620 


4438 


1FE2 


4330 


12D6 


2402 




E520 


1E9E 


41F0 


1680 


41F0 


17E6 


0000 


1E98 



41F0 1A8C 
2400 

4000 1E4E 
48E0 0A54 
48F0 1E5E 
11F2 

58FF 21F4 
DOEO 1E20 
C200 1E20 



00133C 


4810 


0A52 


001340 


9501 




001342 


4820 


1E60 


001346 


2621 




001348 


4020 


1E6.0 


00134C 






00134C 


41F0 


13F8 


001350 


1S5A 




001352 


1E5C 





001354 



4300 12D6 



392 
893 
894 
895 
895 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 

938 
939 
940 
941 
942 
943 



SKEEP1 LCS R0,1 

STH R0,BTESTNO 

$KEEP2 IH R1/BTESTN0 

ATS P1,1 

CH R1,SELTST 

B? SKEEP5 

' STH R1,BTESTN0 

LIS R8,0 

STH R8, COUNT 

STH R8,ISITERR 

CLHI R1,16 

SLS SKEEP2.1 

LIS R8,2 

SXEEP2.1 LDAR R6,P.1 

FAL R14, UNARY 

SH 33,TEST+$¥ALU1(S8) 

BZ $KEEP2 

LIS BO, 2 

LDAI R2/HTESTN0 

BAL R15,HEXASC 

BAL R15, SPRINT 

DAC TSTHSG 



* TO RUN CURRENT SELECTED TEST 

$KEEP3 BAL R15,TSTBEK 

LIS B0,0 

STH RO/ISITERR 

LH R14,PSW3 

LH R15,BTESTN0 

SLLS R15,LADC 

LDA R15,TESTS(R15) 

STH R14,NEWPSW 

LPSW NEHPSW 

* — — — — — * 

* THE SUBTEST HAS BEEN RUN 

* 

TSTEND LH R1,PSW2 

FPSR 80, R1 

LH K2 ,COUNT 

AIS R2,1 

STH R2, COUNT 

IFZ SDISPLAY-1 

BAL R1 5, DISPLAY 

DC Z(TOTAL),Z(TOTER?) 

FNDC 

* CLH R2/L00P+SVALU1 

* PL SKEEP3 
3 SKFEP2 



5ESF"!" BINARY TEST NUMBER 
RINAPY TEST NUHBER 

STILL VALID ? 

BRANCH: «?0. 

INCREMENTED TO C T JFRF' I T TEST 

OFFSET TO LOW-OFDER HALFVORD 

ZERO LOOP COUNT 

PESET ERROR FLAG 

TEST TO 15 ? 

BRANCH: NO. 

OFFSET TO HIGH-ORDER HALFWORD 

CONVERT (R5) TO FIT IN 33 

TEST SELECTED ? . 

BRANCH: "0. FIND ONE THA" 1 " IS. 

SET DIGITS TO PRINT = 2 

R2 = A(NTESTNO) 

STORE TEST * IN ASCII S "TESTNO 

•TEST NN' 



CHECK BREAK KEY 

RESET ERROR FLAG 
SPEC'D AS X'70F0' 
BINAPY TEST NUMBER 
CONVERT TO OFFSET 
POINTEP TO TF5T HOD"!* 1 

GO TO TEST, WITH INTERRUPTS ENABLED 



SPEC'D AS X'30FO' 

DISABLE INTERRUPTS 

NUMBER OF TIMES "ODULE PAN 



IF DISPLAY INCLnDFP: 
DISPLAY: 



PEACHED LIMI" ? 
BRANCH: NO. PUN AGAIN. 
SELECT NEXT TES". 



:ntipe test sequence has run 



fTD08920 
1^D08930 
f T D08940 

>?' r D0895o 
v^oosgeo 

*' P D08970 
M'DOBQSO 
^■"008990 
^"•009000 
*TD09010 
H'"D09020 
^009030 
1^D09040 
*TD09050 
MTD09060 
HTD09070 

•f'Dogoso 
jfTTiognQO 
^DOgiOO 

^TT)09110 

M^D09120 
tfT)09130 
MTD09140 
MT09150 
S^D09160 
VD09170 

in'Dogiso 

f^D09190 
WTD09200 
HTT)09210 
fTD09220 
T T 'D09230 
^D09"?40 
HTD09250 
MTD09260 
MTD09770 
MTD09290 
VTD09290 
^009300 
wTr>09310 
«^D09320 
w' r D09330 

MTTir)Q31(f> 

V'D09350 
M' ,, nO t n60 
*^D09370 

vfT)09380 
^""009390 
M m D09400 
MTD09410 
wr3094?0 
WTP09430 
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001358 
00135A 
00135E 
001362 
001366 
001 36 A 
00136E 
001370 
001372 
001378 
00137C 
001380 
001382 
001388 
00138C 
001390 



001394 
001398 
00139A 
00139E 
0013A0 
0013A2 



0000 1358 

0000 1358 

2401 

6100 1E5A 

41F0 1B20 

4610 1FFE 

4230 12D0 

58E0 1E64 

2332 =001372 

01FE 

41F0 17ES 

0000 1F2F 

4800 1E5C 

2136 =00138C 

41F0 17E6 

0000 1EBE 

4800 1E58 

4330 OABC 

0000 1394 

41F0 1B20 

2336 =0013A4 

C810 080F 

9114 

9501 

2207 =001394 





0000 


13A4 


0013A4 


2400 




0013A6 


4000 


1E58 


00T3AA 


4000 


1E40 


0013AE 


41F0 


17E6 


0013B4 


0000 


1F5C 


0013B8 


41F0 


17E6 


0013BC 


0000 


1EAF 


0013CO 


C840 


2020 


0013C4 


4040 


4000 88B0 


0013CA 


4040 


4000 88B2 


0013D0 


2404 




0013D2 


E620 


4000 88AC 


0013D8 


4810 


1E5A 


0013DC 


41^0 


1680 


0013E0 


4810 


1E5C 


0013E4 


2628 




0013E6 


41F0 


1680 


0013EA 


240D 




0013EC 


D202 


0004 


0013F0 


41F0 


17F4 



944 


* 






945 


ABORT 


EQU 


* 


946 


SKEEP5 


EQU 


* 


947 




IIS 


R0,1 


948 




AHM 


R0, TOTAL 


949 




BAL 


R15,TSTDU 


950 




OH 


R1 »C0NTIN+SVALU1 


951 




BNZ 


$KEEP1 


952 




LDA 


R14,SSHUTDWN 


953 




EZS 


$KEEP5.1 


954 




BALR 


R15,R14 


955 


SKEEP5. 


. 1 BAL 


R15, SPRINT 


956 




DAC 


EOTMSG 


957 




LH 


R0, TOTERR 


958 




BNZS 


$KEEP5.2 


959 




BAL 


R15, SPRINT 


960 




DAC 


NOERMSG 


961 


$KEEP5. 


,2 LH 


RO,$WASDU 


962 




BZ 


0PTIN1 


963 


* 






964 


HALT9 


EQU 


* 


965 




BAL 


R15,TSTDU 


966 




BZS 


SKEEP7 


967 




LHI 


R1,X'080F" 


968 




SLHLS 


R1,4 


969 




EPSR 


R0,R1 


970 




BS 


HALT9 


971 


* 






972 


* LIST 


DEVICE 


WAS OFF-LINE. PRI 


973 


* 






974 


SKEEP7 


EQU 


* 


975 




LIS 


R0,0 


976 




STH 


RO,$WASDU 


977 




STH 


R0,$NLFFLAG 


978 




BAL 


R15, SPRINT 


979 




DAC 


NULLKSG 


980 




BAL 


R15, SPRINT 


981 




DAC 


TOTMSG 


982 




LHI 


R4,C ' 


983 




STH 


R4,$0UTBUF+4 


984 




STH 


R4,$0UTBUF+6 


985 




LIS 


R0,4 


986 




LDA I 


R2,S0UTBUF 


987 




LH 


B1, TOTAL 


988 




BAL 


R15,HEXASC 


989 




LH 


R1, TOTERR 


990 




AIS 


S2,8 


991 




BAL 


R15,HEXASC 


992 




LIS 


RO,X'OD' 


993 




STB 


R0,4(R2) 


994 




BAL 


R15,3PRINT 


995 


* 






996 


* 







BRANCH HERE TO HALT TESTING 



GET TOTAL+1 (MODULO 2**16) 

P,1 <> IF LIST OFFLINE 

?1 <> T F ^ON^IN = 1 

BRANCH: START NEW SERIES. 

ANY USER-SPEC'D POST-TEST ROUTINE 

BRANCH: NO. 

GO TO SPECIFIED ROUTINE. 

'END OF TEST' 

ANY ERRORS LOGGED ? 

BRANCH: YES. 

ELSE, PRINT 

"NO ERROR' 

WAS LIST DEVICE OFFLINE ? 

BRANCH: NO. GET NEXT COHHAND 

STOP MACHINE FOR ERROR PRINT 
CHECK IF LIST DEVICE OFF-LINE 
BRANCH: ON-LINE NOW. 



R1 = X'80F0' 

STOP PROCESSOR. WHEN 'EXF/RUN' 

CHECK IF LIST DEVICE ON-LINE. 

TOTAL, TOTERR 



DFP 



RESET DU FLAG 

DISABLE ACTIVITY INDICATOR 

OUTPUT NULL STRING, CRLF 

'TOTAL TOTERR' 
SPACES 



DESTINATION 

CONVERT TOTAL 

DESTINATION 

CONVERT TOTERR 

CARRIAGE RETURN 

TO TERMINATE MESSAGE. 

PRINT CONTENTS OF BUFFER: 

TOTAL TOTERR 

XXXX YYYY 



P6 11/80 



yTr)09440 
MTD09450 
*TD09460 
WTD09470 
V[Tri0 9UfiO 
1TD09490 
yT»nf)9 SOO 
MTT>09510 
MTT)09520 
STD09530 
fTD09540 
STD09550 
STD09560 
HTD09570 

HTDog^so 

, f'D09590 
fTD09600 
NTD09610 
KTD09620 

w^Dogeso 

fTD09640 
1TD09S50 
T"D09560 
MTD09670 
H^DOgPSO 
fTDOg^O 
MTD09700 
fTD09710 
MTD09720 
fl , D09730 
1TD09740 
HTD09750 
1TD09760 
tTD09770 
MTD09T80 
1 T D09790 
NT'DOSSOO 
MTD09810 
ifTD09820 
1JTD09830 
VD09840 
UTD09850 
HTD09860 
MT'D0987 r i 
HTD098S0 
WTD09890 
*TD099C0 
HTD09910 
'^009920 
>f^D09930 

M^Doggso 
f^Doggeo 
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EXEC - 


- ETF^ R05P7 


0013F4 


4300 


0A72 


0013F8 






0013F8 


4800 


1432 


0013FC 


433F 


0004 


001400 


DEOO 


1 r 36 


oomou 


4240 


1428 


001408 


481F 


0002 


00140C 


4811 


COOC 


u i Q 1 


3411 




001412 


9801 




001414 


481F 


0000 


001418 


4811 


0000 


00141C 


9411 




00141E 


9801 




001420 


DBOO 


1E35 


001424 


430F 


0004 


001428 


2400 




00142A 


4000 


1432 


00142E 


430F 


0004 


001432 


0001 





001434 
00143A 
001440 

001444 
00144A 
001450 
001454 

001458 
00145E 
001464 
001468 

00146C 
CC14 -7 ? 
001478 
00147C 
001480 

0014P4 
00148A 
00148E 
001494 



DOFO 4000 88A0 
41F0 14E4 
0000 14E2 

DOFO 4000 88A0 
41E0 14B4 
0000 1520 
0000 14E2 

DOFO 4000 88A0 
41F0 1434 
0000 1538 
0000 1422 

DOFO 4000 88A0 
41F0 14B4 
0000 1520 
0000 1538 
0000 14S2 

DOFO 4000 88A0 
DOFO 1E18 
41F0 1434 
0000 1594 



997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 

no6 

1007 
100S 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1015 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1C40 
10M 
1042 
104 3 
1044 
1045 
1046 
1047 
1048 
1049 



* ****** 



DISPLAY 



P 3TA3TA PRINT TITLE, ACCEP" 

******************************* 



CO"*ANP. 



$NODISP 



IFZ 

LH 

BZ 

OC 

ETC 

LH 

LH 

TVDTJ 

SHR 

LH 

LH 

EX3R 

WHR 

OC 

B 

LIS 

STH 



$DISPADR DCX 



SDISPLAY-1 

<?0,$DISPADP 

4(515) 

RO,ISCE 

4,$N0DISP 

R1,2(P15) 

R 1 , ( F 1 ) 

PI PI 

R0,E1 

E1,0(R15) 

R1,0(R1) 

R1,F.1 

R0,31 

R0,NORf« 

4(515) 

R0,0 

RO,SDISPAPH 

4(R15) 

1 



HEX CONSOLE DISPLAY APRS P6 11/80 

BRANCH: NO ACTIVITY. P6 11/80 

INCREMENTAL *DDE 

ERANCH: TIMEOUT. P6 11/90 

GET 2ND PARAMETER ADDR^S"? 

GET DATA 

WR-ITE DATA 

GET 1ST PARAMETER ADDRESS 

GET DA^A 

WRITE DATA TO D1,D2 

NORHAL MODE 

RETURN 

DISPLAY TIMED OUT P* 11/80 

SIGNAL 'NO DISPLAY" P6 11/80 

RETURN TO CALLER PS 11/80 

HEXADECIMAL DISPLAY ADDRESS P6 11/»0 



* ************************************* 

ENDC 



* ERROR 

* RETURN 

* 

ERR 



EBRD 



ERRS 



ROUTINES (OVERRIDE NOMSG OPTION) 

LINK R15; NO REGISTERS MODIFIED. 



STM R15,SR15SAV 

3AL R15,ERRC0H 

DAC ERRCOyi 

ST1* F.15,$?.15SAV 

BAL R15,ERPC0H 

DAC ESPD1 

DAC EPPCOJM 



5RRDS 



URRL 



ST r ? 


R15,SR15SAV 


BAL 


R15,ERRC0* 


DAC 


ERRS1 


DAC 


ERRCQW1 


ST* 


"15,SR15SAV 


PAL 


R15,EE D C0* 


DAC 


EPPT: 1 


DAC 


£ F. ? S 1 


D?C 


PPFC?!? 1 


STM 


?15,3515SAV 


ST" 


?14,0IDPSW 


3AL 


P15,ZPPC0K 


DAC 


E3RL1 



SAVE LINK 
•ERROR T^NN' 
EXIT 

SAVE LINK 
•ERROR TTNN" 
■DEV DDD" 
EXIT 

SAVE LINK 
'ERROR T^NN" 
•STA SS" 



SAVE LINK 
'ERROR T^VN' 
•DEV DDD' 
•S m A SS' 
EXIT 

SAVE LINK 

STORE CALLER'S C SW, 

'ERROR TTNN 1 

■T.OC LILT' 



IOC 



WTD09970 

f"'D09980 
1TD0999n 

ntmoooo 

"f'DIOOlO 
« m D10020 
VT>10030 
^■"010040 
M-nnioO^O 
'TD10060 
*""D1 0070 
W^D10080 
MTD10090 
Y^DIOIOO 
"•"DIOHO 
M T D101^0 
"TP10130 
tTDIOIttO 
wti-ioI^O 
M"-P10160 
w^D10170 
^!TD10180 
H^DIOig^ 
1 m D10?00 
M^DIO'IO 
w^DIO^O 
1 m D10230 
"■"D10240 
MTD10250 

^■"^10270 
""010280 
»f'D10290 
^DIO^OO 
TTI10310 
V' T 'D10320 

KTplO^O 

W"D10340 
1TD10350 
H^D10360 
HT'D10 , 70 
M1-D10380 

-t-pr, 10400 
H^D10410 
V , D10420 
>""D10430 
*TD1 0440 
H^^104^0 
f-nD104«0 
V m ri-|r)4 - '0 
fTD 1 OU 80 
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EXEC - 


- ETPE R05P7 




001498 


0000 14E2 




00149C 


DOFO 4000 


88A0 


0014A2 


41F0 1434 




0014A8 


0000 1550 




0014AC 


0000 1578 




1 4 B 


0000 14E2 





0014B4 
0014BA 
0014BE 
0014C0 
0014C4 
0014C8 
0014CC 
0014CE 
0014D2 
0014D6 
0014DA 
0014DE 
0014E0 

0014E2 
0014E4 
0014E8 
0014EC 
0014EE 
0014F2 
0014F4 
0014F6 
0014FA 
0014FE 
001502 
001508 
00150E 



001510 
001510 
001516 
00151C 



001520 
001526 



DOOO 4000 8990 

4810 0A52 

9501 

4800 1E9E 

4000 1EA8 

4000 1E4E 

25F3 

C4F0 FFFC 

58CF 0000 

58DF 0004 

41E0 1510 

01EC 

01ED 

2400 

4000 1E4E 

4000 1E40 

2411 

6110 1E5C 

2138 =001502 

2511 

4010 1E5C 

41F0 1B20 

4230 1394 

D100 4000 8990 

D1F0 4000 88A0 

030F 



DOEO 4000 88A4 
41E0 15D0 
0000 1EA2 



DOEO 4000 88A4 
2403 



1050 






DAC 


ERRC0M1 


1051 


* 








1052 


Si 


5RALL 


STK 


E15,SR15SAV 


1053 






BAL 


R15,ESRC0K 


1054 






DAC 


ERRDS1 


1055 






DAC 


ERRPL1 


1055 








EEPC0M1 


1057 


* 








1053 


* 


COMMON ERBOR KOOTISE 


1059 


* 








1060 


EHPCOM 


STM 


RO,ERRSAYE 


1061 






LH 


R1,PSW2 


1062 






EPSR 


R0,R1 


1063 






LH 


R0,MTESTN0 


1064 






STH 


R0,ETESTNO 


1065 






STH 


R0,ISITERR 


1065 






AIS 


R15,ADC-1 


1067 






SHI 


R15,0-APC 


1068 






LDA 


R12,0(R15) 


1069 






LDA 


R13,ADC(P15) 


1070 






BAL 


R14,ERR1 


1071 






BALR 


R14,R12 


1072 






BALE 


B14,E13 


1073 


* 








1074 


ERHC0H1 


LIS 


R0,0 


1075 






STH 


R0,ISITERR 


1076 






STH 


R0,$NLFFLAG 


1077 






LIS 


R1,1 


1078 






AHM 


R1,T0TERR 


1079 






BHZS 


ERRC0H2 


1080 






LCS 


R1,1 


1081 






STH 


R1,T0TERP 


1082 






BAL 


R15,TSTD T J 


10S3 






BHZ 


HALT9 


1084 


EBEC0M2 


LM 


R0,ERRSAVE 


1085 






LM 


R15,$R15SAV 


1086 






BR 


R15 


1087 
















1088 


* 


MESSAGE PRINT ROUTINES 


1039 


* 


RETURN 


LINK 


R14; REGISTERS 


1090 


* 








1091 


* 


TO PRIST 'ERROR TTNN' 


1092 


* 








1093 






CNOP 


ADC 


1094 


ERR1 


STH 


R14,$R14SAV 


1095 






BAL 


R14,$BSGPRT1 


1096 






DAC 


ERRWSG 


1097 


* 








1098 


* 








1099 


* 


TO PRIST "DEY DDD' 


1100 


* 








1101 


ERED1 


STH 


R14,$R14SAV 


1102 






LIS 


RC,3 



EXIT 

SAVE LINK 
•ERROR TTNN* 
*DEV DDD STA SS' 
■PSW PPPP LOC LLLL" 



STORE USER REGISTER SET 

SPEC'D AS X'SOFO" 

DISABLE INT. 3 PROCESSOR LEVEL 

MASTFR TEST NUMBER 

MOVE TO MESSAGE 

TO FORCE ERROR PRINT 



FIRST PARAMETER 
SECOND PARAMETER 
•ERROR TTSS" 
GO TO FIRST ROUTINE, 
SECOND ROUTINE. 



RESET ERROE PRINT FLAG 

DISABLE ACTIVITY INDICATOR P6 11/80 

INCREMENT TOTERR 
BRANCH: STILL COUNTING. 
65,535 ERRORS REPORTED 

LIST DEVICE OFF-LINE ? 
BRANCH: TES. 
RESTORE REGISTERS 
RESTORE LISK _ 
RETURN TO CALLER. 

(DO NOT OVERRIDE NOHSG OPTION) 
MODIFIED R0,R1,S2,R5. 



ALIGN PARAMETER 

SAVE LINK 

PRINT MESSAGE 

■ERROE TTNN' 

TT FPOM MTESTBO, NN FROM EERNO 



SAVE LINK 

SET UP DIGITS = 3 



MTD10500 
M T D10510 
*'"D10520 
KTD10530 
MTDIO^aO 
MTD10550 
WTFj 105*0 
MTD105"'0 
MTDIOSSO 
M T D10590 
MTD10«00 
MTD10M0 
M'*'D10520 
MTD10630 
MTD10640 
M^D10650 

M^Dioeeo 

M^D10670 
MTD10680 
MTD10«90 
1 f , D10700 
M"'D10710 
MT'DIO'720 
MTD10730 
"TD10"'40 
M^DIO^O 

m^dio^o 

M' r D10770 
MTD10780 
MTD10790 
<f" 1)10800 
MTD10810 
>»TD10820 
M T D10830 
M'»'D10840 

m^diosso 
M^Dioseo 

MTD10370 
MTD10 880 
'^010890 

M^Diogoo 

MTD10910 
fT?10920 

M^oiogso 

M"' l >10940 

M^Diogso 

M^D10960 
!fT-T>i0 970 
M?D 109 80 
MTD1099O 
TTD11O00 
MTD11010 
•VD11020 
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EXEC - ETpF R05P7 



001528 
00152C 
001530 
001534 



001538 
00153E 
001540 
001544 
001548 
00154C 



001550 
001556 
001558 
00155C 
001560 
001564 
001566 
001 56A 
001570 
001574 



001578 
00157E 
001582 
001584 
001586 
00158A 
00158F, 
001512 



4810 1^32 

41E0 15C0 

0000 1EDA 

0000 1 r D6 



DOEO 4000 88S4 
2402 

D310 1^34 

H 120 15CQ 

0000 1FD3 

0000 1SCF 



DOEO 4000 88A4 

2403 

4810 1E32 

£620 1ECB 

41F0 1650 

2402 

D310 1E34 

41E0 15C0 

0000 1ED3 

0000 1EC7 



DOEO 4000 88A4 
D1E0 1E18 

oeiE 

2406 

E620 1F05 
F.650 1F01 
41^0 1680 
2306 



=00159E 



001594 


DOEO 


40 00 


88A4 


0C159A 


E65C 


1F0D 




00159E 


D1^0 


1F18 




0015A2 


081F 






0015A4 


2406 






0015A6 


E620 


1F11 




001 5AA 


41 v 


16 80 




0015AE 


24F0 






0015S0 


UOFO 


1E40 




0015?- 


41F0 


1P02 




001538 


"•1F0 


4 


88A4 


OC 1 53E 


030E 







1103 
1104 
1105 
1106 
1107 
1103 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1140 
1141 
1142 
1143 
1144 
1145 
1145 
1147 
1148 
1149 
1150 
1151 
1157 
1153 
1 159 
1150 
1151 
1162 
1163 
1164 
1163 







Lh" 


51 ,ERRDEV 


?1 = ERROR DEV * IV BINARY 


MTD1' 


030 






BAL 


R14,SMSGPRT 


PRIN' 7 ' 'DEV DDD' 


if-r-nv 


040 






DAC 


ASCIDEV2 


HEXASC DFSTINATION 


WTTl 1 ' 


C 






DAC 


DEV^SP2 


A (MESSAGE) 


M^m ' 


060 


* 










VD1' 


070 


* TO 


PRINT ' 


STA SS' 




w^oi ' 


08^ 


* 










"DV 


090 


ER5S1 




ST* 


R14,SR14SA¥ 


SAVE LINK 


•IT 1)1 ' 


100 






LIS 


R0,2 


SET UP DIGITS = 2 


MTT)V 


1110 






LB 


P1,ERRSTA 


P1 = FBROR STATES 


i">r 


1?0 






BAL 


P.I 4»$HSGPRT 


PRINT 'STA SS" 


ror 


1130 






DAC 


ASCISTA 


HEXASC DESTINATION 


fTD1 ' 


140 






DAC 


STAHSG 


A (MESSAGE) 


Ifl-Tjl ■ 


150 


* 










yTDi 


1160 


* TO 


PRINT ' 


DEV DDD STA SS ' 




HTT)1 - 


170 


* 










1TD1' 


180 


EERDS1 




STV 


E14,SR14SAV 


SAVE LINK 


WTTJ1 - 


190 






LIS 


R0,3 


SET UP DIGITS = 3 


fTD1 


I200 






LH 


R1,ERRDEV 


R1 = ERROR DEV « 


1TD1" 


210 






IDA I 


F2,ASCIDEV 


HEXASC DESTINATION 


"TD1- 


220 






BAL 


R15, HEXASC 


CONVERT IT TO ASCII 


r'Dv 


230 






LIS 


R0,2 


SET UP DIGI m S = 2 


1TD1' 


I240 






IB 


P1,ERRSTA 


R1 = EFROR STATUS 


»TT)1' 


250 






BAL 


R14,$»SGPRT 


PRINT "DEV DDD STA SS' 


If T 1)1 ' 


I260 






DAC 


ASCISTA 


HEXASC DESTINATION 


»tdv 


I270 






DAC 


DEVHSG 


A ("ESS AGE) 


MTT)1' 


I280 


* 










tfTDV 


I290 


* TO 


FRIST ' 


PSW PPFP LOC LLLL' 




"fDV 


300 


* 










KTT)1 


1310 


ERRPL1 




STS 


R14,$R14SAV 


SAVE REGISTERS 


KTD1' 


320 






LM 


P14,0LDPSH 


R14 = PSW, R15 = LOC 


!fTD1- 


330 






LDAR 


R1/R14 


PSW TO PRINT REGISTER 


MTD1 


1340 






LIS 


R0,6 


SERIES 32 


"? T D1 


400 


EBEFL1A 


LDAI 


R2,ASCTPSii 


DESTINATION 


I'DV 


1410 






LDAI 


R5,PSWMSG 




MT^I 


1420 






PAL 


R 15, HEXASC 


CONVERT PSW 


MTD1- 


430 






BS 


ERRPL1B 


30 CONVERT LOC 


ror 


440 


* 










WTD1 


14^0 


* TO 


PRINT ' 


LOC LLLL' 




HTD1 


1460 


* 








#* 


TTD1 


1470 


ERRL1 




ST.M 


R14,SR14SAV 


SAVE REGISTERS 


VTIJ1 - 


1480 






LDAI 


R5,L0CKSG 


A ( MESSAGE) 


WTD1' 


1490 


ERRPL1B 


LM 


F14,0LDPStf 


R15 = OLD LOC TO PRINT 


»?TD1 


1500 






LDAR 


31,515 


DATA TO PRINT REGISTER 


MTD1- 


510 






LIS 


R0,6 


SERIES 32 


WTI)1 


'570 


ERRL1A 




LDAI 


52,ASCIL0C 


DESTINATION 


HTT)1 


1580 






BAL 


R15,KEXASC 


CONVERT 


WTI)1 


1590 






LIS 


R15,0 


?6 


11/80 MTD1 


1600 






STH 


R15,SNLFFLAG 


DISABLE ACTIVITY INDICATOR ? e 


11/80 *T)1 


1610 






BnL 


P 15, PRINT 


PRINT 


MTQ1 


1*20 






IS 


R1U,SR14SAV 


RESTORE Llff 


fTT)1 


630 






5 H 


R14 


RETURN 


V 1*1)1 


1640 


* 










ytt>i 


1650 
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EXEC - ETPZ P05F7 



0015CO 
0015C2 
0015C6 
0015CA 
0015CE 
0015D0 
0015D2 
0015D6 
0015D8 
0015DC 
0015E0 
0015E4 
0015EA 



0015EC 
0015EE 
0015F4 
0015F8 
0015FA 
0015FC 
001600 
001602 
001606 
001608 
00160A 
00160E 
001610 
001612 
001614 
001616 
00161A 
00161C 



001620 
001622 
001624 
001628 



00162A 
00162A 



26E3 

C4E0 FFFC 

582E 0000 

41FC 1680 

26 E4 

24S0 

4050 1F40 

26F3 

C4E0 FFFC 

585E 0000 

41F0 1802 

D1E0 4000 88A4 

030E 



2460 

D343 4000 88FC 

C530 0050 

038E 

2631 

C540 0020 

2239 =0015EE 

C540 0030 

028E 

24FF 

D44F 1E88 

2334 =001616 

27F1 

2214 =00160A 

03 OC 

EB60 0004 

066F 

4300 15EE 



2438 
913C 

CC36 0000 
030E 



0000 162A 



0000 162A 



1166 

1167 

1165 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1221 

1222 



ROUTINE IS CALLED BY MESSAGE PRINT ROUTINES 



S1SGPHT 



SMSGPRT1 



AIS 

NHI 

LDA 

BAL 

AIS 

LIS 

STH 

AIS 

NHI 

LDA 

BAL 

LH 

EP 



R14,ADC-1 

R14,0-ADC 

R2,0(R14) 

R15,HEXASC 

P14,ADC 

R5,0 

B5,$NLFFLAG 

R14,ADC-1 

P14,0-ADC 

R5,0(R14) 

H15, PRINT 

R14,$R14SAV 

R14 



HEXASC DESTINATION 

CONVERT DATA TO HEXADECIMAL 



DISABLE ACTIVITY INDICATOR 
** 10-23-81 
** 10-23-81 
ACMFSSAGE TO PRINT) 
PRINT SPECIFIED MESSAGE 

RETURN TO ORIGINAL CALLER 



TO OBTAIN OPTION VALUE IN R6 (R7:R6, S16) 

RETURNS WHEN SPECIAL CHARACTER FOUND. IGNORES SPACES. 



OPTVAL LIS 

SOPTV.O LB 

CLHI 

BNLR 

AIS 

CLHI 

BES 

CLHI 

BLR 

LIS 

SOPTV. 2 CLB 
BES 
SIS 
BNKS 
BR 

SOPTV. 3 RLL 
OAS 
B 



R6,0 

R4,SINEUF(B3) 

R3,$BUFLEN 

R14 

R3,1 

R4,C ' 

SOPTV.O 

R4,C'0* 

R14 

E15,15 

P4,HEXTAB(R15) 

SOPTV. 3 

R15,1 

SOPTV. 2 

R12 

Ee,4 

R6,R15 

SOPTV.O 



INITIALIZE ACCUMULATOR 

GET NEXT INPUT CHARACTER 

AT END OF INPUT BUFFER ? 

RETURN IF YES. 

ADVANCE BUFFER POINTFR 

SPACE ? 

BRANCH: YES. IGNORE. 

LESS THAN ZERO ? 

RETURN IF SPECIAL CHARACTER 

SCAN TABLE 
HATCH 



ERROR; VALUE NOT IN TABLE. 
(K6:87), SERIES 16 
05 IN CURRENT DIGIT 



* TO CONVERT (R6) FROH BINARY TO UNARY PATTERN, IN R3 



UNARY LIS R3,8 
SLHLS R3,12 
SRHL R3,0(R6) 
BR R14 



IFNZ SCLOCK 

STIBER EQU * 

IFZ SCLOCK-3 

ELSE 

TIBER EQU * 



BIT TO SHIFT 

S3 = '8000' 

SHIFT TO DESIRED POSITION 

AND RETURN. 



= INCLUDE NO TIMERS 
3 = INCLUDE BOTH 



MTD11660 
MT1 1^70 
w m r>11580 
NTD1 1«90 
""■D1 1700 
MTD11710 
wtii 11720 

pg 11/90 vvimo 

P6 11/80 HTD11740 
MTD11750 
HTD11760 
HTD11770 
M^P11780 
HTD11790 
HTD11800 
M T D11810 

s^Dimo 

HTD11830 
HTD11840 
1™D11850 
H^D11860 
HTD 11900 
MTD11910 
M^D11920 
MTD11930 
S q, D11940 
"^011950 
MTD11960 
, HTD11970 
K7D11980 
NTD11990 
HTD12000 
w^D12010 
T'D12020 
1TI12030 
T"D12040 
1^012050 
MTD12060 
""■D12070 
WTD12080 
M"'D12090 
N^D^IOO 
^012110 
MTD12120 
*™D12130 
MTD12140 
^■^012150 
M-D^ISO 

HTT)121T0 

*TD12180 

MTD12190 

"■^D^J^O 
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:XEC - ETPF ROE 



00162A 
001630 
001632 
001634 
001638 
00163C 
00153E 
"001640 



001640 
001646 



001643 
00154E 



001S50 



001650 
001656 
00165A 
*00165C 
00165E 
001662 
001664 
001666 
001658 
00156C 
00166E 
001672 
001674 
001678 
00167C 



0C1f SC 
0C1666 
0016SS 
00 166 A 



»000 4000 8950 
2410 
2421 

4830 0A5» 
C110 1638 
2701 
203? =001630 



D100 4000 6950 
030F 



0100 4000 8950 
030F 



001648 



=001668 



= 00165?. 



DOOO 4000 8950 

C300 0010 

2701 

201A 

C340 0030 

1151 

2382 

2641 

D242 OOOC 

2621 

C300 0003 

203C 

C840 0020 

3242 0001 

4300 165A 



DOOO 4000 6950 

0830 

1132 

2734 



1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
123 3 
1234 
1235 
1236 
1258 
1259 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
127 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 



TO PROVIDE # OF MILLISECONDS DELAY SPECIFIED 3Y PO 

SAVF R r ~IST"RS 



SSTIH1 



SI" 


-0,PSAVF 


LIS 


?1,0 


LIS 


R2,1 


LK 


R3,STIMV.AL 


RXLE 


R1,* 


SIS 


HO, 1 



(R3) 



CONSTANT FOR 1 "SFC DFLAY 



BNZ5 $STI*1 



51 lflilt 1 



LOOP TILL SPECIFIED DELAY 
RELOAD REGISTERS* RETURN CE15) 



## nn 



STIHRET L* 
STIHXT BR 



RO,RSAVE 
R15 



RESTORE '.TSER'S REGISTERS 
AND RETURN. 



* ROUTINE RESTORES REGISTERS SAVED ON ENTRY TO CALLING ROUTINE 

* AND RETURNS 3Y R15 

SRSAVRET LX R0,FSAVE 

BR R15 RETURN TO ORIGINAL CALLER 

* ***** THIS i S aHERE TO IMPLEMENT STACK 



IFZ 



3553IN-1 



* R5BIN PRINTS CONTENTS OF F5 IN BINARY 

* PRINTS UPTO 16 DIGITS 



R5BIN 
$R5B.1 



SR5B.2 



STM 

LHI 

SIS 

B« 

LHI 

SLLS 

BNCS 

f.IS 

STB 

AIS 

THI 

BN'ZS 

LHI 

STB 

a 

ENDC 



RCRSAVE 

R0,4*ADC 

R0,1 

SRSAVRET 

R4,C'0" 

R5,1 

SE5B.2 

R4,1 

R4,0(R2) 

R2,1 

R0,X'03' 

SR5B.1 

34, C ' 

54,1(82) 

SR5B.1 



STORE F^GISTERS 

NUMBER ? BITS TO OUTPUT 

BRANCH: ALL DONS. 

ASCII ZERO 

SHIFT YS BIT TO C-FLAG 

BRANCH: J»S A ZERO 

ASCII ONE 

DATA TO BUFFER 

ADVANCE BUFFER POINTER 

FOUR-BIT BLOCK OUTPUT ? 

BRANCH: NOT YET. 

BLANK 

3LA«'< TO BUFFER 

CONTINUE 



P2 1/80 



* TO CONVERT HEXADECIMAL DATA IN P1 TO ASCII CHAR £ STORE 3 0(P2) 

* OUTPUTS UP TO 4 DIGITS (8 DIGITS, SERIES ?2) 



HEXASC STY ?.0,PSAVF 

LDAR E3,R0 

SLLS R3,2 

SIS R3,4 



STORF REGISTERS 
R3 = DIGITS 



P3 



4(DIGITS)-4 



m-"D12230 
«t^-|9240 
^■"512250 
vt,i22' !: 
"■"912270 
y^ni2280 
"■"912290 
""■912*00 
<f"D12310 
"^012320 
f"D123^0 
Y""D12340 
Y m D12350 
"■"0123*0 
"■"912580 
"■"D12590 
» m D12M0 
•«t 012620 
"■"012630 
"■^012640 
"■"012650 
f"*126S0 
^•"O 12670 

"■"012680 

"■"012690 
y n D12 -T 00 
MTD12710 
f"D12720 
"■■"D 12730 
1""D12"?40 
"■"912750 
"T-n 12760 
"■"012770 
"■"012780 
"TD12790 
"■"012800 
Y T 912810 
vt>di2?20 
Y m D12830 
mt, -I2840 
"■"912850 
"""912850 
" T 912870 
"-D12980 
"■"9128°0 
"^012900 
"~D12910 
"'912920 
""912930 
""912940 

^■"912960 
W-D12970 
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00168C 


0841 




00168E 


EC43 


0000 


00169 2 


C440 


OOOF 


001696 


D344 


1E88 


001 69A 


D242 


0000 


00169E 


2621 




001 6A0 


2730 




0016A2 


221B 




0016A4 


4300 


1648 


0016A8 







0016A8 
0016AE 
0016B0 
0016B2 
0016B4 
0016B6 
0016BA 
0016BC 
0016BE 
0016C0 
0016C2 
0016C6 
0016C8 
0016CA 
0016CC 
0016D0 
0016D4 
0016D6 
0016D8 
0016DC 



0016EO 
0016E6 
0016E8 
0016EA 
0016EC 
0016F0 
0016F2 
0016F6 
0016F8 
0016FC 
0016FE 



=00168C 



DOOO 


4000 


8950 


0830 






1132 






2734 






2440 






5853 


1E74 




0515 






2188 




=0016CC 


0B15 






2641 






C540 


OOOA 




2086 




=0016BA 


274A 






2208 




=0016BA 


D344 


1E88 




D242 


0000 




2621 






2734 






4310 


16B4 




4300 


1648 





0000 


16E0 




DOOO 


4000 


8990 


2401 






2410 






2470 






4835 


0000 




2136 




=0016FC 


4835 


0002 




2402 






C810 


0010 




242A 






9131 







1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1305 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 



SHEXA.1 LDAR R4,R1 

SHL R4,0(R3) 

NHI E4,15 

LB R4,HEXTAB(R4) 

STB R4,0(R2> 

AIS R2,1 

SIS P.3,4 

BNKS SHEXA.1 

E SRSAVRET 

IFZ SDECASC-1 



R4 = HEX DATA 

R4 = HEX DIGIT TO BE CONVERTED 

STORE ASCII CHAR 



LOOP TILL ALL DIGITS 

RESTORF REGISTERS, RETURN (R15) 



TO CONVERT BINARY DATA IN R1 INTO DECIMAL DIGITS 
AND STORE THEM IN ASCII 3 0(R2) 



DECASC STM RO,RSAVE 

LDAR E3,R0 

SLLS R3,LADC 

SIS R3,ADC 

$DEC1 LIS R4,0 

LDA R5,DECTAB(R3) 

$DEC2 CLAR R1,R5 

BLS $DEC3 

SAR R1,R5 

AIS R4,1 

CLHI R4,10 

BLS SDEC2 

SIS R4,10 

BS $DEC2 

$DEC3 LB R4,HEXTAB(R4) 

STB R4,0(R2) 

AIS R2,1 

SIS R3,ADC 

BNB $DEC1 

B SRSAVRET 

ENDC 



COPY DIGIT COUNT 
^ESTABLISH DECTAB INDEX. 

CLEAR MODULUS COUNTER 

LOAD LARGEST REQ. POWER OF 10. 

EXCEEDS TEST VALUE ? 

BRANCH IF YES. 

DECREMENT TEST VALUE 

INCREMENT MODULUS COUNTER 

VALID DECIMAL DIGIT ? 

BRANCH IF YES; ELSE 

FORCE VALID DIGIT, 

REPEAT DECREMENT. 

CONVERT MODULUS COUNT TO ASCII 

AND STORE AT DESTINATION MSB. 

INCREMENT DESTINATION POINTER 

DECREMENT DECTAB POINTER 

FALL THROUGH ON DECTAB UNDERFLOW. 

RESTORE REGISTERS, RETURN (R15) 



TO OUTPUT LIST OF BITS IN ASCENDING NUMERIC ORDER, 
STARTING FROM HIGH-ORDER BIT AS BIT 
DOES NOT OVERLAY OPTION SAME IN $0UTBUF. 
DOES NOT DISABLE ACTIVITY INDICATOR 
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SLSTBIT EQU 
STM 
LIS 
LIS 
LIS 
LH 

BNZS 

LH 

LIS 

LHI 

LIS 



SLSTB.A 



SLSTB.B 



R0,ERRSAVE 

R0,1 

R1,0 

R7,0 

R3,0(R5) 

SLSTB.B 

R3,2(R5) 

R0,2 

F1,X'10' 

R2,$CKR0UT+2 



SLSTB.O SLHLS E3,1 



SAVE REGISTERS 

DIGITS TO OUTPUT 

STARTING WITH NUMBER 

PRINT FLAG 

LOW-NUMBERED PARAMETER BITS 

BRANCH: ONE SET 

HIGH-NUMBERED PARAMETER BITS 

2 DIGITS NEEDED FOR HEXASC 

BIT NUMBER BASE 

NO OVERLAY OF OPTION NRME 

TEST LEFTMOST HALFWOFD BIT 



MTD12980 
MTD12990 
MTD13000 
MTD13010 
MTD13020 
MTD13030 
MTni 3040 
MTQ13050 
M^imO'SO 
MTD13070 
MTD13080 
MTD13090 
MTD13100 
MTD13110 
MTD13120 
MTD13130 
"•^D13140 
«TD13150 
M T D131«0 
MTD13170 
MTD13180 
MTD13190 
MTD13200 
MTD13210 
»f , D13220 
MTD13230 
MTD13240 
MTD13250 
M^D13260 
MTD13270 
MTD13280 
MTD13290 
MTD13300 
MTD13310 
MTD13320 
VTD13330 
MTD13340 
*TD13350 
MTD 13360 
MTD13370 
MTD13380 
MTD13390 
MTD13400 
MTD13410 
•r»D13420 
MTD 13430 
MTD 13 440 

MTD13460 
MTD13470 
M^D13480 
HTD13490 
M'T'DIS'SOO 
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exec ■ 


- ETP r i 


305P7 














001700 


4380 


1726 




1351 






BNC 


SLS^B^A 


001704 


C520 


000 A 




1352 






CLHI 


R2,SCKR0UT+2 


001708 


23 37 




=001716 


1353 






PES 


SLSTB. 1 


00170A 


C340 


002C 




1354 






LHI 


ZU,C' r ' 


00170E 


D242 


4000 


88AC 


1355 






STB 


R4,S0UTB!'F(R2) 


001714 


2621 






1355 






AIS 


R2,1 


001716 


08^2 






1357 


SLST3. 


1 


LDAR 


R13,R2 


001718 


FA20 


0000 


88AC 


1358 






AAI 


R2,S0UTBUF 


00171E 


41F0 


1680 




1359 






PAL 


R15,HEXASC 


0C1722 


082D 






1360 






LDAR 


R2,R13 


001724 


0A20 






1361 


SLSTB. 


2 


AAR 


R2,R0 


001726 


2611 






1362 


SLSTB. 


2A 


AIS 


ei,i 


001728 


C310 


OOOF 




1363 






THI 


R1,15 


00172C 


4230 


16FE 




1364 






BSZ 


SLSTB. 


001730 


244D 






1355 






LIS 


R4,X'0D' 


001732 


0242 


4000 


88AC 


1366 






STB 


R4,S0UTBUF(R2) 


001738 


0672 






1367 






OAR 


R7,R2 


00173A 


C520 


OOOA 




1368 






CLHI 


R2,SCKR0UT+2 


00173E 


2333 




=001744 


1369 






BES 


SLSTB. 2B 


001740 


41F0 


17F4 




1370 






BAL 


R15,3PRINT 


001744 


C510 


0020 




1371 


SLSTB. 


2B 


CLHI 


R1,32 


001748 


4280 


16F2 




1372 






BL 


SLSTB. A 


00174C 


277A 






1373 






SIS 


R7,$CKEOUT+2 


00174E 


2133 




=001754 


1374 






BNZS 


SLSTB. 2C 


001750 


41F0 


17F4 




1375 






BAL 


R15, SPRINT 


001754 


T>100 


4000 


8990 


1376 


SLSTB. 


2C 


LH 


R0,ERRSAVE 


00175A 


030F 






1377 
1373 






BR 


R15 


















00175C 








1379 






IFZ 


SBUFI0-1 










1380 


* TO PLACE (R4) CHARACTER IN HEX' 










1331 


* 








00175C 


. DOFO 


4000 


88A0 


1382 


PUTCHE 




ST? 


F15,SR15SAV 


00176 2 


48F0 


1E54 




1383 






LH 


R15,SLINEP0S 


001766 


C5F0 


0050 




1334 






CLHI 


R15,SBUFLEN 


00 176 A 


2182 




=00176E 


1385 






BLS 


SPUTC. 1 


00176C 


24F0 






1386 






LIS 


R15,0 


00176E 


D24F 


4000 


68AC 


1337 


SPUTC. 


1 


STB 


R4,S0UTEUF(R15) 


001774 


26F1 






1383 






AIS 


R15,1 


001776 


40FO 


1S54 




1389 






STH 


S15,SLINEP0S 


00177A 


D1F0 


4000 


88A0 


1390 






LH 


R15,SR15SAV 


001780 


03 OF 






1391 
1392 






BR 


R15 


























1393 






EN* DC 












1394 


* TO 


OUTPUT CR,LF 10 LIST DEYIC 










1395 


* 








001782 


DOOO 


4000 


8950 


1396 


CRLF 




ST?" 


R0,ESAVE 


0017SS 


5650 


1F5C 




1397 






LDAI 


R5,Nl*LL«SG 


00173C 


4300 


1808 




1398 
1399 






B 


SP1 


























1400 


* PP. IN 


Ti 


BOUTIN 


SS 










1401 


+ 








001790 








1402 






I p Z 


SACTI!'D-1 


001790 


>c,t3 






1403 


SPRTNL 


r 


AIS 


E15,ADC-1 



BRANCH: ZERO. 

ANY OUTPUT YET ? 

BRANCH: NO 

COHHA 

INSERT IN BUFFER 

SAVE BUFFER 0FFSE m 

KEXASC DESTINATION 

CONVERT BIT HUHBER 

GET OFFSET 

INCREMENT BUFFER POINTER 

INCREHENT BIT NU»3ER 

HALFWORD COMPLETED ? 

BRANCH: NO. 

CARRIAGE RETURN 

INSERT IN BUFFER 

ACCUMULATE HIGHEST BYTE COUNT 

ANY OUTPUT THIS TIME ? 

BRANCH: NO. 

PRINT THE BUFFER. 

FULLWORD COMPLETED ? 

BRANCH: NO. 

ANY OUTPUT DONE ? 

BRANCH: YES. 

PRINT OPTION NA*E IN BUFFER. 

RETURN 



SAVE LINK 

CURPENT BYTE ADORES^ 



FORCE WRAP-AROUND 
CHARACTER TO BUFFER 

UPDATE BUFFER POINTER 

RETURN 



P6 11/30 



SAVE REGISTERS 

CR, LF 

GO PRINT LINE. 



?OI\'T TO ARGUMENT 



?<= 11/80 



pe 11 /sn 

P6 1 1 /30 

?6 11/80 

p 6 11/80 



I^D^SIO 
KTD13520 
'<' P D13530 
M-"D13540 
i?Tn 13^50 
H'"D135fi0 
^-"013570 
'f'DISSSO 
*ITD13590 
ffT)13600 
•f'DI^IO 
1^D13620 
*'*'D13630 
NTD13«U0 
M r,, D13fi50 
»f , D13660 
H' P D13670 
t' T 'D13680 
MTD13690 
* r "D13700 

WTD13720 
HTD13730 
fTD13740 

HTD13750 

HTD13760 
VTD13770 
HTni3780 
STp-moo 
T^DISSOO 
WTD13810 
H' r D13820 

yTD13R50 
M' ! 'D13860 
*! r *'D13870 
•f-DISSSO 
'i' ,, D13890 
» rr, ni3900 
V m D13910 
WTD13920 
1Tri13930 
"""Dl 3940 
W,,, D13950 
w?f»13960 
1T , D13970 
1»^D13°80 
I * r|, D1 3990 
v m D14000 
"?fD14010 
»?TD14020 
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001792 


C4F0 


FFFC 




1404 




NHI 


R15,0-ADC 


. 


P6 


11/80 


YTpmo40 


001796 


DOOO 


4000 


8990 


1405 




STH 


R0,ERRSAVE 


# 


P6 


11/80 


MTD14050 


00179C 


58EF 


0000 




1406 




LDA 


R14,0(R15) 


AUESSAGE TO PRINT) 


P6 ' 


11/80 


MTD14060 


0017A0 


4810 


1E44 




1407 




LH 


R1 ,$NLFCNTR 


GET ACTIVITY COUNT 


P6 


11/30 


M T D14070 


0017A4 


2611 






1408 




AIS 


R1,1 


INCREHENT IT 


P6 


11/80 


WTD14080 


0017A6 


4010 


1F44 




1409 




STH 


R1,SN"LFCNTR 


AND STORE FOR NEXT TIKE 


P6 


11/80 


N" , D14090 


00 1 7AA 


C820 


2020 




i ii a r\ 




LHI 




2 SPACES 


P6 


11/80 


%™T) 14 100 


0017AE 


4020 


4000 


88AC 


1411 




STH 


R2,$0UTBUF 


TO OUTPUT BUFFER 


Pf 


11/80 


STD14110 


0017B4 


E620 


4000 


88AE 


1412 




LDAI 


R2,S0UTBUF+2 


DESTINATION 


P6 


11/80 


MTD14120 


0017BA 


2404 






1413 




LIS 


R0,4 


DIGITS 


P6 


11/80 


WTD14130 


0017BC 


41F0 


1680 




1414 




BAL 


B15,HEXASC 


CONVERT 


P6 


11/80 


WTD14140 


0017C0 


C800 


209E 




1415 




LKI 


R0,X'209E' 


TERMINATOR FOR NO (CR,LF) 


P6 


11/80 


WTD14150 


0017C4 


4002 


0004 




1415 




STH 


R0,4(R2) 


TO SOUTBUF 


P6 


11/80 


MTD14160 


0017C8 


4000 


1E40 




1417 




STH 


R0,$NLFFLAG 


ENABLE ACTIVITY INDICATOR 


P6 


11/80 


NTD14170 


0017CC 


41F0 


17F4 




1418 




BAL 


R15, SPRINT 


' NNNN * 


P6 


11/80 


MTD14180 


0017D0 


085E 






1419 




LDAR 


R5,R14 


A(SPECIFIED MESSAGE) 


P6 


11/80 


MTD14190 


0017D2 


41F0 


1802 




1420 




BAL 


815, PRINT 


PRINT SPECIFIED MESSAGE 


P6 


11/80 


MTD14200 


0017D6 


2400 






1421 




LIS 


R0,0 


DISABLE ACTIVITY INDICATOR 


P6 


11/80 


MTD14210 


0017D8 


4000 


1E40 




1422 




STH 


R0,$NLFFLAG 


. 


P6 


11/80 


MTD14220 


0017DC 


D100 


4000 


6990 


1423 




LS 


RO,SRRSAVE 


RESTORE REGISTERS 


P6 


11/80 


MTD14230 


0017E2 


430F 


0004 




1424 




B 


ADCCR15) 


AND RETURN TO CALLER. 


P6 


11/80 


MTD14240 










1425 




ENDC 




. 


P6 


11/80 


M T D142^0 










1425 


* 












H^D14260 


0017E6 


26F3 






1427 


SPRINT 


AIS 


R15,ADC-1 








"f , D14270 


0017E8 


C4F0 


FFFC 




1428 




NHI 


R15,0-ADC 








NTD14280 


0017EC 


585F 


0000 




1429 




LDA 


R5,0(R15) 


A(MESSAGE TO PRINT) 






1^014290 


0017F0 


25?4 






1430 




AIS 


H15,ADC 








N^O14300 


0017F2 


2308 




=001802 


1431 
1432 


* 


BS 


SPO 








N^D14310 
MTTI14320 


0017F4 


DOOO 


4000 


8950 


1433 


SPRINT 


STH 


R0,RSAVE 


SAVE REGISTERS 






1\TT)1U330 


0017FA 


E650 


4000 


88AC 


1434 




LDAI 


S5,$00TBUF 


TO PRINT OUTPUT BUFFER 






M^D14340 


001800 


2304 




=001808 


1435 
1436 


* 


BS 


$P1 








MTD14350 
MTD14360 




0000 


1802 




1437 


PRINT 


EQU 


* 


TO PRINT THE ASCII MESSAGE 






MTD14370 


001802 


DOOO 


4000 


8950 


1438 


$P0 


STM 


R0,RSAVE 


STORE REGISTERS 






N , ' , D14380 


001808 


2400 






1439 


$P1 


LIS 


R0,0 








MTD14390 


00180A 


4000 


1E54 




1440 




STH 


RO,$LINEPOS 


RESET BUFFER 






NTD14400 


00180E 


41F0 


1B20 




1441 




BAL 


R15,TSTDU 


IS DEVICE UNAVAILABLE ? 






M^D14410 


001812 


4230 


1648 




144 2 




BNZ 


SRSAVRET 


IF YES, RELOAD REGISTERS, RETURN. 


fi'D14420 










1443 


* 












MTD14430 


001816 


4810 


1E58 




1444 




LH 


R1,$WASDU 


WAS DEVICE EVER SEEN DU ? 






MTD14440 


00181A 


4230 


1394 




1445 
1446 


* 


BNZ 


HALT9 


OUTPUT TOTAL, TOTERR. 






MTD14450 
KTD14460 


001 81E 


4800 


1E4E 




1447 
1448 


* 


LH 


RO,ISITERR 


AN ERROR MESSAGE ? 






MTD14470 
N n, D14480 


001822 








1449 . 




IFZ 


SACTIND-1 


. 


P6 


11/80 


MTD14490 


001822 


4840 


1E40 




1450 


SPRT.2 


LH 


R4,$NLFFLAG 


ZERO IF ACTIVITY DISABLED 


P6 


11/80 


MTD14500 


♦001826 


213F 




=001844 


1451 




BNZ 


SPRT.2A 


BRANCH: INDICATOR ENABLED 


P6 


11/80 


1J -"014^10 


001828 


4840 


1E42 




1452 




LH 


R4,$NLFHIST 


WAS ENABLED LAST PRINT ? 


P6 


11/80 


N^D14520 


00182C 


4330 


1854 




1453 




BZ 


SPRT.2B 


BRANCH: NO. PRINT NORMAL. 


P6 


11/80 


N^D14 |: ;30 


001830 


244A 






1454 




LIS 


P4,X , 0A' 


LF 


P6 


11/80 


?fTD14 c ;40 


001832 


41F0 


18C4 




1455 




BAL 


E15,0tJTCKR 


OUTPUT LINE FEED 


P6 


11/80 


MT-D14550 


001836 


244D 






1456 




LIS 


R4,X'0D' 


CR 


P6 


11/80 


M^D14560 
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EXEC 



ETPF R05P7 



001838 

00183C 

00183E 

►001842 

001844 
001846 
00184C 
001850 



001854 
001858 
00185C 
♦00185E 
001850 
001862 
001866 
001S6A 
00186E 
001872 

001876 
001876 

♦00137A 
00187C 
001880 

*001834 

001886 



001888 
0018S.C 
00188E 
001892 
001896 
00189A 
00189E 
0Q18A2 
0018A6 
*0018AA 
"0019AS 
001330 
0013B2 
001836 
00163C 
0013C0 



001304 



41F0 18C4 

2440 

4040 1E42 

2309 =001854 

C840 009E 

4040 1^42 

0445 0000 

4330 188C 

0000 1854 



0345 0000 

41F0 18C4 

274D 

233C =001876 

2651 

C350 0002 

4330 1822 

4050 1E56 

41F0 1A8C 

4300 1822 



4940 1E40 

2336 =001886 

D340 1S4D 

4540 QA58 

2334 =00188C 

0000 1886 

244A 



41F0 18C4 
2440 

41F0 18C4 
41F0 1A8C 
4040 1E56 
48F0 1E4A 
4040 1E4A 
4330 1548 
40F0 1E4E 
C550 1F5B 



2339 
2 4F0 

40F0 1F40 

41F0 17E6 

0000 1F42 

4300 OABC 



50F0 1E68 



=0018C0 



1457 
1458 
1459 
1460 

1462 
1453 
1464 
1465 
1455 
1467 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1431 
1482 
1483 
1484 
1485 
1436 
1437 
1488 
1489 
1491 
1492 
1493 
1494 
1495 
1495 
1497 
1493 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1505 
1507 
1503 
1539 
1510 
1511 



PAL E15,0UTCRR 

LIS R4,0 

STH °4,$NLFHIS' T ' 

P SPRT.2R 



SPRT.2A 



SPBT.2B 



$PRT.3 



SPRT.3B 



SPBT.3C 



SPB^.3A 



SPRT.4 



LHI 

STH 

CLB 

BE 

EQU 

ELSE 

ENDC 

LB 

BAL 

SIS 

BZ 

AIS 

THI 

BZ 

STH 

BAL 

B 

IFZ 

LH 

BZ 

LB 

CLH 

BE 

EQU 

LIS 

ELSE 

EN DC 

BAL 

LIS 

BAL 

BAL 

STH 

LH 

STH 

EZ 

STH 

CLAI 

BE 

LIS 

STH 

BAL 

DAC 

3 



R4,X'9E' 
R4,SNLFHIST 
R4,0(R5) 
SPRT.3C 



R4,0(R5) 

R15,0UTCHR 

34,X*0D' 

SPRT.3 

R5,1 

B5,2 

SPRT.2 

R5,SPRTFLG 

B15,TSTBPK 

SPRT.2 

SACTIND-1 

R4,$NLFFLAG 

SPST.3E 

R4,I0SAVE+1 

R4,SHLFDEV 

$PRT.3C 

*■ 

R4,X , 0A* 



E15,0UTCHB 

R4,0 

R15,0UTCHR 

B15,TSTBRK 

R4,$PRTFLG 

315,SBBKFLG 

R4,SBRKFLG 

SRSAVBET 

B15,ISITFRR 

R5,SBRKEND 

SPRT.4 

R15,0 

R15,$NLFFLAG 

515, SPRINT 

BRKKSG 

0PTIN1 



OUTPUT CARRIAGE RETURN 
ZERO HISTORY 

PRINT NORtfAL. 



SET HISTORY 

TERKINATOR FOR NO (CR,LF) 

BRANCH: YES. OUTPUT NUL. 



GET A HSSSAGF BYTE 
OUTPUT CHARACTER 
CR ? 
9SG OVER 

TT 1 * 17 TO CHECK 3RFAK ? 

BRANCH: NO. 

TO DEFER 3REAK ACKNOWLEDGE 

LOOP FOR NEXT CHAR 



ACTIVITY INDICATOR ENABLED 
BRANCH: NO. OUTPUT (LF). 
LIST DEVICE IDENTIFIER 
ACTIVITY INDICATOR ALLOWED 
BRANCH: YES. OUTPUT NULL. 

LF 



LF 

ASCII 'NUL' 

TERMINAL CHARACTER 



RE-ENABLE BREAK ACKNOWLEDGF 
WAS BREAK DETECTED ? 
BREAK BEING ACKNOWLEDGED 
RESTORE REGISTERS, RETURN (R15) 
FORCE MESSAGE PRINT 
PRINTING '33K TeRS' "FSSAGE 
BRANCH: YES. 



DISABLE ACTIVITY INDICATOR 
•RECURSIVE' CALL 
'BREAK TERMINATION' 
TO CYD ?ROC"SSO" 



* TO OUTPUT A 
OUTCHR STA 



CHARACTER TO THE LIST DEVICE 
515,0UT.SAV SAVE RETURN ADDRESS 



P6 


11/90 


<f"D14570 


P6 


11/80 


rii^^o 


P6 


11/80 


w"D14590 


P6 


11/30 


*TDiKf00 


P6 


11/80 


* T D14^20 


P6 


11/80 


f*D14630 


P6 


11/80 


MTD14640 


P6 


11/80 


f'DliteSO 


P6 


11/80 


"TD14660 


P6 


11/30 


MTD14670 


Pfi 


11/80 


*' ,, D14690 
M^D14700 

YT)m720 
¥■"014730 

WT7>147H0 

HTP14750 
^014760 
HTD14770 
W ^D14780 
1 T D14790 
MTD14800 


P6 


11/80 


K'D14810 


P5 


11/80 


w , "D14920 


P6 


11/80 


y^diksso 


P6 


11/80 


>fT014840 


P6 


11/30 


IfDIUSSO 


P5 


11/80 


""D14860 


P6 


11/90 


¥'''014370 


P6 


11/80 


Y^D14880 


P6 


11/80 


MTT)-m890 


P6 


11/80 


*^D14910 
*T'D14920 


P6 


11/80 


MTD14930 

fTD1«9itO 
MTrjl4950 
w^D14960 
¥ m D14970 

«"D1«980 


5) 




yr-T)iu990 
YTD15000 
"TD15010 
»' T, D15020 


P6 


11/80 


"•"D 15030 


P6 


11/80 


YTD15040 


P6 


11/30 


""■015050 
Y m D1^0*0 
V "D15070 
"TDT5080 
YTD15090 
YTD15100 
"TD1 5110 
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EXEC - ETPE E05P7 



0018C8 


D310 


1E4D 




1512 






L3 


R1,I0SAVE+1 








f?D15120 


0018CC 


2714 






1513 






SIS 


R1,4 








M'"D1513C 1 


0013CE 


4230 


18FE 




1514 






BNZ 


SOTC. 4 


BRANCH IF NOT CAROUSEL 






MTD15140 


0018D2 


4010 


1562 




1515 


SOTC, 


.0 


STH 


R1, SPAUSE 


ZERO SPAUSE FLAG 






1^015150 


0018D6 


41F0 


1B20 




1515 


$OTC. 


.1 


3AL 


R15,TSTDU 


ON LINE ? 






MTD15160 


0018DA 


4230 


1932 




1517 






BNZ 


SOTC. 7 


BRANCH: OFFLINE. EXIT. 






MTD15170 


00 1 8DE 


9D21 






151S 






SSR 


no o -» 
a. £. r n ' 


GET CAROUSEL STATUS 






wkim ;un 


0018E0 


2385 




=0018EA 


1519 






BFFS 


8, SOTC. 3 


BRANCH IF CHAR. IS TO BE REi 


*D 




M T D15190 


0018E2 


4810 


1F62 




1520 


SOTC. 


.2 


LH 


R1, SPAUSE 


PAUSED NOW ? 






MTD15200 


0018E6 


2038 




=0018D6 


1521 






BNZS 


SOTC.1 


YES, LOOP 






*TD1?210 


0018E8 


230B 




=0018FE 


1522 






BS 


SOTC. 4 


NO, GO OUTPUT CHARACTER 






MTD15220 


0018EA 


9321 






1523 


$OTC. 


.3 


RDR 


R2,R1 


GET CAROUSEL CHARACTER 






KTD15230 


0018EC 


C410 


007F 




1524 






NHI 


R1,X*7F' 








MTD15240 


0018F0 


C510 


0014 




1525 






CLHI 


R1,X'14" 


DC4 ? 






MTD15250 


0018F4 


4330 


18D2 




1525 






BE 


SOTC.O 


DC4. SET SPAUSE FLAG. 






YTD15260 


0018F8 


CB10 


0012 




1527 






SHI 


R1,X'12" 


DC2 ? 






"TD15270 


0018FC 


203D 




=0018E2 


1528 
1529 


# 




3NZS 


SOTC. 2 


BRANCH: NO. CHECK IF PAUSED 


NOW. 




MTD15280 
MTD15290 


0018FE 


4010 


1E62 




1530 


SOTC. 


.4 


STH 


R1, SPAUSE 


RESET FLAG 






M T D1^300 


001902 


4110 


1BB8 




1531 






BAL 


31,SSETt!P 


SET UP FOR OUTPUT 






M^D15310 


001906 


9001 






1532 


SOTC, 


.5 


SSR 


R0,R1 


WAIT FOR NOT BUSY 






MTD15320 


001908 


4230 


1932 




1533 






BTC 


3, SOTC. 7 


BRANCH IF OFF-LIWE 






MTD15330 


00190C 


C510 


0048 




1534 






CLHI 


RlrX'^S' 


(NOT) CL2S OR PF ? 


P4 


4/80 


M T D15340 


001910 


4330 


1932 




1535 






BE 


SOTC. 7 


BRANCH: ASSUME OFF-LINE 


P4 


4/80 


MTD15350 


001914 


C410 


OOFC 




1535 






NHI 


R1,X'FC' 








^^0153^0 


001918 


C510 


OOOC 




1537 






CLHI 


RUX-OC 1 


HDX PASLA OFF-LINE ? 






M T D15370 


00191C 


233B 




=001932 


1538 






BE 


SOTC. 7 


BRANCH: YES. 


P4 


4/80 


MTD15380 


00191E 


9014 






1539 






SRHLS 


R1,4 


BUSY ? 


P4 


4/80 


MTD15390 


001920 


208D 




=001906 


1540 






BC 


SOTC. 5 


BRANCH: YES. 


P4 


4/80 


MTD15400 


001922 


9A04 






1541 






WDR 


R0,R4 


OUTPUT DATA BYTE 






MTD1^410 


001924 


9D01 






1542 


SOTC, 


.6 


SSR 


R0,R1 


WAIT FOR NOT BUSY 






M^D15420 


001926 


2176 




=001932 


1543 






BTFS 


7, SOTC. 7 


BRANCH IF OFF-LINE 






f T D15430 


001928 


C510 


0048 




1544 






CLHI 


RI/X'^S" 


(NOT) CL2S OR PF ? 


P4 


4/80 


MTD1"^440 


00192C 


2333 




=001932 


1545 






BES 


SOTC. 7 


BRANCH: ASSUME OFF-LINE 


P4 


4/80 


M' r D15450 


00192E 


9014 






1546 






SRHLS 


R1,4 


BUSY ? 


P4 


4/80 


»!TD15460 


001930 


2086 




=001924 


1547 






BCS 


SOTC. 6 


BRANCH: YES. 


P4 


4/80 


M"H>15470 


001932 


58F0 


1E68 




1548 


SOTC, 


.7 


LDA 


R15,OUT.SAV 








MTD15480 


001936 


030F 






1549 
1550 
1551 






BR 


R15 


RETURN 






MTD15490 
NTD 1 5500 


001938 












IFZ 


SBUFIO-1 








H^IB^IO 










1552 


* ROUTINE GETS 


NEXT BYTE FROM 


INPUT BUFFER TO R4 






M"'D15520 










1553 


* IF 


BUFFER EXHAUSTED, READS 


NEXT RECORD. 






MTD15530 










1554 


* 














«?D15540 


001938 


DOFO 


4000 


88A0 


1555 


GETCHR 


STK 


R15,SR15SAV 


SAVE LINK 






M^D15^50 


00193E 


48F0 


1E54 




1556 






LH 


R15,$LINEP0S 


OFFSET TO CURRENT BYTF 






y , D155*0 


001942 


C5F0 


0050 




1557 






CLHI 


R15,$BUFLEN 


BUFFER EXHAUSTED ? 






y , D15570 


001946 


2185 




=001950 


1558 






BLS 


SGTCH. 1 


BRANCH: NOT YET. 






M^D15580 


001948 


41F0 


1964 




1559 






BAL 


R15,SREAD 


FETCH INPUT RECORD 






WTD15590 


00194C 


48F0 


1E54 




1560 






LH 


R15,SLINEP0S 


WILL BE ZERO 






1TD15600 


001950 


D34F 


4000 


88FC 


1561 


SGTCH. 1 


LB 


R4,$INBUF(P15) 


CURRENT DATA BYTE 






MTD15610 


001956 


26F1 






1562 






AIS 


R15,1 








MTD15620 


001958 


40F0 


1E54 




1563 






STH 


R15,$LINFP0S 


UPDATE BUFFER POINTER 






M^D15630 


00195C 


01F0 


4000 


88A0 


1564 






LH 


R15,SR15SAV 


RESTORE LINK 






v?D15540 
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00196 



EXEC - ETF; R05P7 
2 030F 



001961 
00196A 
00196C 
00196E 
001972 
001976 
001978 
00197A 
00197C 
001980 
001982 
001984 
001988 
00198C 
00198E 
001990 
001992 
001996 
00 199 A 
00199C 
0019AO 
0019A4 
0019A8 
0019AC 
0019EO 
001984 
0019B6 
0019BA 
0019BC 
0019C0 
0019C2 
0019C4 
0C19C8 
0019CC 
0C19D2 
0019P6 
0019D8 
0019DC 
0019E0 
0019F4 
0019E6 
0019E8 
0C19EC 
C019F0 
0019F4 



DOOO 


4000 


8950 


2501 






26 D1 






40D0 


1E54 




4140 


1B7F 




9D0U 






2081 




=000001 


9B04 






D390 


OA10 




2792 






2338 




=001992 


4890 


0A2C 




DE90 


0A2F 




9D93 






2081 




=000001 


9A94 






C440 


007F 




C540 


0060 




2183 




=0019A0 


CB40 


0020 




C540 


0023 




4330 


0AB4 




C5.40 


0018 




4330 


0AB4 




C54.0 


00 5F 




2337 




=0019C2 


C540 


0000 




2334 




=0019C2 


CB40 


0008 




21 315 




=0019CC 


27D2 






4210 


196A 




4300 


196C 




D24D 


4000 


88FC 


C540 


OOOD 




2135 




=OC19F0 


E650 


1F60 




4300 


1808 




C540 


0040 




2134 




=0019FC 


08DD 






4330 


0A5C 




C5D0 


004F 




4280 


196C 




4300 


1972 





156S 
1566 
1557 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
15S0 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1*01 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1512 
1613 
1614 
1615 
1616 
1617 



B8 



315 





ENDC 




* rout: 


IKE GETS 


INPUT RECO°D 


$READ 


STK 


RO,RSAVE 


SRD.1 


LCS 


313,1 


3RD. 2 


AIS 


P. 1 3 , 1 




STH 


B13,SLINEP0S 


SRD.3 


3AL 


R4,KBREAD 




SS3 


R0,R4 




BTBS 


8,1 




RDR 


R0,R4 




LB 


R9,I0 




SIS 


R9,2 




B2S 


SRD.3A 




LH 


R9,C0NWADR 




oc 


R9,CCNWRT 




SSR 


R9,R3 




BTBS 


8,1 




WD5 


R9,R4 


SRD.3A 


NHI 


R4,X*7F' 




CLHI 


R4,X'60* 




BLS 


$RD.4 




SHI 


R4,X*20" 


SRD.4 


CLHI 


P4,X , 23' 




BE 


OPTIN 




CLHI 


R4,X*18" 




BE 


OPTIN 




CLHI 


R4,X'5F' 




BES 


SRD.5 




CLHI 


R4,0 




BES 


SSD.5 




CLHI 


R4,X'08' 




BNES 


$RD.6 


$RD.5 


SIS 


R13,2 




EH 


SRD.1 




B 


$RD.2 


SRD.6 


STB 


R4,$INBUF(E13) 




CLHI 


R4,X , 0D' 




BNES 


SRD.7 




LDAI 


R5,CRLFK?G 




B 


$F1 


S3D.7 


CLHI 


R4,C'S' 




BNES 


SRD.8 




LDAR 


R13,R13 




BZ 


SCON 


$RD.8 


CLHI 


313,$B"JFLEN-1 




BL 


3RD. 2 




g 


SRD.3 


* 







SETUPS 



SAVE REGISTERS 

INITIALIZE 

INCREMENT BUFFER POINTER 

ADDRESS OF CURRENT BYTE 

PUT DEVICE IN READ HPDF 

IF BUSY, LOOP (POSSIBLE HANG) 

READ A CHAR IN 34 

WHAT TYPE DEVICE ? P1 10/79 

TYPE 2 ? P1 10/79 

BRANCH: YES. E-PLEX ON. P1 10/79 

GET WRITE ADDRESS 

TURN DEVICE AROUND 

WAIT FOR BUSY NOT 

ECHO RECEIVED BYTE 

REHOVE PARITY BIT P1 10/79 

UPPER-CASE CHARACTE* ? 

BRANCH: NO. 

CONYERT TO LOWER-CASE 

HASK-HARK ? 

BRANCH: YES. GO TO CD PROC. 

ASCII "CANCEL' CHARACTER ? 

BRANCH: YES. 

BACKARROW, UNDERLINE, DELETE ? 

BRANCH: DELETE LAST CHARACTER 

R01 

R01 

BACKSPACE ? 

BRANCH: NO. 

TO DELETE LAST CHARACTER 

BRANCH: NO UNDERFLOW ALLOWED. 

GET ANOTHER CHARACTER 

STORE CURRENT INPUT BYTE 

CARRIAGE RETURN ? 

BRANCH: NOT YET. 

OUTPUT (C3),(LF) TO CONSOLE, P,FT"RN. 

BREAKPOINT DIRECTIVE ? P7 2/M 

BRANCH: NO. P7 2/81 

3 FIRST CHAR IN BUFFER ? P7 2/81 

BRANCH: YES. BREAKPOINT. P7 2/81 

BUFFER AT SAX ? P7 2/81 
3PANCH: "OT YET. 
BRANCH: ^OPCE OVERLAY OF LAST CHAP.ACT 



* SET UP FOB CONSOLE, LIST I/O DEVICES 



Y^D15650 
YTD15660 
HTD151570 

M^Diseso 

MTD1S690 
fTD15700 
I^D 15710 
K^D 15720 
fTpis' T 30 
WTD15740 
MTD15750 
H^D15-'60 
y^D15770 
YTD15780 
"TD15790 

HTi 1*5800 
""H) 158 10 
*' r D15820 
MTD15R30 
HTD15840 
^D15<?50 
f^D15860 
1TD15370 
fTD15S80 
KTni589Q 
WDT5900 
ITD15910 
H^D15920 
MTD15930 
HTD15940 
ITD15950 
T"D15960 
H^rilS970 
^915980 
""015990 
M^D16000 
N^D16010 
" T D16n20 
fi , D15030 
WT>16040 
MTM6050 
W1'D16060 
M"D16070 
fTD16080 
¥TD16090 
MTD16100 
K^DTiHO 
STD16120 
HTD16130 
fTT)i^-mo 
MTD16150 

YTD16170 
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0019F8 
0019FC 
001AOO 
001A02 
001A04 

001A08 
001 ADA 
O01A0C 
001A0E 
001A12 
001 A16 
001A1A 
001A1E 
001A20 
001A22 
001A24 
001A28 

001A2C 
001A30 
001A32 
001A34 
001A36 
001 A3 A 
001A3E 
001A42 
001A46 
001A4A 
001A4E 
001A52 
001A56 
001A58 
001A5C 
001A60 
001A64 
001A6 6 
001A68 
001A6A 
001A6C 
001A70 
001A72 
001A74 
001A76 

001A7A 



001A7C 
001A80 
001A84 



0310 


0A10 


D320 


0A11 


2436 




0513 




2182 


=001A08 


1 fi A A 

£4 1 1 




0523 




2152 


=001AOF 


2421 




D210 


0A10 


D220 


0A11 


D362 


0A48 


4060 


1E3E 


0866 




2336 


=001A2C 


9122 




4802 


0A10 


DE02 


0A32 


41F0 


1B5E 


9310 




9112 




2712 




4831 


0A10 


4030 


0A2A 


4831 


0A12 


4030 


0A2C 


4821 


0A32 


4020 


0A2E 


4821 


0A34 


4020 


0A30 


9310 




D341 


0A48 


D240 


0A48 


4040 


1E3C 


0844 




2333 


=001A6C 


9422 




9E32 




DE30 


0A2E 


9B32 




0844 




2333 


=001A7A 


DE30 


0A48 


0000 


1A7A 


030E 





41F0 1B5E 
41F0 17E6 
0000 1F3C 



1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1650 

1661 

1662 

1563 

1564 

1665 

1666 

1667 

1668 

1669 

1670 



STCON 



SSTC.1 



$STC2 



SSTC.3 



SSTC.4 



SSTC.5 



LB E1,I0 

L3 R2,I0+1 

LIS R3,$MAXI0 

CLAE R1,R3 

BLS SSTC.1 

LIS El , 1 

CLAE R2,R3 

BLS SSTC.2 

LIS R2,1 

STB R1,I0 

STB R2,IO+1 

LB R6,C0NRQ2S(R2) 

STH R6,$LSTPAS 

LDAR E6,S6 

BZS $STC3 

SLHLS R2,2 

LH E0,I0(R2) 

OC R0,C0NCMD(E2) 

BAL R15,SETKB 

LBS R1,E0 

SLHLS R1,2 

SIS R1,2 

LH R3,IO(R1) 

STH R3,C0NRADR 

LH E3,I0+2(R1) 

STH R3,C0NWADR 

LH R2,CONCHD(R1) 

STH E2, CONED 

LH R2,C0NCJfD+2(E1) 

STH R2,C0N2ND 

LBE R1,R0 

LB R4,C0NRQ2S(R1) 

STB R4,C0NRQ2S 

STH R4,$C0NPAS 

LDAE R4,B4 

BZS SSTC.U 

EXBS E2,R2 

OCR E3,R2 

OC S3, CONED 

EDR R3,E2 

LDAR E4,E4 

BZS SSTC.5 

OC R3,C0NRQ2S 

EQU * 

BR R14 



* TO OUTPUT '?■ TO CONSOLE 

QUESTN PAL R15,SETKB 
BAL R15,SPBINT 
DAC QKSG 



GET I/O IDENTIFIERS 

IDENTIFIER CAN BE 1,2,3,4,5 

BRANCH IF KB IDENTIFIER OK 
ELSE FORCE CRT 

SAME TEST FOR LIST DEVICE 

REESTABLISH VALUES 

SET PASLH FLAG (LIST DEVICE) 
SKIP IF NOT PASLA 

ISSUE 2ND COWHAND (TO LIST DEVICE*** 

ESTABLISH KEYBOARD DEVICE ( £ IOSAVF) 
(E1) = 1,2,4,5 ; (RO = KBIDENT) 
(R1)=4,8,16,20 

SET UP CONSOLE DEVICE READ ADDRESS 

SET UP CONSOLE WRITE ADDRESS 

SET UP R/H COHHANDS 

2ND CHD; ENABLE READ CMD 



CONSOLE REQUEST TO SEND 
SET PASLA FLAG (CONSOLE) 

SKIP 2ND OC IF NOT PASLA DEVICE 

ISSUE 2ND COHHAND (TO CONSOLE) 

PUT CONSOLE IN READ *ODE 

READ A DUMHY CHARACTER (SET BUSY) 

CONSOLE PASLA DEVICE ? 

BRANCH: NO. 

REQUEST TO SEND (KEEP ON-LINE) 

RETURN 



SELECT KEYBOARD DEVICE 
QUESTION MARK, CPLF 



MTD16180 
1TD16190 
«?TD16200 
•JTD16210 
«TD16220 
HTD16230 
"■i?D16 24 
TID16250 
fTT)i6260 
TTD16270 
MTD16280 
^TD16290 
NTD15300 
HTD16310 
fTT)1«320 
XTD16330 
STD16340 
WTD16350 
WT1)16360 
mtt)16370 
M^D^SO 
HTD16390 
"^016400 
HTD16410 
•ITD16420 
*TD16430 

H , ' , D16450 
HTD164«0 
WTD16470 
fTD16H80 
»CTT>16490 
KTD16500 
HTD16510 
fl , D16520 
*TD16530 
HTD16 540 
HTD16550 
WTD16560 
"TD16570 
HTD16530 
WTD16590 
MTD16600 
tfTD16610 
HTD16620 
*TT)16630 
NTQ16640 
TTD16650 
MTD16660 
WTD1i5«70 
MTD16680 
«TD16690 
M^D16700 
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EXEC 



1 J. 8 8 



001A8C 

001A92 
001 A 96 
001A93 

001A9A 
001A9C 
001AAO 
001AA6 

001AA8 
001AAC 
001 ABO 
001AB4 
001AB6 
001AEA 
001ABE 
001AC0 
001AC4 
001AC8 
001ACC 
001ACE 
001ADO 



001AD4 
001AD6 
001ADA 
001ADE 
001AE2 
001AEU 
001AE9 
001AE8 
001AEC 
*001AFO 



001 AF2 
001AF4 
001AF8 

001 AFC 
001AFE 
001E02 
001B04 
001B05 
CO 1 BOA 



FTPE R05P7 
4300 0A3C 



0000 1A8C 
D0 r 4000 8898 



48F0 


1 " 4 A 




2"?F2 






2138 




=001AA8 


24F0 






40F0 


1E48 




D1E0 


4000 


8898 


030F 






48E0 


0A2A 




D3F0 


OMO 




C5F0 


0002 




2333 




=001?PA 


C5F0 


0005 




4330 


1AFC 




9DEF 






4280 


1A9A 




C3F0 


0020 




43 30 


1A9A 




93SF 






08FF 






4230 


1A9A 




0000 


1AD4 




24F2 






40F0 


154A 




48F0 


1E56 




4230 


1AA0 




24F0 






40E0 


1E40 




73F0 


1E48 




40E0 


1E48 




023F 






25F1 






40F0 


1E4E 




4300 


18B0 




9DEF 






C3F0 


0020 




2134 




=001F0? 


93FF 






4300 


1A9A 





J'BFF 



1671 
1572 
1673 
1674 
1675 
1676 
16"H 
1678 
1679 
1530 
1581 
1582 
1683 
1684 
1685 
1686 
1687 
1689 
1639 
1690 
1691 
1692 
1693 
1694 
1695 
1695 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1703 
1709 
1710 
1711 
1712 
1720 
1721 
1722 
1723 
1724 
1725 
1725 
1727 
1723 
1729 
1730 



P 0PTIN1 ACCEPT NEXT COtfK'ND 

* 

* IF BREAK KEY DEPRESSED, GO TO 'OPTIN' OP (BRKV£C' r ); ELSE RETURN. 



TSTRRK EQ" 

* I.H 
LH 
SIS 

BNZS 
* 

STST3. 1 LIS 
STH 
STSTB.1A LW 

BR 



STSTB.2 



STSTE.3 



LH 

LB 

CLHI 

EES 

CLHI 

BE 

SSR 

BTC 

THI 

BZ 

RDR 

LDAE 

BNZ 



STST3.4 EQU 
LIS 
STH 
LH 
BNZ 
LIS 
STH 
IFZ 
LHL 
STH 
BNZ 
ELSE 
ENDC 

STST3.4B LCS 
STH 
E 



STST3.5 



STSTB.6 



SSR 

THI 

BNZS 

SDR 

g 

PDR 



P.14,$TBPKSV 

,S15,L00P+$VALU1 

R15,$BEKFLG 

R15,2 

STSTB.2 

R1S,0 

R15,BRKVECT 
E14,STBRKSV 
S15 

R14,C0NRADF 

B15,I0 

R15,2 

STSTB.3 

R15,5 

STSTE.5 

R14,R15 

3,$TSTB.1 

R15,X'20" 

STSTB.1 

314, R15 

E15,F15 

STSTE.1 



B15,2 

R15,$BRKFLG 

R15,SPRTFLG 

STSTF. 1A 

R14,0 

R14,$NLFFLAG 

ADC-4 

R15,BRKVECT 

R14,BEKVECT 

♦SY'OOFFOOOO'CRIS) 



R15, 1 

R15,ISITERP 

SPRT.3A 

R14,R15 
R15,X*20' 
STSTF. 6 
E 1 4 , ? 1 5 
STSTB.1 
E14,R15 



SAVE REGISTERS 

(P15) = 15 IF IGNORING I/O **** 
(P15) = 15 IF 3EK ALREADY SEE R01 
LOOK FOR BREAK ? **** 

BRANCH: YES. 



CANCEL BREAK VECTOR 
RELOAD REGISTERS, 
RETURN TO CALLER. 

READ SIDE ADDRESS FOR TERMINAL 
CONSOLE ID CODE 

BRANCH: TTY 

BRAKCK: MICRO-I/O BUS 

BRANCH: 3SY = NO BFK 

BRANCH: NO FREER = NO BPK 

BRANCH: NONZERO CHAR = NO BRK 

IT IS BREAK 
• *** 

SET FLAG 
PRINTING N0« ? 
BRANCH: YES. 

DISABLE ACTIVITY INDICATOR P6 11/30 

P6 11/80 
SPECIFIED VECTOR P6 11/80 

CANCEL VECTOR P6 11/90 

BUT TAKE IHKEDIATELY IF NOT ZERO. 

P6 11/90 
P6 11/80 
FORCE fESSAGE PRINT P2 1/90 

P2 1/80 
■BREAK TERMINATION' P2 1/30 



BRANCH: 3RK. 

IF BRK QUEUED, SEE IT NEXT TIME. 

BPANCH: NO FRERE = N^ BPK 

PFAC BREAK CHAR 



fTDTS'MO 
M' , 'D16''20 

VTT)1K730 

fTD16740 
WTD16750 
fTD16"'60 
f^D16770 
•TTD16780 
WTD16790 
"JTD16800 
MTH6810 
MTD16820 
"TD16830 
M q 'D16340 
K'''D16350 
M T D16860 
^016870 

w^Diesso 

KTD16890 
"TD16900 
f T D 16910 
WTD16920 
*?t>16930 
"f^D16940 
YT>1«950 
v*!) 16960 
w "'D16 o 70 
"^^16980 
HTD16990 
M^T) 17000 
VDOOIO 
^TDI^O?" 
*^D17030 
VT'D17040 
MTD1T050 
T»D 17060 
K^D 17070 
"^D17080 
?f l 'D17090 
^D 17100 
"•TD17110 
^^017120 
M,p D17200 
V^D17210 
HTD17220 
*TD 17^30 
MTD17240 
HTf)17250 
«TD17?^0 
WTD17270 
w' t 'D17280 
WTD17290 
HTD17300 
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001E0C 
001B10 
001312 
001B14 
001E16 
001B1A 
001 B1 C 



001P20 
001B24 
001B28 
001B2C 
001B2E 
001B32 
001P34 
001B38 
001B3A 
001B3C 
001B3E 
001B40 
001B44 
001B43 
001E4A 
001E4C 
001B4E 
001B50 
001B54 
001E56 
001E5A 

001B5C 



001E5E 
001E60 
O01B64 
001B68 

001B6C 



001B6E 
001B70 
001E74 
001B78 
001E7C 



001B7E 



C8F0 8000 

26F1 

2031 

9DEF 

C3F0 0020 

2038 

(j 3 00 1ADH 



=001E10 



=001B0A 



4800 


1E3C 




D310 


1E4D 




D410 


0A10 




2333 




=D01P32 


4800 


1E3E 




1112 






4821 


OAOE 




9D21 






211A 




=001B4F 


0800 






2336 




=001B4A 


C410 


OOFC 




C510 


OOOC 




2333 




=001E4E 


2410 






2302 




=001?50 


2511 






4800 


1E58 




0601 






4000 


1E58 





0811 



030F 



2400 

4000 1E40 
D300 0A10 
D200 1E4D 
030F 



2400 

4000 1E40 
4800 0A10 
4000 1E4C 
030F 



4800 0A2A 



1731 
1732 
1733 
1734 
1735 
1736 
1 737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 



STSTB.7 



LHI 

AIS 

BNZS 

SSR 

THI 

BNZS 



R15,X'8000' 

R15, 1 

STSTB.7 

R14,F15 

R15,X'20" 

STSTB.6 

g <r 2 T B . 4 



BRK KEY STILL DOWN ? 

BRANCH: YES. 

GO SERVICE BREAK 



* SEE IF CURRENT LIST DEVICE IS OFF-LINE (R1 £ CC NON-ZERO IF OFF) 



TSTDU LH PO,$CONPAS 

LB R1,I0SAVF+1 

CLB R1,I0 

BES STSTDU.1 

LH RO,$LSTPAS 

STSTDU.1 SLLS R1,2 

LH R2,PASLADR-4(R1) 

SSR R2,R1 

BTFS 1,$IS.DU 

LDAR RO,FO 

BZS SNOT.DU 

NHI R1,X*FC' 

CLHI R1,X'0C 

BES SIS.DU 

SNOT.DU LIS R1,0 

BS SDU.X 

$IS.DU LCS R1,1 

$DO.X LH RO,SWASDU 

OAP E0,R1 

STH RO,$WASDU 

LDAR R1,R1 
* 

BR R15 



+ *** 

LIST DEVICE ID 

SAHE AS CONSOLE DEVICE ? 

BRANCH: YES. 

NOH-ZFRO IF LIST DEVICE ON PASLA. 

•READ SIDE' ADDRESS 
GET DEVICE STATUS 

DEVICE ON PASLA ? 



PASLA DU IF BSY+EX SET HERE 
BRANCH: DU. 



GET OLD FLAG 

ACCUMULATE 

SET CC <> IF DU 

OR CC = IF NOT DU 

RETURN 



TO DIRECT INPUT AND OUTPUT TO CONSOLE DEVICE 



SETKB 



LIS 

STH 

LB 

STB 

BR 



R0,0 

RO,$NLFFLAG 

RO,IO 

R0,IOSAVE+1 

R15 



DISABLE ACTIVITY INDICATOR 
GET KEYBOARD DEVICE 
SET LIST TO KEYBOARD 
RETURN 



P6 11/80 
P6 11/80 



* TO RESELECT USER'S I/O CHOICE 

* 

SETLST LIS R0,0 

STH R0,SNLFFLAG 

LH R0,IO 

STH R0,IOSAVE 

BR R15 RETURN 

* 

* TO PUT KEYBOARD DEVICE IN READ MODE 

* 

KBREAD LH R0,CONRADR 



P6 11/80 
DISABLE ACTIVITY INDICATOR P6 11/80 



1TD17310 
*T , D17320 
"TD17330 
fTD173U0 
MTD17350 
WTD17360 
yTi) "57370 

«TD17380 
•fTi)17390 
ST017U00 
>*TD17U10 
MTD17420 
WTD17430 
HTD17440 
1TD17450 
»!TD17460 
MTD17470 
MTD17480 
ATD17490 
'I'HmSOO 
HTDi"»t;io 
^TD17520 
^"MmSSO 
«tt>1-'S40 
XTD17550 
1TD17560 
HTD17 c ;70 
"TD17580 
STD1759Q 
H m D17600 
*TD17510 
HTD17620 
HTD17630 
MTD17640 
TTD17650 
HTD17660 
HTD17670 
MTT)17680 
BTD17690. 
«TD17700 
TTD17710 
«i , D17720 
MTD17730 
S^D17740 
«TD177^0 
MTD17760 
MTD17770 
VD17780 
»^D17790 
1TD17800 
H^D^oiO 
MTD17820 
^^017830 
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;xsc 



ETF? P05P7 



001F6 2 


DEOO 


0A2F 


1784 






OC 


PO/CONPD 


001E86 


DBOO 


1E38 


1785 






F.D 


P0,STNK 


001B8A 


4890 


1E3C 


1785 






LH 


K9,SC0NPAS 


0C1B8E 


42 00 


1B8F 


1787 






NOP 


■*■ 


001E92 


2333 


=0C1E98 


1788 






3ZS 


SKBR.1 


001594 


DEOO 


0A48 


1789 






OC 


R0,CCNRQ2S 


001S98 


0304 




1790 


SKBF.1 


BE 


P4 


001E9A 






1791 
1792 






IFZ 


SKBINT-1 




















• 


1793 


* 


TO S 


ET UP K! 


SYBOARD DEV TO R 








1794 


* 








001B9A 


DOOO 


4000 8950 


1795 


KBED 


STS 


RO,RSAVE 


001BA0 


4800 


0A2A 


1796 






LH 


P0,CONRADR 


001BA4 


DEOO 


0A31 


1797 






OC 


R0,CONENRD 


001BA8 


4810 


1E3C 


1793 






LH 


F1,$C0NPAS 


001BAC 


2333 


=001PB2 


1799 






BZS 


KBRD1 


001EAE 


DECO 


0A48 


1300 






OC 


R0,CON5Q2S 


001E32 


3301 




1801 


KBRD1 


EDS 


R0,R1 


001BB4 


4300 


1648 


1802 
1803 
1804 






3 
ENDC 


SRSAVRET 






















1805 


* 


LIST 


DEVICE 


SET UP ROUTINE 








1S06 


* 








001BS8 


5010 


1E70 


1807 


$SETUP 


STA 


R1,SET.RTN 


001B3C 


D310 


1E4D 


1803 






LB 


R1,I0SAVE+1 


001BCO 


9112 




1909 






SLHLS 


R1,2 


0013C2 


4801 


0A10 


1310 






LH 


R0,IO(R1) 


0013C5 


DE01 


0A31 


1811 






OC 


30,CONCMD-1(B1) 


0.01 3C A 


5810 


1E70 


1912 






LDA 


R1,SST.RTN 


001BCE 


0301 




1813 






BR 


P1 








1814 


* 


**************************** 








1815 


* 


LOW 


COSE SET UP ROUTINE 








1815 


* 








0O13D0 


DOEO 


4000 88A4 


1817 


LC03E 


ST* 


R14,SR14SAV 


0013D6 


2400 




1318 






LIS 


?0,0 


001ED8 


C910 


004E 


1819 






LHI 


31,X'4E' 


001BDC 


4001 


0000 


1320 


$LC0R1 


STH 


R0,0(R1) 


001BE0 


4001 


0080 


1821 






STH 


?0,X'80'(B1) 


0013E4 


2712 




1822 






SIS 


R1,2 


OOlR^f 


2215 


=001FDC 


1323 
1824 


* 




BNSS 


$LC0P1 


001BE8 


C300 


1C9E 


1829 






LHI 


30,SXI32CH 


001BEC 


C810 


07FE 


1830 


$LCOP? 


LHI 


=1,1023*2 


001P.F0 


4001 


OODO 


1331 


$1 


,C0R3 


STH 


RO^'DO' (R1) 


001BF4 


2712 




1832 






SIS 


R1,2 


001EF6 


2213 


=001FF0 


1833 

1834 


* 




BSKS 


SLC0P.3 


001BF8 


08^0 


3000 


1335 






LHI 


514,X'3000' 


0013FC 


35F0 


1D86 


1336 






LDAI 


E15,$EREF2 


001 COO 


00~0 


0030 


1840 
1341 


* 




ST W 


R14,X'30' 


001 CO 4 


24E0 




1842 






LIS 


?14,0 


00 ICO 6 


r^FO 


1D38 


1843 






LDAI 


R15,$ERRF3 



OC CONSOLE - READ COWHAND 

PEAD A DUSKY CHARACTER (SET BUSY) 

PASLA ? 

FOR SPECIAL KB DEVICE 

NO, BRANCH TO EXIT 

YES, OC (REQUEST TO SEND) 

PFTUPN 



WITH 1ST ENABLED 



SAVE REGISTERS 
GET KB DEV ADR 
CONSOLE : ENABLE, READ 
CONSOLE ON PASLA ? 



P5 9/80 
P2 1/80 
P5 9/80 
P5 9/80 
P5 9/80 



DUKKY BEAD TO SET BUSY 

RESTORE REGISTERS, RETURN (R15) 



GET LIST DEVICE IDENTIFIER 

HH INDEX 

GET LIST DEVICE WRITE ADDRESS 



RETURN 



SAVE REGISTERS 



ZERO HESORY FRO?! X'0000 ' -X" 004F' 
ZERO SEHORY FRO* X '0080 ' -X' OOCF ' 



32-BIT I/O HANDLER P6 11/80 

FOR MAX I/O SERVICE TABLF 
VECTORS TO XE'fOPY X" OODO • -X" 08CE ' 
ARE ZERO FOP SERIES 16 



AEITH FAULT, MALFUNCTION, ONLY. 
ILLEGAL INSTRUCTION HANDLER 
70° SERIES 32 

^0 ZERO »MF BIT IN NEW PSW 
MACHINE MALFUNCTION NEW LOC 



TTD17S40 
MT> 17950 
«rTni7B60 
* m D17 < !70 
WT017880 
1 '"1)17890 
"("•517Q00 
f"'D17910 
T P D17920 
y^D17930 
fTD17940 
yTDl7950 
WTD17960 
TTT)17970 
1TD17980 
V'D 1799 
^DISOOO 
HTD18010 

1{TT)19Q20 

VD18030 
tf^DISOUO 
HTD18050 
MTD18060 
VD18070 
*-' , D18080 
fTD18090 

^disioo 

tTD18110 
TD18120 
1TD18130 
1TD18140 
« T D18150 
1JTD18160 
fTD18170 
MTD18180 
fTD18190 
fTD18200 
1TD18210 
KTD18220 
fTD13230 
WT01824O 
>TTD18?90 
v^D18300 
K^D18310 
■* m D18320 
1T01S330 
WTD18340 
KTD18350 

WTT)1?n*0 

tf o, D18400 
MTD18410 
*TT)18420 
MTD18430 
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EXEC - EIPE 30.5P7 



001COA 


OOEO 


"•0 3 8 


001COE 


C8F0 


3000 


001C12 


E6FO 


1D8E 


001C16 


DOEO 


0048 


O01C1A 


40E0 


009A 


001C1S 


241E 




001C20 


C800 


1D7E 


001C24 


4001 


009C 


001C28 


2712 




001C2A 


2213 


=001 


001C2C 


C800 


8908 


001C30 


24F0 




001C32 


DOFO 


0040 


001C36 


4000 


0086 


001C3A 


2708 




001C3C 


4000 


0084 


001C40 


E6F0 


137 A 


001C44 


DOEO 


0088 


001C48 


E6F0 


1D8A 


001C4C 


DOEO 


0090 


001C50 


E6F0 


1D76 


001C54 


DOEO 


00C8 


001C58 


D1E0 


4000 88A4 


001C5E 


030F 





001C60 



001C60 



001C64 
001C68 
001C6C 
001C6E 
001C72 
001C74 
001C76 
001C78 
001C7A 
001C7C 
001C80 



0000 


1C60 




41F0 


1A8C 




D300 


CA10 




C500 


0005 




2137 




=001C7A 


DE20 


0A44 




9D23 






2081 




=000001 


9B24 






230E 




=001C94 


9B24 






4890 


0A2C 




C500 


0002 





1847 






STM 


B14,X'38' 




1843 


* 










1849 






LHI 


B14,X'3000' 




1850 






LDAI 


E15,$EBBF1 




1857 






STM 


% , \H,X'U8' 




1853 


+ 










1859 






STH 


5iu . y' g a ■ 




1850 






LIS 


R1,14 




1861 






LHI 


R0,SERRF9CH 




1862 


$LC0R4 


STH 


BOfX'gCCRD 




1863 






SIS 


E1,2 




1864 






BNMS 


$LC0E4 




1865 


* 










1866 






LHI 


RO,PSWSAVE+X'FF' 


'SX'F 


1884 


SLC0H5 


LIS 


B15,0 




1885 






STH 


BISjX^O' 




1886 


* 










1887 






STH 


R0,X'86' 




1888 






SIS 


R0,8 




1889 






STH 


ECX'SD' 




1890 


* 










1891 


* 










1892 






LDAI 


R15,$ERRF8 




1893 






STH 


r^x'ss* 




1894 


* 










1895 






LDAI 


R15,$ERRF5 




1896 






STH 


B14,X'90' 




1897 


* 










1898 






LDAI 


B15,$ERBF7 




1899 






STH 


R14,X'C8' 




1900 


* 










1901 


$LCORXIT 


LH 


R14,$B1«SAV 




1902 






EB 


R15 




1903 


* 










1904 






IFZ 


SKBINT-1 




1905 
1906 












* 


KEYBOARD INTEBBUPT HANDLEH 




1907 


* 










1908 


KBINTO 


EQU 


* 




1909 






BAL 


R15,TSTBRK 


i 


1910 


* 










1911 


* 










1912 






LB 


BO, 10 




1913 






CLHI 


BO, 5 




1914 






BNES 


KBINT2 




1915 






OC 


R2,MREADC 




1916 






SSB 


R2,R3 




1917 






BTBS 


8,1 




1918 






RDR 


R2,B4 




1919 






BS 


KBINT3 




1920 


kb: 


[NT2 


RDR 


R2,R4 




1921 






LH 


B9,C0NHADB 


i 


1922 






CLHI 


R0,2 





FOR SERIES 32 

ABITH FAULT, MALFUNCTION, ONLY. 

ARITHMETIC FAULT HDLR , S32 

SVC NEK PSW 

SVC INTERRUPT HDLR P6 11/80 

SVC INTPT NEW LOC'S 

DO ALL 16 

SX'FFOO'+S PPF BEG SAVE AREA 

ZEBO MALFUNCTION STATUS WORD, S3200 

S32 PPF BEG SAVE POINTEE 

S32 PPF PSW SAVE POINTEB 

FOB S3200, IS ONE 24-BIT ADDRESS. 

SYSTEM QUEUE INTPT NEW PSW 

RELOC/PROTECT INTPT NEW PSW 



DATA FORMAT FAULT NEW PSW 

RESTORE BEGISTEBS 
AND RETURN. 



CHECK IF BREAK KEY 

IF BREAK KEY DEPRESSED, WILL GO 

TO 'OPTIN' OR (BRKVECT); ELSE RETURN. 

IS IT KICROBUS ? 

NO, BBAHCH 

READ COMMAND TO KICROBUS 



KNOCK DOWN INTERRUPT 



CONSOLE WRITE ADDRESS 
10 TO TTY ? 



P3 3/80 



FTD18470 
MTD18480 
MTD18490 
MTD18500 
MTD18570 
MTD18580 
WTD1 s'-'QQ 
1^018600 
MTD18610 
MTD18620 
M^D18630 
MTD18640 
MTD18650 
NTD18660 
MTD18840 
HTD18850 

tf'Disseo 

MTD18870 
HTD 18880 
MTD18890 
MTD18900 
M^D18910 
MTD18920 
MTD18930 
MTD18940 
HTD18950 
M T D18960 
HTD18970 
MTD18980 
MTD18990 
MTD19000 
HTD19010 
M^D19020 
HTD19030 
TTD19040 
MTD19050 
MTD19060 
HTD19070 
MTD19080 
MTD19090 
MTD19100 
MTD19110 
Mi"D19120 
MTD19130 
MTD19140 
MTD19150 
MTD19160 
MTD19170 
M^D19180 
K^D^^O 
MTD19200 
MTD19210 
M n 'D19220 
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EXEC - 


- ETPF R0SP7 












001C84 


2133 




=001C8A 


1923 




B8ES 


ST3INT2B 


0C1C86 


DE90 


0A2F 




1924 


K3INT2A 


QC 


R9,C0NW?T 


001C8A 


9D93 






1925 


KBINT2B 


SSR 


R9,3 


001C8C 


2083 




=001C86 


1925 




BTBS 


8,K?IST2? 


001C8E 


9093 






1927 




SSB 


R9,?3 


001C90 


2081 




=000001 


1928 




BTBS 


8,1 


001C9 2 


9A94 






1929 




SDR 


S9,R4 


001C9U 


4890 


1F45 




19 30 


KBINT3 


LK 


E9,K3IN' r 


001C98 


0239 






1931 




ENZR 


R9 


001C9A 


4300 


1CF8 




1932 

1933 
1934 


* 


B 
ENDC 


RETOPSW 










1935 


* **************************** 










1936 


* EXTERNAL INTERRUPT HANDLER 


0C1C9E 








1937 
1950 




IFZ 
ELSE 


ADC-2 


001C9E 


95AA 






1951 


SXI32 


EPSR 


R10,P10 


001CA0 


50A0 


1E28 




1952 




ST 


R10,INTFSW 


001CA4 


98E0 






1953 




LDAR 


R14,P0 


001CA5 


0SF1 






1954 
1955 




LDAR 
ENDC 


P15,F1 


001CA8 


4020 


1E32 




1956 




STH 


R2,INTDEV 


001CAC 


D230 


1E34 




1957 




STB 


R3,INTST» 


001CB0 


.00 EO 


1E18 




1958 




STM 


E14,0LDPSV 


001CB4 


4520 


0A2A 




1959 




CLH 


R2, CONRAD? 


001CB8 








1960 




IFZ 


SKBINT-1 


001CE8 


4330 


1C60 




1961 
1962 
1954 
1965 


* 


BE 

FLSE 

ENDC 


KBIS.O 


001CBC 


2450 






1966 




LIS 


P5,0 


001CBE 


4865 


21E0 




1967 


SXI1 


LH 


R6,DEVSADR(R5) 


001CC2 


4210 


1CFC 




1968 




BS 


5ERRF4 


001CC6 


0562 






1969 




CLAR 


R6,R2 


001CC8 


2333 




=001CCF 


1970 




BES 


5X12 


001CCA 


26 52 






1971 




ATS 


F.5,2 


001CCC 


2207 




=001CBE 


1972 




BS 


SXI1 


001CCE 


4865 


21E6 




1973 


SXI2 


LH 


R5,D~VINT(R5) 


001CD2 


4330 


1CFC 




1974 




BZ 


SERRFO 


001CD6 


1051 






1975 




SRLS 


R5,1 


001CD3 


101.4 






1976 




SELS 


P10,4 


001CDA 


C4A0 


OOOF 




1977 




NHI 


R10,15 


001CDE 


D4A5 


21EC 




1973 




CLB 


R10,INTLVL(R5) 


*001CE2 


213F 




=001100 


197 9 
1980 


* 


BNE 


$EP.?F5 


001CE4 


08 1F 






1981 




LDAR 


R1,F15 


001CE6 


48E0 


0A52 




1982 




LH 


F14,PSW2 


001CEA 


08F6 






1983 




LDAR 


R15,36 


001CEA 








1984 
1996 




IFZ 
ELSE 


ADC-2 


001CEC 


F4F0 


0000 


FFFF 


1997 




NI 


R15,Y'0O0OFFFF* 


*J01CF2 


C5F0 


0000 




1998 




01 


R15,*£.Y'00FFOOC 


001CF6 


1S0E 






1999 




LPSWR 


R14 



BRANCH: NO. 

SET WRITE MODE 

BUSY ? 

BRANCH: YES (KAY HANG) 



P3 3/80 
P3 3/80 
P3 3/80 
P3 3/80 



(HAY HANG) 

ECHO CHARACTER 

INTERRUPT EXPECTED ? 

IF YES, SERVICE IT. ELSE, IGNORE 

RETURN TO INTERRUPTED PROGPA" 



******************** 



PSW AFTER INTERRUPT 

OLD PSW 
OLD LOC 

INTERRUPTING DEVICE ADDRESS 

INTERRUPTING DEVICE STATUS 

## 

CONSOLE READ-SIDE INTERRUPT ? 

BRANCH: YES. 



GET DEY ADRS FRO!? TABLE 

TABLE OVERFLOW. 

COMPARE IXTERRUPTING DEVICE ADDRFS 



GET INTERRUPT HANDLE? ADDRESS 

INTERRUPT NOT EXPECTED 

IF SERIES 32, 

INTERRUPT LEVEL w'J^T BE CORRECT 

CHFCK PROPER INTERRUPT LEVEL 
SEPIAS 16 ZERO ALWAYS BATCHES. 

OLD LOC AT INTEE D UP T 
SPEC'D AS X'30F0* 
INTERRUPT VECTOR 



DISALLOW SIGN EXTENSION P6 11/80 
LOCAL 64 KB MEMORY BLOCK P6 11/80 
GO TO INTERRUPT SERVICE ROUTINE. 



*T7)19230 
t n, Dl9?U0 
1^019250 
MTD19260 
MTP19270 
MTD19280 
MTD19290 
w^D^SOO 
*P , 1)19310 
^^D19320 
M"*T>19330 
*"'D19340 
STD19350 
S'"D193fiO 
MTT) 19370 

HTD19510 
V TD19520 
^019530 
MTD19540 

f T D19560 
MTD19570 
M'"D19580 
WTD19590 
W^D19600 
«^D19610 
»f7D19620 
HTD19640 
HTD19«50 

i?di966o 

K^D19670 
W'"D19680 
Y' n I>19^90 
JJTD19700 
YTD19710 
HTD19720 
T^D 19730 
STD19740 
fT'D19750 
W,,, D19760 
VD19770 
YTT)19780 
MTD19790 
fTD19800 
MT-D19810 
•TTD19820 
1TD1983C 
KTrngeno 

wTt)i 9 Q 70 
WTD19980 

VTT)1 9P90 



HI3H PERFORMANCE(6250)BASTAP5 
EXSC - ETPE R05P7 
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001CF8 



001CFC 
001CFE 



001D00 
0C1DO2 
001D06 
001DOA 
OC1D0E 
001P12 
001D16 
001D18 

001D1C 
001D20 
001D24 
001D26 
001P2A 
001D30 
001D34 



001D38 
001D3A 
001D3A 

001D3E 
001D42 
001D46 
001D48 
*001E4C 
*001DUE 

001D50 
001D54 
001D58 
001D5A 
001D5E 



0000 1CF8 
0000 1CF8 
C200 1E18 



2464 

2302 =001E02 



2466 

C660 4630 
4060 1EAA 
D3AA 1E88 
D2A0 1F2D 
4810 0A52 
9501 
41F0 149C 

4860 1EAA 

C560 4636 

2138 =0C1D34 

4060 1E4E 

41F0 17E6 

0000 1F18 

4300 OABC 



95DD 
D1E0 0020 



50D0 1E2C 

5800 0040 

2335 =001050 

5000 1E2C 

2117 . =001D5A 

230E =001D6A 

50D0 1E2C 

C3D0 0001 

2339 =001D6A 

E600 1D5A 

5000 003C 



2000 

2001 

2002 

2003 

2004 

2005 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2062 

2063 

2064 

2065 

2066 

2067 

2058 

2069 

2070 

2071 

2072 

2073 

2074 



ESDC 



* TO RETURN ON OLD PSH FOLLOWING I/O INTERRUPT 



RETOPSW EQU * 
RET0PSW1 EQU * 

LPSW OLDPSW 



EXTERNAL INTERRUPT ERROR ROUTINE 



SERRF4 



LIS 

BS 



S6,4 
XIERE1 



ERROR TTF4 



DEVICE INTERRUPTED IN WRONG INTERRUPT LEVEL 



SERRF6 LIS R6,6 

XIERR1 OHI R6,C'F0' 

STH R6,ERRN0 

LB R10,HEXTAB(R10) 

STB R10,EERLVL 

LH R1,PSH2 

EPSR R0,R1 

BAL R15,ERRALL 

* 

LH R6,ERRN0 

CLHI SejC'Fe" 

BNES XIERR2 

STH R6,ISITERR 

BAL R15, SPRINT 

DAC INTLVLB 

XIERR2 B 0PTIN1 

*_ , — ___ 

* SPURIOUS INTERRUPT HANDLERS 



ERROR TTF6 
CONVERT TO ASCII 

CONVERT LEVEL TO ASCII P3 3/80 
AND STORE IN MESSAGE P3 3/80 

SPEC'D AS X'30FO' 
ENSURE USER REGISTER SET 
'ERROR TTFN", ' DEV DDD STA SS' 
'PSW PPPP LOC LLLL* 

WRONG INTERRUPT LEVEL ? 
BRANCH: NO. 
FORCE PRINT 

•INTERRUPTED IN LEVEL N" 
ENTER COMMAND MODE. 



MACHINE MALFUNCTION INTERRUPT TRAP 



SERRF3 



$MM.1 



SMM.2 



EPSR 


R13,R13 


LH 


R14,X'20' 


IFZ 


ADC-2 


ELSE 




ST 


R13,MHSH 


I 


ROjX^O'' 


BZS 


SMM.1 


ST 


R0,MMSW 


BM 


$MH.2 


3 


$M».3 


ST 


513,MBSW 


THI 


R13,X"0001 • 


BZS 


SHM.3 


LDAI 


R0,$KM.3 


ST 


R0,X'3C" 



PSW AT ENTRY TO HANDLER £ SAME CC 
S32 MALFUNCTION OLD PSW 



PSW STATUS AT INTERRUPT 

SERIES 3200 ? 

BRANCH: NO. 

S3200 MALFUNCTION STATUS 

BRANCH: POWER FAIL (SMSW BIT 0) 

NOT POWER FAIL. 

PSW STATUS AT INTERRUPT 
POWER FAIL ? 
BRANCH: NO. 

CHANGE INTERRUPT NEW LOC 



MTD20000 
*TD20010 
»' T, D20020 
"TD20030 
"TP20040 
MTD20050 
MT*r*2Q 110 
"JTD20120 
"'"D20130 
HTD20140 
"TT120150 
H T D20160 
fl"M)20170 
lf"D20180 
MTD20190 
"''•D20200 
KTD20210 
1TD20220 
M n, D20230 
1TD20240 
MTD20250 
>f , D20260 
n* D20270 
■? T T)20280 
XTT120290 
H T D20300 
"("•^203 10 
S^D20320 
M' 1, D20330 
M'"D20340 
VDSOS'iO 
M^D20360 
MTD20370 
MTD20380 
MTD20390 
WTD20400 
WTD20410 
M'"!>20420 
"TD20430 
MTD20440 

VT>20« : 30 
1' r D20640 
"""520650 
fTD20660 
1^020570 
M^D20680 
MTD20690 
M'"D20700 
MTD20710 
«fTD20720 
M ,p D20 _ '30 
MTD20740 



HI3H 
EXEC 



001D62 
001D66 
00106 9 



001D6A 
001 D6 A 

001D6S 



001D72 
001D74 



001D76 
001D78 



001D7A 
001D7C 



001D7E 
001D80 
001D84 



001D85 
001D88 



0C1L8A 
001D8C 



001D8- 



D01?3 
00139 4 
0P1?96 



PERFORMANCE (6 250 )«AGTAPE 
- STPE R05P7 



4810 0A52 
9501 

2200 =001T6e 
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3610 1D3S 



5010 003C 



2453 
2308 



2467 
2306 



2458 
2304 



=001P84 



=001D84 



=001T84 



2469 

C820 0096 

2306 =001E90 



2452 
2304 



2465 
2302 



2461 



0000 1DS0 
DOEO 1E13 
C660 4530 
4060 13AA 



=001T90 



=001090 



2075 
2076 
2077 
2078 
2079 
2080 
2031 
2082 
2083 
2084 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2119 
2120 
2127 
2128 
2129 
2130 
2131 
2132 
2136 
2137 
2141 
2142 
2143 
2144 
2152 
2153 
2154 



EVDC 

LH R1,PSW2 

EFSR R0,R1 



SPEC'D A3 y30F0' 

RE-ENABLE MALFUNCTION 

AND WAIT FOR POW^B RESTORE. 



* AT THIS POINT, WE KNOW IT IS NOT A PO r *'ER P AIL. 

* POWER PFSTORF REPORTS "POWER FAIL' AS REASON FOR INTERRUPT. 



SHH.3 



LDAI 


51,$ERRF3 


IFZ 


ADC-2 


ELSE 




ST 


S1,X'3C 


ENDC 




LIS 


R6,3 


BS 


SBS.COMH 



RESTORE INTERRUPT VECTOR 



NEW LOC 



* DATA FORMAT FAULT INTERRUPT 



SERRF7 



LIS 

BS 



R6,7 
SBS.COMH 



SYSTEM QUEUE SERVICE INTERRUPT 



SERRF8 



LIS 

BS 



P.6,8 
SBS.COMH 



* SUPERVISOR CALL INTERRUPT 



SERRF9 LIS 
LHI 
SBS.COKM ES 



R6,9 

R2,X'96' 

COSM 



ERROR TTF3 



ERROR TTF7 



ERROR T'FS 



ERROR TTF9 

WHERE TO FIND OLD PS T - 



S16 



P2 1/»0 



P2 1/80 
P2 1/80 



ILLEGAL INSTRUCTION INTERRUPT TRAP 
SERRF2 LIS R6,2 ERROR TTF2 



LIS 

BS 



R6,2 
COMH 



RELOCATION/PROTECTION INT TRAP 



SERRF5 LIS 

ES 



R6,5 
COM* 



ERROR TTF5 



* ARITHMETIC FAULT INT (32-BIT PROCESSOR "RAP 

* 

SERPF1 LIS 85,1 ERROR TTF1 

* 

* ERROR T?FN PRINTOUT ROUTINE. EXPECTS USER REGISTER SET SELECTED. 



SC0MK1 



STM 
"HI 
STV 



?14,0LDPSW 

R6,C'F0' 

R6,EE5N0 



OLD PSW, OLD LOC 

CONVERT ERROR NUMBER TO ASCII 

E 3 R D V 'J ^ B E ^ 



y-r, 2 o-750 
mt>020 7 60 
yn D?077^ 
w m D20790 
¥"T)20"790 
M""12OR00 
■""^20910 
XTD20?20 
"'''D20830 
1TD?0R40 

'» n, D20910 
""020920 
y , D?0930 
"•"020940 
VD20950 
"f"D20960 
M m D20970 
"""020980 
'* ,p D20990 
ifTir)21000 
M -1 " 1)21010 
y"D21020 
"■"021030 
^021040 
"^"021050 
"'''021060 
f^D21070 
W ^D21080 
"'021090 
"•"D21100 
M m D21110 
"""D21120 
M r "D21130 
Y n, 0?1140 
"•"D21150 
mtT)21 190 
^"021200 
u-"i)21?70 
M T D21280 
"'021290 
M? 021300 
"•"021310 
"'021320 
«^02136C 
M-n?1370 
M'D21410 
M'"D21420 
"T021430 
HTD21440 
M n, D21520 
"TD21530 
"TD21540 



HI3H PERFORMANCE(6250)KAGTAPE DIAGNOSTIC 06-263R01H95A 13 PAGE 40 08:34:07 12/23/83 
EXEC - ETPE R05P7 



001D9C 
001DA0 
001DA4 
001DA6 
O01DAA 
001 DAE 
qq -1 nnn 

001DB4 
001DB8 
001DBC 
001DC0 
001DC4 
001DC8 
001DCC 
001DD0 

001DD0 

001DD4 

001DD8 
001DDA 
001 DDE 
001DE2 
001DE8 
001DEC 
001PEC 
001DF0 
001DF6 
001DFA 



001DFE 
001E02 
001E04 
001E08 
001EOC 
001E10 



001E18 

001E18 
001E1A 
001E1C 
001E1E 
001E20 
001E22 
001E24 
001E26 
001E28 
001E2C 
001E2E 



4060 1E4E 

4810 0A52 

9501 

41E0 19F8 

41F0 1320 

2034 =001TA6 

ii Q in -i re o 

4010 1E40 
41F0 1782 
41F0 1434 
4860 1EAA 
4060 1E4E 
41E0 1578 
C560 4633 
4230 OABC 



5810 1E2C 

2408 

E620 1EE7 
41F0 1680 
41F0 17E6 
0000 1EDE 

5810 0040 
F310 3F00 0000 
4330 0AB4 
5810 0044 



E6 20 1EFA 
2406 

41F0 1680 
41F0 17E6 
0000 1EF0 
4300 0AB4 



0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 0000 

0000 

0000 



2155 


STH 


R6,ISITEFR 


2155 


LH 


R1,PSW2 


2157 


EPSE 


R0,R1 


2153 


SCOHW2 BAL 


R14,STC0N 


2159 


BAL 


R15,TSTDU 


2160 


BNZS 


SC0MM2 


2161 


STH 


di «nicnn 


2162 


STH 


R1,$HLFFLAG 


2163 


BAL 


E15,CELF 


2164 


BAL 


R15,ERP. 


2165 


LH 


R6,ERRN0 


2166 


STH 


R6,ISITERR 


2167 


BAL 


R14,ERRPL1 


2168 


CLHI 


R6,C'F3' 


2169 


BNE 


0PTIN1 


2170 


* 




2171 


IFZ 


ADC-2 


2177 


ELSE 




2178 


L 


R1,H*SW 


2179 


ENDC 




2180 


LIS 


R0,8 


2181 


LDAI 


R2,ASCIMSW 


2182 


BAL 


R15,HEXASC 


2183 


BAL 


R15, SPRINT 


2184 


DAC 


MHSWKSG 


2189 


IFZ 


ADC-4 


2190 


I 


R1,X'40* 


2191 


TI 


R1,Y'3F00O00O 


2192 


BZ 


OPTIN 


2193 


L 


R1,X , 44" 


2194 


ELSE 




2199 


ENDC 




2200 


LDAI 


R2,ASCIBAW 


2201 


LIS 


R0,6 


2202 


BAL 


H15,HEXASC 


2203 


BAL 


R15, SPRINT 


2204 


DAC 


BMAWMSG 


2205 


B 


OPTIN 


2206 


* ************************** 


2207 


* ETPE CONSTANTS £ TABLES 


2208 
2209 


ALIGN 


8 






2210 


OLDPSW DCX 


0000,0000,000 



FORCE ERROR MESSAGE PRINT 

SPEC'D AS X'30FO' 

ENSURE USER REGISTER SET 

SET UP £ SELECT KEYBOARD DEVICE 

TEST IF KEYBOARD OFF-LINE 

WAIT FOR ON-LINE. 

7UDn T?Tir* 

DISABLE ACTIVITY INDICATOR 

SEND LINE FEED 

PRINT 'ERROR XXFV 

GET ERROR NUMBER 

FORCE PRINT 

PRINT *PSW PPPP LOC LLLL' 

MACHINE HALFUNCTION ? 

BRANCH: NO. 



REASON FOR MALFUNCTION 

DIGIT COUNT 
DESTINATION 
CONYERT 3200 MHSW FOR PRINT 



•STATUS = XXXXXXXX" 

• 

HALFUNCTION STATUS WORD 
ADDRESS WORD VALID ? 
BRANCH: NOT VALID 



DESTINATION 



•ADDRESS = XXXXXX* 
GET COMMAND INPUT 



2211 NEWPSW DCX 0000,0000,0000,0000 



P 6 11/80 
P6 11/80 



P6 1 



P6 
P6 
P6 



P6 1 



P6 1 
P6 1 
P6 1 
P6 1 
P6 1 
P6 1 
P6 1 
P6 1 




1/80 
1/80 
1/80 
1/80 
1/80 
1/80 
1/80 
1/80 
1/80 
1/80 
1/80 
1/80 
1/80 



2212 
2213 



INTPSW 
MHSW 



DCY 
DCX 



0000,0000 



(SERIES ^2 ONLY) 

MACHINE MALFUNCTION STATUS 



MTD21^0 
MTD21560 
MTD21570 
MTD21580 
M^D21590 
MTD21600 
MTD21 6 10 
MTD21620 
MTD21630 
MTD21640 
MTD21650 
MTD21660 
MTD21670 
HTD21680 
MTD21690 
MTD21700 
MTD21710 

MTD21' 7 80 
MTD21790 
M^D21800 
MTD21810 
M^D21820 
MTD21830 
MTD21840 
HTD21890 
MTD21900 
HTD21910 
M^D219?0 
MTD21930 
MTD21940 
MTD21990 
MTD22000 
MTD22010 
MTD22020 
MTD22O30 
MTD22040 
MTD22050 
MTD22O60 
MTD22070 
MTD22080 
MTD22090 
MTD22100 



M' !, D22110 



M^D22120 
M^D22130 



HIGH PERF0RHANCE(P25C)KAGTAPE DIAGNOSTIC 06-263R0 1 M95 A1 3 PAGE 1*1 08:34:07 12/23/33 



EXEC - 


- ETP" R05P7 


001E30 


0000 




001E32 


0000 






0000 


1E32 


001E34 


00 






0000 


1E34 


001E35 


80 




001E36 


40 




001E37 


EO 




001E38 






nmrm 


0000 


0000 


001E3C 


0000 




001E3E 


3000 




001F40 


0000 




001E42 


0000 




001E44 


0000 




0G1E46 






001E46 


1CF8 




001S43 


0000 




001E4A 


0000 




001E4C 


0000 




001E4E 


0000 




001E50 


0000 




001S52 


0000 




001E54 


0000 




001E56 


0000 




001E58 


0000 




001E5A 


0000 




001E5C 


0000 




001E5E 


0000 




001E50 


0000 




001E6 2 


0000 




001E64 


0000 


0000 


001E6 8 


0000 


0000 


001E5C 


0000 


0000 


001E70 


0000 


0000 


C01E74 






001E74 


0000 


0001 


001E78 


0000 


ooos 


001S7C 


3000 


0064 


001E80 


0000 


03E8 


001E84 


0000 


2710 


001E88 


3031 


3233 


001E90 


3839 


4142 



2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2 231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 



M0D32 


DCX 





INTDEV 


DCX 





ERF.DEV 


EQU 


TNTDEV 


INTSTA 


D3 





ERRSTA 


EQU 


INTSTA 


NORK 


DB 


X' 80 ' 


INCR 


DB 


X'40' 


SCLKSTRT 


DB 


X'EO' 




D3 


+ 


SINK 


DC 


,i, 


$CONPAS 


DCX 





SLSTPAS 


DCX 





$NLFFLAG 


DCX 





SNLFHIST 


DCX 





SNLFCNTR 


DCX 












KBINT 

BRKVECT 

$BRKFLG 

IOSAVE 

ISITERR 

NOERR 

SEITST 

SLINEPOS 

SPBTFLG 

$WASDU 

TOTAL 

TOTERR 

BTESTNO 

COUNT 

SPAUSE 

$SHUTDKN 

OUT.SAV 

BRK.SAV 

SET.RTN 



IFZ 
DC 

e;jdc 

DC 

DCX 

DCX 

DCX 

DCX 

DCX 

ECX 

DCX 

DCX 

DCX 

DCX 

DCX 

DCX 

DCX 

DAC 

DAC 

DAC 

DAC 



3KBINT-1 
Z(RETOPSH) 

Z(0) 




o 




o 















11/80 
11/80 
11/80 



SON-ZERO, SERIES "2 

INTERRUPTING DEV ADR 

ERROE DEVICE * 

INTERRUPTING DEV STATUS 

ERRONEOUS STATUS 

CONSOLF N'ORMAL HODE 

CONSOLE INCREMENTAL '•ODE 

PIC CKD BISARS+START 

(ALIGN ON HV BOUNDARY) 

BIT hVC^ 

SET WHEN CONSOLE ON PASLA/PALK 

SET WHEN LIST DEVICE ON PASLA 

= NO ACTIVITY INDICATOR P6 

ACTIVITY INDICATOR HISTORY P6 

ACTIVITY COUNT P6 



KEYBOARD INT RETURN AD" 

BREAK KEY YECTOR 

SET IF BREAK KEY DETECTED 

CURRENT I/O IDENTIFIERS 

MESSAGE LEVEL 

ZERO = 'NO ERROR* 

HIGHEST SELECTED TEST * 

CURRENT SOUTBUF POSI™IOK 

FLAG USED ?0 D DEFERRING ERK ACKNOWLED 

ZERO IF I/O DEVICE ON-LINE 

TIKES WHOLE TEST RAN 

TOTAL ERRORS DETECTED 

CURRENT TEST # IN BINARY 

TIHES CURRENT TEST RAN 

SET DURING TRANSMISSION PAUSE 

ACUSER-DEEINED SHUTDOUN ROUTINE) 

OUTCHR RET'JRK ADDRESS SAVE 

TSTBRK RETURN ADDRESS SAVE 

SSETUP RETURN ADDRESS SAVE 



IFZ 
DECTAB DC 



001"93 
001EAO 



S445 5354 7'.. 
JD 



>?2A 



2255 

2256 

2257 
2253 
2259 
2250 


HEXTAB 


ESDC 

D3 


* ETPE 

* 

TSTHSG 


MESSA 



SDECTAB-1 

1,10,100,1000,10000 DECIMAL VAL'JES 



C , 0123456789ABCDEF* HEXADECIMAL DIGITS 



VTEST **',X , OD' 



mtt>22140 
mtt)??iso 
1TD22160 
y' p D22170 
MTD22180 
w" , U22190 
i(-T.r\22200 
*TD22210 
VTD22720 
T'D22230 
** n, D22240 
"TD22250 
f'"D222*0 
if"D22270 
MTD22280 
f' ,, D22?90 
T*"D22300 
*' r 'D22310 
M T D22320 
H7>t)223 : '0 
1' t 'D22340 
T ,, D22350 
'*' T 'D22?S0 
* ,,, T>22370 
KTD22380 
HTD22390 
w'" D 22400 
"TD22410 
"»' r D22420 
MTD22430 
MTQ22440 
¥'"D22450 
•""D22460 
vm D22470 
y T, D22480 
f"D22490 
f"D22500 
M m D22510 
WT D22520 
"'"D22530 
^■"1)22^40 



>* ,, D22'>50 

""D225S0 

ur, D22^70 
W"^D22580 
VT322590 
""'D22600 



HI~H PERFORKANCE(6250)!!AGTAPE DIAGNOSTIC 05-263R01 H95A 1 3 PAGE 42 06:34:07 12/23/83 
EXEC - ETPE E05P7 



001EA2 
001EA2 
001EAA 



001EAF 
001EB7 
001EBE 
001EC6 
001EC7 
001ECF 



001ED6 

G01EDE 
001EE6 
001EEE 

001EF0 
001EF8 
001F00 

001F01 
001F09 
001F11 



001F18 
001F20 
001F2S 

001F2F 
001F37 
001F3C 
001F3C 
001F40 
001F42 
001F4A 
001F52 
001F5A 

001F5C 

001F61 
001F6 2 
001F6A 
001F72 
001F7A 
001F82 



0000 


1E9E 






4552 


524F 


5220 


2A2A 


2A2A 


2020 


OD 




0000 


1EA8 






0000 


1EAA 






544F 


5441 


4C20 


2020 


544F 


5445 


5252 


OD 


4S4F 


2045 


c 252 


4F52 


OD 








4445 


5620 


2A2A 


2A20 


5354 


4120 


2A2A 


OD 


0000 


1ECB 






0000 


1ECF 






0000 


1ED3 






4445 


5620 


2A2A 


2A0D 


0000 


1EDA 






5354 


4154 


5553 


203D 


202A 


2A2A 


2A2A 


2A2A 


2A0D 








0000 


1EE7 






4144 


4452 


4553 


5320 


3020 


2A2A 


2A2A 


2A2A 


00 








0000 


1EFA 






5053 


5720 


2020 


2020 


2020 


2020 


4C4F 


4320 


2020 


2020 


2020 


OD 


0000 


1F05 






0000 


1F0D 






0000 


1F11 






494E 


5445 


5252 


5550 


5445 


4420 


494E 


204C 


4556 


454C 


202A 


OD 


0000 


1F2D 






45 4E 


4420 


4F46 


2054 


4553 


540D 






8DQA 


3F0P 






2A0D 








FFFF 


FFFF 


FFFF 


FFFF 


4252 


4 541 


4B20 


5445 


524P 


494E 


4154 


494F 


4 EOS 








0000 


1F5B 






FFFF 


FFFF 


OD 




0000 


1F60 






5448 


4520 


4355 


5252 


454E 


5420 


5354 


4154 


5553 


204F 


4620 


4452 


4956 


4520 


2A2A 


2A20 


4953 


202A 


2A2A 





2251 
2252 
2253 



2267 

2268 



2275 
2276 



2285 
2286 
2287 
2288 
2289 



MTESTNO 
ERRSSG 



EQTJ TSTfSG+6 
ALIGN 2 



2254 ETESTSO 

2265 ERRNO 

2266 TOTKSG 



ASCIS5W 
MMAWHSG 



2279 ASCIPSS 

2280 LOCKSG 

2281 ASCILOC 

2282 INTLVLM 



2 28 3 EfiRLVL 

2284 EOTHSG 



DB 

EQU 
EQU 
DB 



C'EREOP. **** 



MASTER TEST NUHBFR (ASCII) 
'/X'OD' 



NOERMSG DB 
DEVSSG DB 



2269 ASCIDEV EQU 

2270 STAMSG EQU 

2271 ASCISTA EQU 

2272 DEVHSG2 DB 

2273 ASCIDEV2 EQU 

2274 HMSWMSG DB 



QHSG 
AMSG 
BBKMSG 



2290 SBRKEND 

2 291 NULLHSG 

2292 CRLFHSG 

2293 

2294 DRVSKSG 



EQU 

DB 



2277 ASCIHAW EQU 

2278 PSWHSG DB 



EQU 
EQU 
EQU 
DB 



EQU 
DB 



ERR*SG+6 STORED BY ETPE 

ERRKSG+8 STORE ES3N0 AS CHAR CONSTANT 

i^tfprCPUT «P )•> *fl T7 T"» « ■ VI A1S4 

^ iuini, ±wxcrvr( ,a uy 

C'NO ERROR', X'OD' 

C'DEV *** STA ** , ,X'0D' 

DEVSSG+4 

DEVHSG+8 

DEVHSG+12 

C'DEV ***',X*OD' 

DEVMSG2+4 

C'STATUS = ********', X'OD' 



MHSSWSG+9 
C* ADDRESS 



BWAWHSG+10 
C'PSW 



****** 



'/X'OD* 



LOG 



',X'0D' 



P6 11/80 



P6 11/80 



PSWHSG+4 

PSWHSG+12 

PSWHSG+16 

^INTERRUPTED IN LEVEL **,X'OD" 



INTLVLM+21 

C'END OF TEST' ,X'OD' 



ALIGN « 

OB X'SDVX'OA'^C'V'/X'OD' CR,LF,?,CR 

DB C'^'/X'OD' *,CE 

DB -1,-1,-1,-1,-1,-1,-1,-1 

DB C'BREAK TEBHINATION • ,X ' OD • 



EQU 

DB 

EQU 

DB 
DC 



-1,-1, -1,-1, X'OD' 

NULLHSG+4 

* HALFWORD ALIGN 

C'THE CURRENT STATUS OF DRIVE *** IS ***',X'ODOA' **** 



HTD22610 
1TD22620 
fTD22630 

1TD22540 
f T 'D22650 
"1^02 26 6 

f^D22670 

fTD22680 

Hi , D22690 
« n "D22700 
>('»'D22''10 
HTD22T20 
MTD22730 
*TD22"740 



K^D22750 
HTD22760 



1TD22770 
*'"')2278P 



»! '"022790 
MTD22800 
HTD22810 
VTD22820 



STD22830 
?T , D22840 

MT'D22850 
fTD22860 
3TD22870 
M^D22880 
"TD22890 



HTD22900 
M^D22910 
MTD22920 
STD22930 
XTD22940 



HI3H PERFO8WANC£(6250)KA3TAPS DIAGNOSTIC 0S-263R01 W95A 13 PAGE 1*3 08:34:07 12/23/83 
EXEC - 5TPE H05P7 



001F68 
001FSA 
0O1F92 
001F9A 
001F9C 
001FA4 
001FA6 
001FA8 
001FBO 
001FB2 
OOIFBU 
001FBC 
001FBE 
001FCO 
001FC8 
001FCA 
OOIFCC 
001FD4 
001FD6 



ODDA 

5441 5015 2055 4F49 

5420 5354 4154 5553 

ODOA 

4259 5445 3020 202A 

2A20 

8DQA 

4259 5445 3120 202? 

2A20 

9D0A 

4259 5445 3220 202A 

2 A 20 

8D0A 

4259 5445 3320 202A 

2A20 

3D0A 

4259 5445 3420 202A 

2A20 

ODOA 



2295 EXTDWSG2 DC 



2296 BYMSGO DC 



2237 



2298 



2299 



2300 



DC 



DC 



DC 



DC 



C'TAPE UNIT STATUS* ,X* ODOA' * 
C'BYTEO **',X'8D0A' * 
CPYTE1 ** , ,X*8D0A" * 
CBYTE2 **',X*8D0A* * 
C* BYTE 3 **',X , 8D0A* * 
CBYTS4 ***,X'OT>OA' * 



**** MTD22950 



"■"D22960 



*f 7, n?2970 



"D22980 



MT-D22990 



«f?R?3000 



HI3H 
DATA 



001FD8 



001FE0 
001FE2 
001FE4 
001FE6 
001FEE 
001FF0 
001FF2 
001FF4 
001FFC 
001FFE 
002000 
0C2002 
00200A 
00200C 
00200E 
002010 
002018 
00201A 
00201C 
00201E 
002026 
002028 
00202A 
00202C 
002034 
002036 
002038 
00203A 
002042 
002044 
002046 
002048 
002050 
002052 
002054 
002056 
00205E 
002060 
002062 
002064 
00206C 
00206E 
002070 
002072 
00207A 
00207C 



2309 LOOP DC C'LOOP * ,X * 0000 ' ,X* 0000 ' ,X' 0000 ' 



2310 CONTIU DC C'CONTIN • ,X*0000 ' ,X' 0000 ' ,X' 0000' 



2311 BYTES DC C'BYTES • ,X' 0000 ■ ,X*00FF* ,X" 0000 • 



2312 COHHAND DC C'COHHAND • ,X'0000 ' ,X* 0000 • ,X* 0000 ■ 



PERF0RKANCE(6250)KAGTAPE DIA3N0STIC 06-263R01 H95A13 PAGE 44 08:34:07 12/23/83 
CONSTANTS £ CHECK ROUTINES 

2302 * 

2303 * OPTION/COHHAND TABLE 

2304 * STRUCTURE DEFINED BY ' SSTRUC1 ' AT TOP OF LISTING 

2305 ALIGN 4 

2306 * ** COPY ETPE FILE ONLY TO HERE 

0000 1FD8 2307 OPT EQV * OPTION TABLE 

5445 5354 2020 2020 2308 TEST DC C'TEST ■ , X s 0000 ' ,X * FFEO *, X ' 0000 * 

0000 

FFEO 

0000 

4C4F 4F50 2020 2020 

0000 

0000 

0000 

434F 4E54 494E 2020 

0000 

0000 

0000 

4259 5445 =320 2020 

0000 

OOFF 

0000 

434F 4D4D 414E 4420 

0000 

0000 

0000 

2020 2020 2020 2020 

0000 

0000 

0000 

4441 5441 2020 2020 

0000 

0000 

0000 

4445 4E53 4954 5920 

0000 

6250 

0000 

4452 4956 4520 2020 

0000 

0085 

0000 

2020 2020 2020 2020 

0000 

0000 

0000 

4452 5653 5441 5420 

0000 

0085 

0000 

2020 2020 2020 2020 

0000 

0000 



2313 



DC 



',X'0000' ,X"0000' ,X"0000' 



2314 DATA DC C'DATA ■ ,X" 0000 ■ ,X* 0000* ,X" 0000 • 



2315 DENSITY DC C'DENSITY ' ,X*0000* ,X* 6250' ,X* 0000 • 



2316 DRIVE DC C'DfilVE • ,X*0000* ,X' 0085' ,%' 0000* 



2317 



DC C* 



' ,X* 0000', X' 0000 *,X* 0000* 



2313 DRVSTAT DC C* DRVSTAT * ,X'0000 * ,X* 0085 ■ ,X'0000 ' 



2319 



DC 



1 ,X*0000' ,X'0000' ,X'0000' 



MTD23020 
1TD23030 
•'TP23040 
T"D23050 
"TD23060 
, *l'D23070 
1TD230R0 



* m D23090 



*TD23100 



WTD23110 



1TD23120 



»!' T, D23130 



*' T D23140 



STD23150 



*r"D23160 



fl»1>23170 



«'"D23180 



VTD23190 



?ER?0RHANCE(6250)KAGTAPE DIAGNOSTIC 06-26350 1 X95A 1 3 °AGE ">$ 08:34:07 12/23/83 



2320 DRVTYPE DC C DFVTYPE ' ,X " 0000' ,X* 000C ', X ' 0000 ■ 



HI3H 


PERFORM) 


tNCEO 


5250); 


KAGTS 


DATA 


CONSTANTS £ i 


:hsck 


BOUT 


00207S 


0000 








002080 


4452 


5654 


5950 


4520 


00208S 


0000 








0020SA 


0000 








00208C 


0000 








00208!! 


4455 


4D50 


2020 


2020 


002096 


0000 








002098 


0000 








00209A 


0000 








00209C 


4558 


5444 


5256 


5320 


\i\f £. \t n ** 


0000 








0020A5 


0085 








0020A8 


0000 








0020AA 


4649 


4C45 


5320 


2020 


0020B2 


0000 








002034 


0002 








0020B6 


0000 








002038 


4649 


4«4F 


2020 


2020 


0020C0 


0000 








0020C2 


0000 








0020C4 


0000 








0020C6 


494E 


544C 


4556 


454C 


0020CE 


0000 








0020D0 


0000 








0020D2 


0000 








0020D4 


4F4E 


4C49 


4E45 


2020 


0020DC 


0000 








0020DE 


0001 








0020F0 


0000 








0020E2 


5052 


4F43 


4545 


4420 


0020EA 


0000 








0020EC 


0001 








0020EE 


0000 








0020F0 


5245 


434F 


5244 


5320 


0020F8 


0000 








0020FA 


007F 








0020FC 


0000 








0020FE 


5345 


4C43 


4820 


2020 


002106 


0000 








00210S 


OOFO 








00210A 


0000 








00210C 


5449 


4D45 


4C49 


4D54 


G02114 


0000 








002116 


0000 








002116 


7FFF 








00211A 


5452 


4D4F 


4445 


2020 


002122 


0000 








002124 


0001 








002126 


0000 
0000 
0000 


2128 
2128 






002128 


4F50 


5449 


4F4E 


2020 


00213C 


0000 









2321 DOKP DC C'D'iSP • ,X*0000* ,X* 0000 * ,7.' 0000* 



2322 EXTDRVS DC C'EXTDRVS • ,X' 0000 * ,X* 0085 • ,X • 0000 • 



2323 FILES DC C'FIIES * ,X'0000' ,X' 0002 ■ ,X' 0000 • 



2324 FIFO DC C'FIFO • ,X' 0000 ' ,X' 0000 ', X' 0000 ■ 



2325 IMTLEVEL DC C IKTLEVEL' ,X' 0000 ■ ,X* 0000 ■ ,X' 0000 ■ 



2326 ONLINE DC C'ONLINE ' ,X'0000' ,X*0001 • ,X'OO00' 



2327 PROCEED DC C'PBOCEED • ,X* 0000 ' ,X' 0001 ■ ,v* 0000 • 



2328 RECORDS DC C'RECORPS • ,X' 0000 ' ,X'007F" ,X" 0000 • 



2329 SELCH DC C'SELCH • ,X* 0000 * ,X* OOFC ', X ' 0000 • 



2330 TIKELIH7 DC C TIKELIWT ' ,X' 0000 * ,X" 0000 ', v • i^r ■ 



2331 TRKODE DC C'TR^ODF • ,X' 0000 ' ,X ' 0001 ', X " C 000 ' 



2332 0PTEND2 EQ'J * END QF POINTING OPTIONS 

2333 OPTESD EQ'J * END ~F OPTIONS WITH VALUES 

2334 OPTION DC C'OPTION ' ,1 ( ) ,X ' OOCO ' ,X ' 0000 ' 



, *"'D23200 



j(TT)23210 



""'D23220 



HTD23230 



MTD23240 



M '"n23250 



*" ,r >23260 



«-~D23270 



wtt)23280 



v'" T >23290 



«* 1)23300 



•f"D23310 



»t!> 23 320 
""D23330 
"TD23340 
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DATA CONSTANTS £ CHECK ROUTINES 



002132 
002134 

002136 
00213E 
002140 
002142 
002144 
002146 
00214B 
002150 
002157 
00215D 
002165 
00216A 
002172 
002178 
002180 
002188 
00218D 
002195 
00219B 
0021AO 
0021A8 
0021A9 
0021B0 
0021B7 
0021BF 
0021C7 
0021CB 
0021D1 
0021D7 
0021DE 



0000 








0000 








0000 


2134 






5255 


4E20 


2020 


2020 


0000 








0000 








0000 








FFFF 








D4C5 


5354 


00 




CCCF 


CF50 


00 




C3CF 


4E54 


494F 


00 


C2D9 


5445 


5300 




C3CF 


CD4D 


414E 


4400 


C4C1 


D441 


00 




C4C5 


CE53 


4954 


5900 


C4D2 


C956 


4500 




C4D2 


D6D3 


5441 


5400 


C4D2 


D6D4 


5950 


4500 


C4D5 


CDDO 


00 




C5D8 


D4C4 


5256 


5300 


C6C9 


CC45 


5300 




C6C9 


C64F 


00 




C9CE 


D44C 


4556 


454C 


00 








CFCE 


CC49 


4E45 


00 


CFDO 


D449 


4F4E 


00 


D0D2 


CF43 


4545 


4400 


D2C5 


C34F 


5244 


5300 


D2D5 


4E00 






D3C5 


4C43 


4800 




D4C9 


CD45 


5200 




D4D2 


4D4F 


4445 


00 


0000 








0000 


00C1 






0000 


00C2 






0000 


00C3 






0000 


00C4 






0000 


00C5 






0000 


00C6 






0000 


00C9 






0000 


OOCC 






0000 


OOCD 






0000 


OOCE 






0000 


OOCF 






0000 


OODO 






0000 


00D2 






0000 


00D3 






0000 


00D4 






0000 


00D5 






0000 


00D6 






0000 


00D8 






0000 


O0D9 







2335 
2335 



$LINCNT EQU 
RUN DC 



0PTI0N+SVALU2 PRINTOUT LISE COUNTER 
C'RUN 'jX'OOOO'.X'OOOO" ,X'0000' 



2337 




DCX 


FFFF 








2338 


OPT. TAB 


DB 


.T,.E, 


C'ST' 


',0 


* 


2339 




DB 


•L,.0, 


.o,c 


•P',0 


# 


2340 




DB 


.c,.o, 


C'NTIN',0 


* 


2341 




DB 


• B , * Y , 


C'TES' ,0 


* 


2342 




DB 


.CO, 


• K,C' 


'HAND',0 


* 


2343 




DB 


.D,.A, 


.T,C 


'A',0 


* 


2344 




DB 


.D, .E, 


.N,C 


'SITY',0 


* 


2345 




DB 


.D,.P, 


.I,C 


'VE',0 


* 


2346 




DB 


• D r • S , 


.Y,.S,C'TAT' , 


.0 * 


2347 




DB 


•D,.R, 


.V,.T,C"YPE , / 


* 


2348 




DB 


.D,.U, 


•M,.P,0 


* 


2349 




DE 






* 


2350 




DB 


.F,.I, 


.L,C 


'ES',0 


* 


2351 




DB 


.F,.I, 


.F,C 


'0',0 


* 


2352 




DB 


•I , • N, 


.T,C 


'LEVEL', C 


1 * 


2353 




DB 


.0,.N, 


• L,C 


INE',0 


* 


2354 




DB 


.0,.F, 


.T,C 


'ION',0 


* 


2355 




DB 


.P,.R, 


.0,C* 


'CEED',0 


* 


2356 




DB 


» £\ t • ili t 


• C,C 


ORDS',0 


* 


2357 




DB 


.K,.U, 


C'N 1 , 


.0 


* 


2358 




DB 


• ■>jr*Jj| 


C'ICH',0 


* 


2359 




DB 


•T,.I, 


.H,C 


' EP ' , 


* 


2360 




DB 


m ■a 


C"HODE',0 


* 


2361 




DB 


0,0 






* 


2362 


* 












2363 


.A 


EQU 


X'CV 






.A+X'80* 


2364 


.B 


EQU 


X'C2' 






.B+X*80' 


2365 


.C 


EQU 


X , C3" 






•C+X'80' 


2366 


• D 


EQU 


y.'ctf 






.D+X'80' 


2367 


.E 


EQU 


X*C5" 






•E+X'80' 


2368 


.F 


EQU 


X'C6' 






.F+X'80' 


2369 


.1 


EQU 


X'C9' 






.I+X'80' 


2370 


• L 


EQU 


X'CC 






.L+X'SO* 


2371 


.H 


EQU 


X'CD' 






.»+'80' 


2 372 


,N 


EQU 


X'CE' 






.N+X'80' 


2373 


.0 


EQU 


X'CF* 






•O+X'80' 


2374 


• P 


EQU 


X'DO* 






•P+X'80" 


2375 


• R 


EQU 


X , D2" 






.R+X'80' 


2376 


• S 


EQU 


X*D3* 






.s+x'80" 


2377 


.T 


EQU 


X'D4" 






.T+X'30* 


2378 


• U 


EQU 


X'D5' 






•U+X'80' 


2379 


.V 


EQU 


X'06' 






.V+X*80* 


2380 


• X 


EQU 


X'D8" 






•X+X'80' 


2381 


.Y 


EQU 


X'D9' 






.Y+X'80' 



KTD23350 
yD23360 





UTD23370 


*** + 


ST'D233P0 


* ** * 


f r 'D23390 


** * * 


MTD23400 


* ** * 


¥■"•023410 


*** + 


1TD23420 


**** 


HTD23430 


* *** 


WTD23440 


**** 


fTD23450 


**** 


"TD23460 


*** * 


HTD23470 


* ** * 


1 ,T, D23480 


**** 


1TD23490 


R01* 


T"D23500 


**** 


WTD23510 


101 


HTD23^20 


#*** 


HTD23S30 


**• * 


«^D23 C 540 


*** + 


1 ""023550 


**** 


lfTD235«0 


R01 


*TD23570 


**** 


fTD23^80 


**** 


HTD23590 


* ** * 


1" , D23600 


**** 


f^D23' c; 10 


**** 


1TD23620 


**** 


*""B23630 


**** 


f?D23640 


**** 


HTO23'550 


**** 


1TD23660 


* * + * 


«CH)23«70 


**** 


HTD23«;80 


• *** 


TTD23690 


* * #* 


HTD23T00 


**** 


MTD23710 


**** 


*f , n23720 


**** 


t^D23730 


**** 


Mi-023740 


* *** 


STD23750 


**** 


«T'D23760 


** ** 


K.TD23770 


* *** 


1TD23780 


**•* 


yi>P23790 


**** 


*TD23f?00 


* ** * 


f^D23810 
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DATA CONSTANTS Z. CHECK POUTINE: 



0021EO 

C021EO 
3021E2 
0021E4 



0021F.6 
0021E8 
0021EA 



0021EC 

C021EE 
0021FO 
0021F4 
0021F8 
0021EC 
002200 
002204 
002208 
00220C 
002210 
002214 
002218 
C0221C 
002220 
002224 
002228 
00222C 
002230 
002234 

002236 
00223E 
002246 
00224E 
002256 
00225? 
002266 
00226A 

:::?-> 2 

00 2274 
002275 



0000 21E0 
0000 
0000 
8000 

0000 21E6 
0000 
0000 
8000 

0000 21 EC 

0000 



EFEO 








0000 








0000 


24BC 






0000 


2ADA 






0000 


3644 






0000 


43BA 






0000 


4A24 






0000 


50 6 A 






0000 


55D8 






0000 


5856 






0000 


689A 






0000 


6C78 






0000 


713C 






0000 


744C 






0000 


760C 






0000 


789A 






ooco 


79CC 






0000 


7B02 






OOOF 








4849 


4748 


2050 


4552 


454F 


524D 


41UF 


4345 


2028 


3632 


3530 


2042 


5049 


2920 


4D41 


474E 


4554 


4943 


2054 


4150 


4520 


4449 


4147 


4E4? 


5354 


4943 






2030 


362D 


3236 


3352 


3031 








OD 








00 









2382 * 

2383 ALIGN 4 

2384 DEVSADH FQ" * 

2385 OCX 0,0,8000 



2 337 DEVINT EQ'T * 

2383 PCX 0,0,8000 



2396 



2400 

2401 
2402 



* * * * 

* ** * 



I'.?TERPU?ri!»G DEVICE ^APLF 



INTERRUPTING DE V ICES 



2390 INTLVL EQU * 

2391 * USE ONE BYTE PER INTERRUPTING DEVICE 

2392 r>B 0,0 

2394 DEFTESTS DCX FFEO,0000 DEFAULT TESTS 

2395 TESTS DAC TEST0,TEST1 ,TEST2,TEST3 ,TEST4,TEST5, TESTS ,TEST7 



DAC TEST8,TEST9, TEST A, TESTB ,TESTC,TESTD, TESTE, TESTF 



2397 


MAXTST 


DC 


2398 


* 




2399 


TITLE 


DB 



OOOF MAX VALID TEST NHHBE° 

C'HIGH PERFORMANCE (6250 BPI) MAGNETIC "APF DIAGNOSTIC 



DB C 06-263R01" 

DB X'OP' 

DB * 



M n, D23820 
M T D23830 

v"D23840 
M^D23350 



*'"D23870 
«"D23880 



Mt>D23900 
M^D23910 
t(T!)23920 

Mt-023940 



MTD23960 



M"D23O70 
f ,r, D23980 



""D24000 

V"D24010 
ifTi)24020 
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DATA CONSTANTS £ CHECK ROUTINES 



002276 
00227C 
00227E 
002284 
002288 
002 2SE 
002290 
002296 
00229A 
0022A0 
0022A6 
0022AC 
0022B0 
0022B4 
0022B8 
0022BA 
0022BE 
0022C4 
0022C8 

*0022CC 
0022CE 

*0022D2 
0022D4 
0022D8 
0022DC 
0022E0 
0022E4 
0022E8 
0022EC 
O022F0 

*0022F4 
0022F6 
0022FA 
0022FE 
002302 

*002306 
002308 

*00230C 
00230E 
002312 
002316 
00231C 
002320 
002324 

♦002328 
00232A 
00232C 
002330 
002334 
00233A 
00233E 
002340 



50F0 


4000 


84D0 


2400 






4000 


4000 


8414 


4810 


2052 




4010 


4000 


8408 


2401 






4000 


4000 


840A 


7320 


2108 




41E0 


4000 


7C9F 


41E0 


4000 


7C9F 


41F0 


4000 


838C 


0000 


243E 




0000 


243E 




4820 


0A52 




95E2 






C840 


O0C9 




41E0 


4000 


7B96 


7300 


200C 




4830 


2124 




213E 




=0022E8 


4830 


20DE 




233F 




=0022F0 


C500 


OOFF 




4280 


2320 




C830 


0100 




E650 


247E 




4300 


2316 




48 30 


20DE 




4230 


2320 




4830 


20C2 




213A 




=002308 


C500 


OOFF 




4280 


2320 




C830 


0100 




E650 


247E 




2308 




=002316 


C500 


03FF 




218A 




=002320 


C830 


0400 




E650 


245C 




41FQ 


4000 


836E 


4030 


200C 




7300 


20 OC 




C500 


0002 




2389 




=00233A 


2402 






4000 


200C 




E650 


249E 




41F0 


4000 


836E 


7330 


1FFE 




213A 




=002352 


730Q 


1FE2 





2404 * INITIALIZATION 

2405 INIT ST R15,SAVR15 

2406 IIS E0,0 

2407 STH SO, INDEX 

2403 LH R1,DEIVE+$VALU1 

2409 STK R1,DEIVSAV 

2410 IIS R0,1 

2411 STH R0,DPIVSAV1 

2412 LHL R2,SELCH+$VALU1 

2413 BAL R14,CST0P 

2414 BAL R14,CST0P 

2415 INIT.OOA BAL R15,LO0FTOP 

2416 DAC INIT. 20 

2417 DAC INIT. 20 

2418 LH 52,PSW2 

2419 EPSR R14,R2 

2420 LHI R4,X , C9' 

2421 BAL R14,0CR 

2422 LHL R0,3YTES+SVALU1 

2423 LH R3,TR»0DE+$VALU1 

2424 BNZ INIT.01A 

2425 LH R3,0NLINE+$VALU1 

2426 BZ INIT.02A 

2427 CLHI RO,X'FF' 

2428 BL INIT. OB 

2429 LHI R3,X'100' 

2430 LA R5,HESSAGAA 

2431 B INIT.0A1 

2432 INIT.01A LH R3 ,0NLINE+$VALU1 

2433 BNZ INIT. OB 

2434 INIT.02A LH P3 ,FIF0+$YALU1 

2435 BNZ INIT.OAA 

2436 CLHI RO,X'FF" 

2437 BL INIT.OE 
2«138 LHI R3,X , 100' 

2439 LA R5,KESSAGAA 

2440 B INIT.0A1 

2441 INIT.OAA CLHI RQ,X'3FF' 

2442 BL INIT. OB 

2443 LHI R3,X'400' 

2444 LA R5,KESSAGA 

2445 INIT.0A1 BAL R15,L00P2 

2446 STH R3,BYTFS+$VALU1 

2447 INIT.OE LHL EO ,BYTES+$VALU1 

2448 CLHI R0,2 

2449 BNL INIT.0E1 

2450 LIS 50,2 

2451 STH P0,BYTES+$VALU1 

2452 LA R5,*ESSAGAB 

2453 BAL R15,L00P2 

2454 INIT.0B1 LHL S3 ,C0NTIN+SVALU1 

2455 BNZS INIT.10A 

2455 LHL R0,TEST+$VALU1 



SAVE R15 

ZERO LOCATIONS 
LOAD DRIVE ADDRESS 
SAVE VALUE 

SET FLAG 

GET SELCH ADDR 

STOP IT 

FOR SURE 

SET UP ADDRESSED 

PROCEED LIHIT 

30F0 

DISABLE CONSOLE INTERRUPTS 

DISARH AND CLEAR 

OUTPUT COWHAND REGISTER 

LOOK IF TRM0DE=1 

CHECK ONLINE OPT FIRST 

LOOK AT ONLINE 

GO CHECK FIFO IF ZERO 

CHECK FOR PROPER BYTES 

BYTES SPECIFIED IS VALID 

OTHERWISE LOAD HAXIHFUH BYTES 

BYTES TRANSFERRED =FF 

PRINT MESSAGE AND SAVE 

LOOK AT ONLINE OPT 

EVEBYTHING OK, GET OUT 

GAPLESS INTERFACE 

YES, EXPANDED MEMORY. 

CHECK FOR HAXIHU* BYTES 

EVERYTHING OK. 

LOAD HAXIHUf THEN 

BYJES TO BE TRANSFERRED = X'FF' 

OUTPUT AND SAVE 

HAXIMJH BYTES FOR GAPLESS 

OK 

SET HAXIKUM FOR GAPLESS 

BYTES TRANSFERRED = y3FF' 

OUTPUT IF POSSIBLE 

SET NEW VALUE TO BE USED 

IS BYTES AT fINIfUK? 

VALUE IS OK 

ELSE SET TO HINI»UH 

MODIFY BYTES OPTION 

BYTES OPTION HAS BEEN MODIFIED 

TELL USER 

LOAD CONTINUE OPTION 

AND BRANCH OUT IF SET 



"TD24040 
fTD24050 
MTD24060 
MTD24070 
H n, D24"80 
MTD24090 
1TD24100 
!f'D24110 
S'"D24120 
WTD24130 
n^D24140 
HTD24150 
WTD24160 
HTD24170 
KTD24180 
HTi)24190 
MTD24200 
HTD24210 
!f'D24220 
HT'T)24230 
fTD24240 
"f^D24250 
WT')?4260 
*TD24270 
MTD24280 
«' T 'D24290 
f' 1, D24300 
«^D24310 
*' T, D24320 
H"'D24330 
^^D243«0 
fH)24350 
HTD24360 
K' n D24370 
WTD24380 
HTD24390 
f?D24400 
*TD24410 
MTD24420 
!f'D24430 
ifTD24440 
fTD24450 
fTD24460 
1^24470 
TTD24480 
f m D24490 
»Ti)24 c :00 
WTD24510 
"TD24520 
N q 'D24530 
HTD24540 
YTD24550 
"'"D24560 
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DATA CONSTANTS £ CHECK ROUTINES 



002344 


C300 


FFFO 




2457 






THI 


RCX'FFFO 1 


*002348 


2335 




=002352 


2458 






?j" 


IHIT.10A 


00234A 


C600 


8000 




2459 






OHI 


RCX'SOOO" 


00234E 


4000 


1FE2 




2460 






STH 


R0,TEST+$VALU1 


002352 


41E0 


4000 


7BDC 


2461 


isit. 


• 10A 


BAL 


R14,SENSTA 


002358 


C330 


0004 




2462 






""HI 


R3,X , 04' 


00235C 


4330 


2388 




2463 






BZ 


INIT. OOB 


002360 


C330 


OOFB 




2464 






THI 


SS/X'FE 1 


C02364 


4230 


2388 




2465 






ENZ 


INIT. OOB 


00236S 


2403 






2466 






LIS 


R0,3 


00236A 


4810 


4000 


8406 


2467 






IH 


S1,DPIVSAV 


002270 


E520 


2A94 




2463 






LA 


R2,T0ERHSG1+20 


002374 


41F0 


1680 




2469 






BAL 


B15,HEXASC 


002378 


E6F0 


2A80 




2470 






LA 


R15,T0ER"SG1 


00237C 


E6E0 


4000 


8596 


2471 






LH 


R^/CONT^SG 


002382 


4300 


4000 


82CC 


2472 






B 


ERRORX 


002368 


4800 


20DE 




2473 


INIT. 


.OOB 


LH 


R0,ONLINE+SVALU1 


00238C 


4330 


2410 




2474 






BZ 


INIT.1A 


002390 


C3 30 


0001 




2475 






TKI 


R3,X*01* 


*002394 


2334 




=00239C 


2476 






BZ 


INIT. OOC 


002396 


4300 


4000 


7D88 


2477 






B 


IT.C 


00239C 


41E0 


4000 


7B9A 


2478 


INIT, 


.OOC 


EAL 


R14,CCLEAR 


0023A2 


41E0 


4000 


7BA0 


2479 






EAL 


R14,CDRCLP 


0023AS 


41E0 


4000 


7BDC 


2480 






BAL 


R14,SENSTA 


0023AE 


C330 


OOCA 




2481 






THI 


R3,X'CA' 


*0023B2 


233E 




=0023CE 


2482 






BZ 


INIT. OOD 


0023B4 


E650 


2A9A 




2483 






LA 


R5,T0ERHSG2 


0023P8 


41E0 


B98C 


=005D48 


2484 






BAL 


P14,T7ERRCPA 


0023BC 


E6F0 


4000 


6882 


2485 






LA 


F15,T7ERMSG1 


0023C2 


E6F0 


4000 


8596 


2486 






LA 


R14,C0NTKSG 


0023C8 


4300 


4000 


82CC 


2487 






g 


ERRORX 


0023CE 


41F0 


4000 


80D2 


2488 


INIT. 


.OOD 


BAL 


R15,EEWMT 


0023D4 


C3 30 


0010 




2489 






THI 


E3,X'10' 


0023D8 


4230 


2400 




2490 






BNZ 


INIT.OA 


0023DC 


F650 


4000 


85F0 


2491 






LA 


P5,ERHSGA 


0023E2 


C800 


0030 




2492 






LHI 


E0,X , 30 < 


0023F6 


4000 


4000 


83C8 


2493 






STH 


R0,STATGD 


0023EC 


41E0 


28AE 




2494 


INITER1 


BAL 


R14,T0ERR0P? 


0023F0 


E6F0 


2A4C 




2495 






LA 


R15,J*ESSAGF1 


0023F4 


E6E0 


4000 


8596 


2496 






LA 


R14,C0NTtfSG 


0023FA 


4300 


4000 


82CC 


2497 






3 


ERPOBX 


002400 


C330 


0020 




2498 


INIT, 


.OA 


THI 


PSrX^O' 


*002404 


2136 




=002410 


2499 






BNZ 


INIT.1A 


002406 


E650 


4000 


8612 


2500 






LA 


R5,EE!!SGB 


00240C 


4300 


23EC 




2501 






B 


INITER1 


002410 


2450 






2502 


INIT, 


,1A 


LIS 


R5,0 


002412 


4B20 


4000 


840C 


2503 






LH 


P2,DFNSFLAG 


002418 


0322 


4000 


83E4 


2504 






LB 


P2,DENSFITY(R2) 


00241F 


0335 


4000 


83DE 


2505 


INIT, 


, 1AA 


LB 


P.3,WF0DDEY(R5) 


002424 


C430 


OOCF 




2506 






KHI 


R3,X'CF' 


002423 


0532 






2507 






OB 


R3,R2 


00242A 


D235 


UCOO 


83DE 


2508 






STB 


E3,SF0DDBY(R5) 


002430 


2651 






2509 






AIS 


R5,1 



IS TEST 0-3 SPECIFIED 

IF NOT, DO NOT RUN TEST 

OTHERWISE FORCE TEST 

RESTORE TEST OPTIONS 

SENSF STATUS OF DRIVF 

IS DRIVE FALSE SYNC? 

NO 

SEE IF NKTN,BOT,ERP,TE?P,DU,FO«,BSY S 

IF YES, THEN NO FALSE SY*C. 

DRIVE ADDRESS 
STORED HERE 
CONVERT 

SUSPECTED ERROR W/ CONTE 

LOOK AT ONLINE OPTION 

CONTINUE WITH INIT IF ZERO 

DRIVE DU? 

NO 

DRIVE UNAVAILBLE ROUTINE 

CLEAR INTERFACE OF ANY REGAINING ERRB 

CLEAR DRIVER 

CHECK STATUS 

IF ERR, TERR, BSY OR ED* SET 

IF ZERO, NO ERROR 

INCORRECT STATUS FEOS INTERFACE 

DRIVE AND STATUS 

SUSPECTED ERROR W/ CONTROLLER 

REWIND TAPE AFTEP RUN 
IS NXTN SET 

•NHTN' DID NOT SET AFTER REWIND 

EXPECTED STATUS 

SAVE IT 

DRIVE AND STATUS 

SUSPECTED ERROR WITH CONTROLLED 

ERROR PRINT OUT 

1 BOT" SET? 

YES, OK 

BOT DID NOT SET AFTEP REWIND 

"ESSAGF OUT 

GET DENSITY FLAG 

GET PROPER OC FOR DENS 

STAR"" KITH 1ST CMD 

CLEAR ITS TOP BITS 

OP. IN DENSITY COWHAND 

STORE IT INTO COWHAND BY^E 

INCREMENT COMMAND LOC 



fTT)24^' T 
?ITD24580 
HTD24590 
TTD24600 
HTD24610 
K' , 'D24620 
"T924K30 
Mtt)24':U0 
HTD24650 
*TD24S60 
RT^24670 
'!TT)2468n 
1TD24690 
"fTr>24700 
HTT)24710 
STD24720 
HTD24' 7 30 
MTD24740 
1TD24750 
fT024760 
WTD24770 
*Tr>24780 
MTD24790 
•fT024P00 
"{Tn24810 
*f' p D24820 
*tt>24<?30 
fTD24840 
fTD248 c ;0 
fTr,24860 
^"024870 
«!TT)20880 
WTD24890 
* r,, D24900 
«T"'D24910 
H-D24920 
fTD24930 
htt)24940 
, *' r D24950 
WTD24960 
TTD24970 
yT D 24980 
"^1594990 
*TD25000 
^■"025010 
•fTf)2 c ;020 

T"i525O30 
"TT)25040 
fTD25050 
"? m D25060 
MT>T)25070 
"TD25080 
*Tr>">5090 
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002432 


C550 


0004 






*002436 


20SC 




=00241E 


002438 


4300 


4000 


834E 




00243E 


41^0 


2836 






002442 


4800 


4000 


840A 




002448 


C300 


OOOE 






00244C 


4230 


22A6 






002450 


41F0 


1B9A 






002454 


53F0 


4000 


84D0 




00245J 


030F 








00245C 


4259 


5445 


5320 


544F 


002464 


2042 


4520 


5452 


414E 


00246C 


5345 


4552 


5245 


4420 


002474 


3D20 


5822 


3346 


4622 


00247C 


ODOA 








00247E 


4259 


5445 


5320 


544F 


002486 


2042 


4520 


5452 


414E 


00248E 


5346 


4552 


5245 


443D 


002496 


5822 


4646 


2220 




00249C 


ODOA 








00249E 


4259 


5445 


5320 


544F 


0024A6 


2042 


4520 


5452 


414E 


0024AE 


5346 


4552 


5245 


4420 


0024B6 


3D20 


3220 






0024BA 


ODOA 









2510 
2511 
2512 

2513 * 

2514 INIT.20 
2515 

2515 
251"7 
2518 
2519 
2520 



2522 HESSAGA DC 



2523 HESSAGAA DC 



2524 HESSAGAB DC 



CLHI R5,4 



BL 


INIT.1AA 


B 


PASS 


BAL 


R15,TST.DRIV 


LH 


R0,DRIYSAV1 


THI 


FO.X'E" 


ENZ 


INIT.OOA 


EAL 


P1S,KBRD 


L 


R15,SAVR15 


BH 


P15 



COMPLETED 4 POSSIBILTIES 



OTHEP DRIVES TO BE INIT 

LOOK AT DRIVE FLAG 

OTHER DRIVFS AVAILABLE 

YES 

ENABLE CONSOLE TNT 

RESTORE ?15 

RETURN 



C'BYTES TO BE TRANSFERRED = X"3FF" " ,X' ODOA ' 



C'BYTES TO BE TRANSFERRED=X"FF" ■ ,X' ODOA ' 



C'BYTES TO BE TRANSFERRED = 2*,X'0D0A' 



1TD25100 
*TTD25110 
STD25120 
STD25130 
YTD25140 
1TD25150 
STD251S0 
MTD25170 
M^D25180 
HTD25190 
MTD25200 

HTD25220 



W"D25230 



HTD25240 
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TEST "> 



2525 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2555 
2557 
2558 
2559 
2560 
2561 



******************************************************* 

* T E S T C * 

* MULTIPLEXOR AND SYSTEM STATUS CHECK * 

* * 

* PURPOSE: * 

* THIS SUBTEST WILL CHECK OUT THE INTERFACE MULTIPLEXO* 

* BUS IN A STATIC STATE. IT WILL INDICATE A GO-NO*0 CO*DITION 

* FOR THE" FORMATTER AND DRIVES. * 

* * 

* ASSUMPTIONS: * 

* THIS TEST ASSUMES THAT THERE IS AT LEAST AN TNTERFAC* 

* CONFIGURATED IN THE SYSTEM. * 

* * 

* DESIGN SPEC: * 

* THE TEST STARTS WITH A CHECKOUT TO SEE IF THE INTERF*CE 

* IS INSTALLED AND ADDRESSED ACCORDING TO THE OPTION. * 

* IT FOLLOWS THIS WITH A CHECKOUT OF THE INTERFACE'S * 

* CAPABILITY TO RESPONSE TO 10 COMMANDS. 

* IT THEN CHECKS TO SEE IF THE SELCH IS INSTALLED * 

* AND THE ADDRESS IS ALSO CORRECT. * 

* THE TEST ENDS WITH A CHECK OF THE INTERFACE STATUS * 

* BYTE AND CHECKS EACH BIT TO SEE IF THE SYSTEM IS IN * 

* A GO-NOGO STATUS FOR FURTHER TESTING. * 

* * 

* ERRORS: * 

* * 

* OPTIONS APPLICABLE TO THIS TEST: * 

* DRIVE - DRIVE ADDRESS * 

* SELCH - SELCH ADDRESS X'00'= HO SELCH * 

* ONLINE - DRIVE IS CONNECTED - X*01'= ONLINE * 

* * 

* HOW TO RUN THE TEST: * 

* THE TEST WILL EXECUTE EVER TIKE "RUN" IS GIVEN * 

* !IF C0NTIN=1 TEST WILL RUN ONLY IF SELECTED! * 

* * 
************************ ********* ********************** 



M' P D25260 
«^D?52"70 
MT>25280 
M" , D25290 
M'"D?5300 
VTi)25310 
M'* , n25320 
M-"D25330 
" m D25340 
>fTr>25350 
M , "D253fiO 
M^D25370 
M?D25380 
MT>25390 
M T D25400 
MT^FttlO 
*"'D25420 
MTD25430 
MT D25440 
MTT)25450 
M" , D25460 
T-D25470 
wtt)25480 
MTD25490 
MTD25500 
V'D25510 
M" , D2S C 20 
M^D25530 
MTD25540 
MTD25550 
»rD25560 
H T D25S70 
M T D25580 
M m D?5590 
M'"D25600 
M T D25610 



0024BC 
0024C0 
0024C6 
0024C8 



4810 2052 

4010 4000 8408 

2401 

4000 4000 840A 



2563 

2564 
2565 
2566 



TESIO 



LH 


R1,DRIVE+$VALU1 


STH 


R1,DRIVSAV 


LIS 


R0,1 


STH 


R0,DP.IVSAV1 



GET DEVICE ONE ADDRESS 
SAVE ADD3ESS 
SET DRIVE FLAG 



M^D25630 
MTD25640 
*TD25650 
*T!)2<;S60 



2568 * FALSE SYNC ON ADDRESS AND STATUS REQUEST? 



C024CE 
0024D4 
0024D8 
0024PC 
0024E2 
0024K6 



41F0 4000 838C 

0000 2588 

0000 2588 

41E0 4000 7EDC 

C430 00D4 

C530 0004 



2569 TEST0.1 

2570 

2571 

2572 

2573 



;al 



R15,L0OPTOP 



DAC 


TEST0.5 


DAC 


TEST0.5 


3AL 


R14,SENSTA 


NHI 


P.3,X'D4' 


CLHI 


P3,X"04 ' 



SET UP ADDRESSES 

NEXT TEST SEQUENCE 

PROCEED LIMIT 

DO A SENSE STATUS: 

DELETE ANY UNWANTED HIT? 

IS IT FALSE SYNC 



MTD25*80 
M T D25590 
M m D25700 
M"'D25710 
"'"D25720 
MTD25' 7 30 
MTD?5" 7 40 
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TEST 



*0024EA 
0024EC 
0024F0 
0024F4 
0024F8 
0024FE 

002S04 
♦00250A 
00250C 
002510 
002514 
002518 
C0251E 

00252U 
*002528 
00252A 
00252E 
002532 
002536 
00253C 

002542 
002546 
00254C 
002550 
002554 
002553 
00255E 



002564 
00256A 
002570 
002572 
002576 
00257A 
002580 
002586 



213D 




=002504 


E550 


2A80 




41E0 


2564 




E6F0 


28FA 




S6E0 


4000 


8596 


4300 


4000 


82CC 


41E0 


4000 


7BCA 


234D 




=002524 


E650 


2*80 




41E0 


2564 




E6 p o 


2908 




E6E0 


4000 


8596 


4300 


4000 


82CC 


41E0 


289E 




234D 




=002542 


E650 


2A80 




41E0 


2564 





E6F0 2916 
E6E0 4000 8596 
4300 4000 82CC 

41E0 28A6 
4340 4000 834E 
E650 2A80 
41E0 2564 
E5F0 2924 
E6E0 4000 8596 
4300 4000 82CC 



DOOO 4000 8990 
4810 4000 8408 
2403 

E620 2A94 
41F0 1680 
41F0 4000 636E 
D100 4000 8990 
030E 



2575 






BNE 


TESTO. 2A 


2576 






LA 


R5,T0ER«SG1 


2577 






BAL 


R14,T0EFP0RA 


2578 






LA 


P15,T0.EC00 


2579 






LA 


R14,C0NTMSG 


2580 






B 


ERRORX 


2581 


* 


FALSE 


SYNC 


QN COMMAND? 


2582 


TEST0.2A 


BAL 


S14,TMCLEAR 


2583 






BNO 


TESTO. 3A 


2584 






LA 


R5,T0ER!'SG1 


2585 






BAL 


R14, TOERRORA 


2586 






LA 


R15,T0.E001 


2587 






LA 


R14,C0NTFSG 


2588 






5 


ERRORX 


2589 


* 


FALSE 


SYNC 


ON DATA AVAILABLE? 


2590 


TESTO. 3A 


BAL 


R14,RITEDATA 


2591 






BNO 


TESTO. 4A 


2592 






LA 


R5,T0ERBSG1 


2593 






BAL 


R14, TOERRORA 


2594 






LA 


R15,T0.E002 


2595 






LA 


R14,C0NT*SG 


2596 






B 


ERRORX 


2597 


* 


FALSE 


SYNC 


ON DATA REQUEST? 


2598 


TESTO. 4A 


BAL 


314,RDDATA 


2599 






BNO 


PASS 


2600 






LA 


R5,T0ERWSG1 


2601 






BAL 


R14,T0ERROEA 


2602 






LA 


R15,T0.E003 


2603 






LA 


R14,C0NTMSG 


2604 






B 


ERRORX 


2605 


* 








2606 


* 


THIS ERROR 


ROUTINE is tailore: 


2607 


* 


THAT CAN OCCUR FROM "TESTO 1 T' 


2608 


* 








2609 


TOERRORA 


STH 


RCERRSAVE 


2610 






LH 


R1,DEIVSAV 


2511 






LIS 


R0,3 


2612 






LA 


R2,TOERKSG1+20 


2613 






BAL 


R15,HEXASC 


2514 






BAL 


R15,L00P2 


2615 






LH 


RO,ERRSAVF 


2616 






BR 


R14 



NO! CONTINUE TESTING 
FALSE SYNC ON DRIVE *** 



SUSPECTED ERROR WITH CONTROLLER 



OUTPUT CLEAR 

NO! NEXT TEST 

FALSE SYNC ON DRIVE *** 

EXECUTING OC 

SUSPECTED ERROR WITH CONTROLLER 



WRITE DATA TO INTERFACE 

NO! NEXT TEST 

FALSE SYNC ON DPIVE *** 

EXECUTING WRITE DATA 

SUSPECTED ERROR WITH CONTROLLER 



READ DATA 

NO! NEXT TEST 

FALSE SYNC ON DRIVE *** 

EXECUTING RD 

SUSPECTED ERROR WITH CONTROLLER 

OUTPUT KESSAGES 

TO ANY ERROR MESSAGE 
THIS POINT 

SAVE REGISTERS 
DRIVE ADDRESS 
DIGIT CONVERSION 
STORED HERE 
AFTER CONVERSION 
OUTPUT FIRST MESSAGE 
RESTORE REGISTERS 
RETURN 



*JTt>25750 
HTD25760 
1^025770 
I^DSSTSO 
1TD25790 

"TD25800 
uTir)?5 p i q 

1' T, D25820 
f T, D25P30 
TTD25940 
HTD25850 
MTD25860 
HTD25870 
HTD2 c ;880 
HTD25890 
1TD25900 
MTD25910 
MTD25920 
STD25930 
MTD25940 
fTD?5950 
NTD25960 
HTD25970 
NTD25980 
«TT)25990 
NTD26000 
WTD26010 
HTT)2*020 
1TD26030 
HTD25040 
HTD26050 
fTD2S0' : 
>f , T)26070 
>f' 7 'D260S0 
!f , D2'5090 
f' T 'D26100 
^026110 
HTD2S120 
"i , D26130 
H^D26140 
^"026150 
"""026160 



002588 
002590 



41F0 4000 838C 
0000 25D2 



2618 ******************************************************* 

2619 * * 

2620 * CHECK ONLINE OPTION AND SELCH ADDRESS * 

2621 * * 

2622 ******************************************************* 



2624 TESTO. 5 EAL R15,L00PT0P 

2625 DAC TESTO. 6 



CALCULATE SEQUENCE ADDRESS 



^^026180 
MTD26190 
Y m D26200 
«TD2«?10 
Wi , D26220 

w r T , D2«;240 

H q, D?62 c ;0 
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TEST 



002594 
002598 
00259C 
0025AO 

0025A6 
0025AC 
0025B0 
0025B6 
0025B8 
Q0253A 
00253E 
0025C2 
0025C6 
0025CC 

0025D2 
0025D8 
0025DC 
0025E0 
0025E4 
0025EA 
0025F0 
0025F4 



0025FA 
002600 
002*06 
00260A 
00260E 
C02612 
002615 
00261C 
002620 
00262" 
00262A 
*00262E 
002630 
002636 
00263C 
002642 

002644 
00264A 
00264E 
*002652 
002654 



0000 25D2 
7320 2108 
C520 0000 
4330 4000 834E 

4120 4000 7C4C 
C530 0004 
4230 4000 834F 
2403 
0812 

E620 2946 
41F0 1680 
E6F0 2932 
E6E0 4000 85B8 
4300 4000 62CC 

41F0 4000 838C 
0000 26F4 
0000 280C 
4800 20DE 
4330 4000 834E 
4810 4000 8408 
C300 0030 
4000 4000 83C8 



41E0 4000 7B9A 
41E0 4000 7BDC 
C430 0001 
4330 2644 
2650 294C 
C800 0034 
U000 4000 83C8 
41E0 28AE 
E6F0 2A4C 
4800 4000 83C4 
C300 000* 



2137 



=00263C 



E6E0 4000 852A 
4300 4000 82CC 
E6E0 4000 8596 



2206 



=002636 



4830 4000 83C4 

C430 0002 

C530 0002 

2135 =00265C 

E650 2960 



2625 
2627 
2623 
2629 
2630 
2531 
2532 
2633 
2634 
2635 
2536 
2637 
2638 
2639 
2640 

2542 
2643 
2544 
2645 
2646 
2647 
2648 
2649 
2550 
2651 
2652 
2653 
2654 

2656 
2657 
2558 
2659 
2650 
2651 
2562 
2663 
2654 
2665 
2666 
2667 
2668 
2669 
2670 
2571 
2672 
2573 
2674 
2675 
2576 
2677 
2678 



DAC TFST0.6 
LHI R2,SELCH+$VALU1 
CLHI R2,X"0000' 
BE PASS 
FALSE SYNC ON SELCH? 

BAL R14,SENSTA2 



TEST0.6 



CLHI 


R3,X'04* 


BNF 


PASS 


LIS 


R0,3 


in 


R1,R2 


LA 


R2,TC,E003A+20 


BAL 


515,HEXASC 


LA 


S15,T0.E003A 


LA 


R14,SELNSG 


g 


ERSOFX 


BAL 


S15,LO0PTOP 


DAC 


TEST0.7 


DAC 


TSTO.END 


LH 


R0,0NLINE+SVALU1 


BZ 


PASS 


LH 


R1,DRIVSAV 


LHI 


S0,X'30' 


STH 


R0,STATGD 



GET SELCH ADDRESS 
IS THEPE A SELCH? 
NO! SO SKIP THIS TEST 

DO A STATUS CHEC* ON SELCH 

FALS* SYNC? 

NOt GO TO NEXT T"ST 

DIGITS TO CONVERT 

SELCH ADDRESS 

STORED HERE 

AFTER CONVERSION 

SUSPFCTED ERROR «ITH SELCH 



CALCULATE ADDRESSES 

NEXT SEQUENCE 

PROCEED LIMIT 

IS THIS TEST^ODE OS ONLINE? 

IF TESTKODE, JU"F 0"T 

GET DRIVE ADDRESS 

LOAD EXP. STATUS 

STORE FOR POSSIBLE USE 
******************************************************* 

* * 

* STATUS BYTE CHECK-ONLINE * 

* * 
******************************************************* 



* DU BIT SET? 

BAL 
SAL 

NHI 
32 
LA 
TOROO LHI 
STH 
BAL 
LA 
LH 
THI 
BNZ 
LA 
TOROOA B 
TOROOB LA 
BS 

* EOF BIT SET? 
TEST0.6B LH 

NHI 
CLHI 
BNE 
LA 



R14,CCLEAE 

R14,SENSTA 

R3,X'01 ' 

TEST0.6B 

R5,TC.E004 

R0,X'34" 

30,STATGD 

R14,T0ERR0RB 

E15,MESSAGE1 

RO, STATUS 

E0,X*A* 

TOROOB 

E14,DRIVfISG 

FRRQPX 

E14,C0HTKSG 

TOROOA 

?3, STATUS 
R3,X'02' 
P3,X' 02' 
TESTC.6C 
R5,TC.E005 



CLEAP INTERFACE AGATV 
TAKE A STATUS READING 
ISOLATE DU BIT 
NO! CONTINUE ON 
DRIVE UNAVAILABLE 
EXPECTED STATUS 

MESSAGE SETUP 

DRIVF, STATUS EXP £ STATUS RFC 

LOOK AT STATUS AGAIV 

IS IT "EOF* OR '?SY' 

YES, THEN CONTROLLER 

SUSPECTED ERROR vith DRIVE 

OUTPUT MESSAGES 

SUSPECTED ERROR WIT" CONTROLLER 



TRY NEXT STATUS 3 IT 
THIS ONES TO BE r 0F 



"OF'SFT UV JUSTLY 



>f , D26260 
WTT)26?70 
«™D26280 
wrT>26?90 
*?D26300 
t?"D26310 
*' 1, D26320 
H n, D26330 
NTD26340 
*TD26350 
kt>t>263' : 
^026370 
w ,, D26380 
y' T 'D26390 
WTD26400 

MTD26420 
MTD2«430 
>«tt)26440 
WTD26450 
N'"D26460 
KTD26470 
MTD26480 
f m D26490 
«T , T)26500 
T"'D26510 
* T D26520 
f' , 'D26530 
*TD26540 

K^D26560 

fi'D25570 
f?D2«>580 
T"D26590 
*TTD26600 
"TD26610 
NTD26620 
VD26630 
■?TD26640 
MTri26650 
»TD26660 
«^D26670 
HfD266 80 
fT'D26690 
W" , D26700 
^^025710 
>?T>25720 
HTD26730 
NTD26740 
!?^D2675C 
"TD26760 
«fTD2677n 
1TD2676C 
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TEST 



002658 


4300 


2612 




2679 








B 


TOEOO 










2680 


* 


BUSY BIT SET? 


00265C 


4830 


4000 


83C4 


2681 


TESTO. 


6C 


LH 


B3, STATUS 


002662 


C430 


0008 




2682 








NHI 


R3,X'08' 


002666 


C530 


0008 




2683 








CLHI 


R3,X'08* 


♦00266A 


2135 




=002674 


2684 








BNE 


TESTO. 6D 


00266C 


E650 


2930 




2685 








LA 


R5,T0.E006 


002670 


4300 


2612 




2686 








E 


TOROO 










2687 


* 


NO-MOTION BIT SET? 


002674 


4830 


4000 


83C4 


2688 


TESTO. 


6D 


LH 


R3, STATUS 


00267A 


C430 


0010 




2689 








NHI 


P.3,X'10' 


00267E 


C530 


0010 




2690 








CLHI 


B3,X'10' 


*002682 


2335 




=00268C 


2691 








BE 


TESTO. 6E 


002684 


E650 


29A0 




2692 








LA 


R5,T0.E007 


002688 


4300 


2612 




2693 








B 


TOROO 










2694 


* 


ET(BOT) BIT 


SET? 


00268C 


2440 






2695 


TESTO. 


6E 


LIS 


R4,0 


00268E 


4830 


4000 


83C4 


2696 


ET.1 




LH 


R3, STATUS 


002694 


C430 


0020 




2697 








NHI 


R3,X'20' 


002698 


C530 


0020 




2698 








CLHI 


RS.X^O' 


00269C 


4330 


26C0 




2699 








BE 


TESTO. 6F 


0026A0 


C540 


0001 




2700 








CLHI 


R4,X'01 ■ 


0026A4 


23 3 A 




=0026B8 


2701 








BES 


ET.3 


0026A6 


41F0 


4000 


80D2 


2702 








BAL 


R15,REWMT 


0026AC 


2441 






2703 








LIS 


R4,1 


0026AE 


41E0 


4000 


7BDC 


2704 








BAL 


R14,SENSTA 


0026B4 


4300 


268E 




2705 








B 


ET.1 


0026B8 


E650 


29C0 




2706 


ET.3 




LA 


R5,T0.E008 


0026BC 


4300 


2612 




2707 








B 


TOROO 










2708 


* 


TERR 


! STATUS 


BIT SET? 


0026C0 


4830 


4000 


83C4 


2709 


TESTO. 


6F 


LH 


R3, STATUS 


0026C6 


C430 


0040 




2710 








NHI 


R3,X'40' 


0026CA 


C530 


0040 




2711 








CLHI 


B3,X , 40* 


*0026CE 


2135 




=0026D8 


2712 








BNE 


TESTO. 6G 


0026D0 


E6 50 


29E0 




2713 








LA 


R5,T0.E009 


0026D4 


4300 


2612 




2714 








B 


TOROO 










2715 


* 


ERR 


STATUS BIT SET? 


0026D8 


4830 


4000 


83C4 


2716 


TESTO. 


6G 


LH 


R3, STATUS 


0026DE 


C430 


0080 




2717 








NHI 


RSjX'SO' 


0026E2 


C530 


0080 




2718 








CLHI 


RSfX'eO* 


0026E6 


4230 


4000 


834F 


2719 








BNE 


PASS 


0026EC 


E650 


2A00 




2720 








LA 


R5,T0.EO0A 


0O26F0 


4300 


2512 




"2721 
2722 


* 






B 


TOROO 










2723 


* 


CHECK : 


LOCAL 


LOOP BACK 










2724 


* 


















2725 


* 










0026F4 


41F0 


4000 


838C 


2726 


TESTO. 


7 


BAL 


R15,L00PT0P 


0026FC 


QOOO 


280C 




2727 








DAC 


TSTO.END 


002700 


0000 


280C 




2728 








DAC 


TSTO.END 


002704 


73A0 


200C 




2729 








LHL 


R10,BYTES+$VALU1 


002708 


4800 


20C2 




2730 








LH 


R0,FIFO+$VALU1 


*00270C 


213A 




=002720 


2731 








BNZ 


TO. 7 A 



LET'S LOOK AT BUSY 

MASK EVERYTHING ELSE 

IS BUSY ACTIVE? 

NO! CONTINUE ON 

•BUSY' STATUS SET UNJUSTLY 



HOW ABOUT NO-MOTION AT 

THIS TIME? 

IS NO-MOTION ACTIVE? 

YES! CONTINUE TESTING 

•NO MOTION* STATUS IS NOT SET 



ZERO OUT FLAG 

NOW LET'S SEE IF WE HAVE 

LOAD POINT INDICATION 

IS BOT ACTIVE? 

YES! CONTINUE TESTING 

WAS A REWIND GIVEN? 

YES! BUT STILL WE HAVE AN ERROR 

REWIND MAG TAPE 

FLAG THE REWIND TRY 

LOAD STATUS 

AND TRY AGAIN 

•EOT' DID NOT SET AFTER REWIND 



HOW ABOUT TERR STAT? 

ZERO IN ON BIT 

IS IT SET? 

NO! CONTINUE TEST 

•TERR" STATUS BIT SET UNJUSTLY 



LAST BUT NOT LEAST-ERR 

ZERO IN ON THIS BIT 

IS IT SET 

NO! CONTINUE TESTING 

•ERR" STATUS BIT SET UNJUSTLY 



PROCEED LIMIT 
GET BYTES VALUE 
CHECK FIFO OPTION 
IF LARGER FIFO 



MTD2S790 
MTD26300 
MTD26P10 
MTD26S20 
MTD26S30 
MTD26«40 
M' r D26R50 
fi'D^fiSSO 
M"'D26870 
M^D268R0 
M^D26890 
MTD26901 
MTD26910 
MTD26920 
MTD26930 
MTD26940 
MTD26950 
MTD26960 
MTD26970 
MTD26980 
MTD26990 
HTD2"?000 
M^D27010 
MTD27020 
M' T, T)27030 
MTD27040 
MTD27050 
MTD27060 
MTD27070 
MTD27080 
MTD27090 

¥^027100 
M""D27110 
MTD27120 

MTD27130 
MTT)2-7140 

f^D27150 
TTD27160 
MTD27170 
MTD27180 
MTD27190 
MTD27200 
!f , D27?10 
WTD27220 
fTD27230 
M7D27240 
MTD27250 
Mi'D27260 
MTD27270 
M' P D27280 
MTD27290 
MTD27300 
M T D27310 
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T P ST 








00270E 


C5A0 


0101 




002712 


4280 


2734 




002716 


C3>0 


0100 




00271A 


S650 


247E 




♦00271E 


2308 




=00272E 


002720 


C5A0 


0401 




*002724 


2138 




=002734 


002726 


C8A0 


0400 




00272A 


S650 


245C 




00272E 


41"0 


4000 


836E 


002734 


27M 






002736 


035A 






002738 


4840 


2036 




♦00273C 


2134 




=002744 


00273E 


4840 


4000 


8430 


002744 


4040 


4000 


8424 


00274A 


41E0 


4000 


7BCA 


002750 


41E0 


4000 


7C8C 


002756 


41E0 


4000 


7C80 


00275C 


9614 






00275E 


27A2 






*002760 


2282 




=00275C 


002762 


08A5 






002764 


E690 


4001 


89DC 


00275A 


5090 


4000 


84DC 


002770 


0A95 






002772 


5090 


4000 


84D8 


002773 


41F0 


4000 


7E18 


00277E 


41E0 


4000 


7C5? 


002784 


E690 


4001 


89D0 


00278A 


C800 


07FF 




00278E 


41E0 


4000 


7BDC 


002794 


C330 


0008 




♦002798 


233A 




=0027AC 


00279A 


2-701 






*00279C 


2037 




=00278E 


00279E 


"650 


4000 


87E8 


0027A4 


2400 






0027A6 


4300 


4000 


7C0E 


0027AC 


0919 


0000 




0027BO 


2692 






0027B2 


27 A 2 






0027B4 


4380 


278E 




0027B8 


2420 






00273A 


56 30 


4000 


8424 


0027C0 


2470 






0027C2 


D363 


4200 


0000 


0027C8 


0387 


4001 


99D0 


0027CE 


0568 






*0027D0 


2139 




=0027E2 


0027D2 


2671 






002"7D4 


"7 20 


0001 





2732 




CLHI 


E10,X' 101" 


2733 




BL 


TO.OOOA 


2734 




IHI 


R10,X" 100* 


2735 




LA 


R5,MESSAGAA 


2736 




B 


TO.MSGA 


2737 


T0.7A 


CLHI 


R10,X'401* 


2733 




BL 


TO.OOOA 


2739 




LHI 


RICX'400" 


2740 




LA 


R5,MESSAGA 


2741 


TO.MSGA 


BAL 


R15,L00P2 


2742 


TO.OOOA 


SIS 


R10,1 


2743 




LR 


R5,R10 


2744 




LH 


P.4,DATA+SVALU1 


2745 




BNZ 


TO. 000 


2746 




LH 


S4,TESTPAT+10 


2747 


TO. 000 


STH 


R4,DATAPAT 


2748 




BAL 


R14,THCLEAR 


2749 




BAL 


R14,CTESTKDE 


2750 




BAL 


R14,CWEITE 


2751 


TO. 102 


WHR 


R1,R4 


2752 




SIS 


R10,2 


2753 




BNL 


TO. 102 


2754 




LR 


R10,E5 


2755 


* 






2756 




LA 


R9,3EADBT?F 


2757 




STA 


R9,RDBUF 


2758 




AAR 


R9,R5 


2759 




STA 


E9,ENDBUF 


2760 




BAL 


R15,CLEBUF 


2761 




BAL 


R14,CREAD 


2762 




LA 


R9,READBUF 


2763 




LHI 


80,I'7FF' 


2764 


TO. 104 


BAL 


R14,SENSTA 


2765 




THI 


R3,X'08* 


2766 




BZ 


TO. 105 


2767 




SIS 


R0,1 


2768 




PNZ 


TO. 104 


2769 




LA 


R5,TSTER?.B 


2770 




LIS 


R0,0 


2771 




P. 


TROO 


2772 


TO. 105 


RH 


R1,0<R9) 


2773 




AIS 


R9,2 


2774 




SIS 


R10,2 


2775 




ENL 


TO. 104 


2776 




LIS 


R2,0 


2777 




LA 


R3,DATAPAT 


2778 




LIS 


F7,0 


2779 


TO. COUP 


LB 


R6,0(R3,R2) 


2730 




L3 


R8,READBUF(37) 


2731 




CLE 


R6,R8 


2732 




BNE 


TO. ERR 


2783 




AIS 


R7,1 


27S4 




XHI 


R2,1 



DOES BYTES EXCEED MAXiyU*? 

IF NOT, CONTINUE 

OTHERWISE, SET TO SAXIMU" 

BYTES TKANSFER'?FD=X , FF' 

OUTPUT AND CONTINUE 

EXCEED MAXIMUM FOE LARGE r IFO 

OK IF NOT 

SET BYTE TO MAXIMUM ALLOWED 

AND TELL USER 

OUTPUT IF POSSIBLE 

ADJUST FOR ZEROITH BYTF 

LOAD INTO ANOTHER REGISTER 

IS DATA PATTERN USER SPECIFIED? 

YES 

USE TEST PATTERN 

SAVE IT 

CLEAR INTERFACE 



WRITE DATA TO INTERFACE 
DECREMENT BYTE COUNT 
CONTINUE 
RESTORE R10 

ADDRESS OF READ BUFFER 

STORE IT 

ADD BYTE AMOUNT 

ADDRESS SET UP 

CLEAR READ 3UFFER 

ISSUE READ COMMAND 

READBUF ADDRESS 

TIME LIMIT 

CHECK STATUS 

IS BSY SET 

CONTINUE WHEN RESET 

DECREMENT TIMER 

CHECK STATUS AGAIN 



R01 
R01 
R01 
R01 
R01 
R01 

TIMED OUT WAITING FOP NCNBUSYR01 

EXPECTED STATUS B01 

ERROR SETUP AND OUT ?01 

READ INTO READ BUFFER 

INCREMENT ADDRESS 

DECREMENT BYTE COUNT" 

CONTINUE TIL COMPLETE 

ZERO OUT TOGGLE INDEX REGISTER 

GET ADDRESS OF 'JHERE DATA IS 

CLEAR INDEX REGISTER 

DATA EXPECTED 

DATA READ 

COMPARE FOR EQUALITY 

INCREMENT INDEX REGISTER 
REVERSE R2 



M'"D273?0 
M"'D2' 7 330 

*i , D27340 

HT- 139-7350 

KTD27360 
M"'D27370 
M T D27380 
M" , D27390 
M"- 1)27400 
MTD27410 
M' r D27420 

M"»D27440 
MTD27450 
M^D27460 
M m D?7470 
M' r D27480 
M^D27490 
MTD27500 
M'"D27510 
M'"D27520 
MT027530 
M"'!>27540 
MTD27550 
M -r D27560 
<f*!'D27 l =.70 
M""D27580 
x i<02759O 
M^D27600 
MT-D27610 
MT-D27620 
M' I 'D27530 
STD27640 
MTD27650 
mtt)27660 
w ,T 'D276' T 
M W D27680 
VTD27690 
M^D27700 
M'"D27''10 
MTD27720 
WTD27730 

MTI)27740 

MTD27750 
kt-D2'7"'60 
MT'D27770 
M m D?7"'S0 
VTD27790 
"""027800 

IflT^-JTRIO 

M' T 'D27820 
MTD27330 
MTr)27340 
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TEST 



0027D8 


0557 






2735 






CLR 


E5,R7 


*0027DA 


208C 




=0027C2 


2785 






BL 


TO. COUP 


0027DC 


4300 


4000 


834E 


2787 






B 


PASS 










2788 


* 


DATA ERRORS 


i ; 


0927E2 


4060 


4000 


84FC 


2789 


TO 


• ERR 


STH 


R6,WST0PE 


0027E8 


4080 


4000 


S4FE 


2790 






STH 


R8,RST0RF 


0027EE 


4070 


4000 


8414 


2791 






STH 


OT Twm?v 

i-i / f x ii y D A 


0027F4 


E650 


2A20 




2792 






LA 


R5,T0.E00D 


0027F8 


41E0 


2CC4 




2793 






BAL 


R14,T1ERR0RA 


0027FC 


E6F0 


35F6 




2794 






LA 


R15,KESSG3A 


002300 


E6E0 


4000 


8596 


2795 






LA 


R14,C0NT«SG 


002806 


4300 


4000 


82CC 


2796 






E 


ERROSX 










2797 


*************************** 










2798 


* 








00280C 


41F0 


2836 




2799 


TSTO.END 


BAL 


R15,TST.DRIV 


002810 


4800 


4000 


840A 


2800 






LH 


R0,DRIVSAV1 


002816 


C300 


OOOE 




2801 






THI 


RO,X'E" 


*00281A 


2336 




=002826 


2802 






BZ 


TO. ENDA 


00281C 


41F0 


4000 


7D58 


2803 






BAL 


R15,IT.B1 


002822 


4300 


24CE 




2804 






B 


TEST0.1 


002826 


4810 


4000 


8408 


2805 


TO 


. ENDA 


LH 


R1,DEIVSAV 


00282C 


41E0 


4000 


7BCA 


2806 






BAL 


R14,THCLEAR 


002832 


4300 


133C 




2807 






B 


TSTEND 



COMPARE TO BYTES 
CONTINUE UNTIL FINISHED 
NEXT SEQUENCE 

STORE WRITE WORD 
AND STORE IT 

SUtP TITftPV 
LI ± VI U C \ 

INCOF DATA COSP AFTEP WRITE TO CPU 
DB, DATA VS £ DATA RD 

SUSPECTED ERROR WITH CONTROLLER 
*********************** 

CHECK FOR OTHER DRIVES 
CHECK FLAG IF SET 

NO OTHER DRIVES TO BE TESTED. 
INIT TEST FOR NEXT DRIVE 
BEGIN TEST 
RESTORE DRIVE ADDR 
CLEAR INTERFACE 
HO, END TEST 



HTD27850 
M T D27860 
M^D27870 
1TD27880 
W'"D27890 
HTD27900 
"TD279 1 
MTTJ27920 
"TD27930 
MT-027940 
HTD27QS0 
HTD27960 
fTD27970 
H n 'D27980 
HTD27990 
MTD28000 
"TD28010 
STQ28020 
fTD?8030 
*TD28040 
»^D28050 
STD280*0 
H^D28070 



002836 
00283C 

*002840 
002842 
002846 
00284A 
002850 
002852 
002858 
00285A 

•00285E 
002860 
002864 
002868 
00286E 
002870 
002876 
002878 

*00287C 
00287E 

•002882 
002884 



4800 


4000 


840S 


C400 


OOOE 




213D 




=00285* 


4810 


2054 




4330 


2894 




4010 


4000 


8408 


2402 






4000 


4000 


840A 


030F 






C400 


OOOC 




213D 




=002878 


4810 


2060 




4330 


2894 




4010 


4000 


8408 


2404 






4000 


4000 


840? 


030F 
C400 


0008 




213C 




=002894 


4810 


2062 




2339 




=002894 


4010 


4000 


8408 



2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 



******************************************************* 

* THIS ROUTINE IS USED BY ALL THE SUBTESTS TO * 

* DETERMINE IF ANOTHER DRIVE IS SPECIFIED TO BE * 

* TESTED. * 
******************************************************* 



TD.DR3 



TST.DRIV LH 
NHI 
BNZ 
LH 
BZ 
STH 
LIS 
STH 
BR 
NHI 
BNZ 
LH 
BZ 
STH 
LIS 
STH 
BR 
NHI 
BNZ 
LH 
BZ 
STH 



TD.DR4 



P0,DRIVSAV1 

R0,X'E' 

TD.DR3 

R1,DRIVE+SVALU2 

TSTDRV.O 

R1,DRIVSAV 

R0,2 

R0,DPIVSAV1 

R15 

RO,X*C' 

TD.DR4 

R1,DRIVE+$VALU1+ 

TSTDRV.O 

R1,DRIVSAV 

80,4 

R0.DRIVSAV1 

E15 

R0,8 

TSTDRV.O 

R1,DRIVE+$VALU2+ 

TSTDRV.O 

R1,DHIVSAV 



LOOK AT FLAG 

CHECK FOR X'E'VD DRIVE ADDRESS 

## LOAD ADDRESS OF 2ND DRIVE 
NONE SPECIFIED 
SAVE DRIVE ADDRESS 
SET UP FLAG 

TRY THIS TEST FOR THIS DRIVE 
IS A THIRD DRIVE NEXT 

SSTR0C1 LOAD THIRD DRIVE ADDR 

SAV DRIVE ADDR 

SET UP FLAG 

TO SAY THIRD TESTED 

RETURN 

CHECK FLAG 

SSTRUC1 

NO FOUPTH SPECIFIED 
SAVE DRIVE ADDR 



H'"D28090 
1^028100 
W n D28110 
WTD2R120 
HTD28130 
MTD28140 
HTD28 1 50 
WTD28160 
1TD28170 
M^D28180 
1TD28190 
"TD28200 
MTD28 210 
1TD28220 
f^D28230 
STD28240 
"(TD28250 
STD28260 
*TD282-70 
«TD28280 

fT.D28290 
1TD28300 
W"D28310 
1TD28320 
HTD28330 
>! ""028340 
*TD28 350 
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TEST 



00288A 
00288C 
002892 

002894 
002896 
00289C 



00289E 
0028A4 



0028A6 
0028AC 



2408 

4000 4000 840A 

030F 

2400 

4000 4000 840A 

030F 



D810 4000 8416 
030E 



D910 4000 8446 
030E 



0028AE 


DOOO 


4000 


8990 


0028B4 


41F0 


4000 


836E 


0028BA 


E650 


2A9A 




0028BE 


41F0 


4000 


836E 


0028C4 


4810 


4000 


8408 


0028CA 


2403 






0028CC 


E620 


2A52 




0028D0 


41F0 


1680 




0028D4 


4810 


4000 


83C8 


0028DA 


2402 






0028DC 


E620 


2A68 




0028E0 


41F0 


1680 




0028E4 


4810 


4000 


83C4 


0028EA 


E620 


2A7C 




0028EE 


41F0 


1680 




0028F2 


D100 


4000 


8990 


0028F8 


030F 







2836 
2837 
2838 
2839 
2340 
2841 
2842 
2843 
2844 
2845 
2846 
2847 

2849 
2850 
2851 

2852 
2853 

2855 
2356 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2865 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2873 



LIS 
STH 
FR 

* 

TSTDRV.O LIS 
STH 

3R 



RO,e 

R0,DRIVSAV1 
R15 

R0,0 

R0,DRIYSAY1 

S15 



RITEDATA 



RITEDATA SH 

ER 



R1, ZEROS 
F14 



SET UP FLAG 

TO INDICATE 4TH IN USE 

EXECUTE TEST 



CLEAR FLAG 
RETURN 



ZERO DATA PATTERN 
RETURN 



R D D A T A 



RDDATA 



PH 

ER 



E1,BUFFZ 
R14 



RETURN 



THIS ERROR ROUTINE IS DESIGNED TO OUTPUT: 

1) HHAT THE TEST WAS TRYING TO DO. 

2) WHAT HAPPENED THAT WAS INCORRECT(STATUS INCORRECT HERE) 

3) HELPFUL INFORMATION, DRIVE, STAT EXP 
AND ACT STAT 



TOERRORB STH 
BAL 
LA 
PAL 
LH 
LIS 
LA 
BAL 
LH 
LIS 
LA 
BAL 
LH 
LA 
EAL 
LK 
BS 



RO, ERRS AVE 

R15,L0OP2 

R5,T0SR«SG2 

R15,L00P2 

R1,DRIYSAV 

R0,3 

R2,HESSAGE1+6 

R15,HEXASC 

R1,S?ATGD 

R0,2 

R2,MESSAGE2+16 

R15,HEXASC 

R1, STATUS 

R2,KESSAGE3+16 

R15,HEXASC 

RO,ERRSAVE 

R14 



SAVE REGISTERS 

OUTFUT HESSAGES? 

INCORRECT STATUS FROK INTERFACE 

OUTPUT MESSAGE? 

DRIVE ADDRESS 

DIGITS TO CONVER"" 

DRIVE=*** 



EXPECTED STATUS 
DIGITS TO CONVERT 
EXPECTFD STATUS=** 
CONVERT STATHS 
ACTUAL STATUS 
ACTUAL STATUS= * 
CONVEST STATUS 
RESTORE REGISTERS 
RETURN 



R01 



*TD28360 
MTD28370 
HTD28380 
WTD28390 
WTD28400 
STD28410 
WD28420 
WTD28430 
»fTD28440 
KTD23450 
»f , D28460 
WTI)28470 

>f , D28490 

fmsssoo 

f?D28510 
1TD28520 
HTD28530 

MTD28550 
«TD28560 
*TD28570 
«TD28580 
HTD28590 
f m T)28600 
YTD28610 
?fi")28620 
M' r D28630 
MTD28640 
^028650 
y" , D28660 
>!TD28670 
in>28680 
MTD28690 
»f'D28700 
M T D28 -7 10 
f^D28720 
MTD28730 
HTD2R740 
M' I '^28750 
1^D28760 
fTD28770 
w"'D?8730 



0028FA 
002902 
002906 
002908 
002910 



4558 4543 5554 494E 

4720 5353 

ODOA 

4558 4543 5554 494E 

4720 4F43 



2880 TO.EOOO DC 



2881 T0.E001 DC 



C'EXSCUTING 3S',X'OD0A' 



C'EXFCUTING OC^X'ODOA" 



"^023^00 



WTD2B810 
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002914 


ODOA 








002916 


4558 


4543 


5554 


494E 


00291E 


4720 


5744 






002922 


ODOA 








002924 


4558 


4543 


5554 


494E 


00292C 


4720 


5244 






002930 


ODOA 








Q02932 


4641 


4C53 


4520 


5359 


00293A 


4E43 


204F 


4F20 


5345 


002942 


4C43 


4820 


2A2A 


2A20 


00294A 


ODOA 








00294C 


4452 


4956 


4520 


554F 


002954 


4156 


4149 


4C41 


424C 


00295C 


4520 








00295E 


ODOA 








002960 


2245 


4F46 


2220 


5354 


002968 


4154 


5553 


2042 


4954 


002970 


2053 


4554 


2055 


4E4A 


002978 


5553 


544C 


5 920 




00297E 


ODOA 








002980 


2242 


5553 


5922 


2053 


002988 


5441 


5455 


5320 


4249 


002990 


5420 


5345 


5420 


554E 


002998 


4A55 


5354 


4C59 




00299E 


ODOA 








0029A0 


224E 


4F2D 


4D4F 


5449 


0029A8 


4F4E 


2220 


5354 


4154 


0029B0 


5553 


2049 


5320 


4E4F 


0029B8 


5420 


5345 


5420 




0029BE 


ODOA 








0029C0 


22 42 


4F54 


2220 


4449 


0029C8 


4420 


4E4F 


5420 


5345 


0029D0 


5420 


4146 


5445 


5220 


0029D8 


5245 


5749 


4E44 




0029DE 


ODOA 








0029E0 


2254 


4552 


5222 


2053 


0029E8 


5441 


5455 


5320 


4249 


0029F0 


5420 


5345 


5420 


55 4 E 


0029F8 


4A55 


5354 


4C59 




0029FE 


ODOA 








002A00 


2245 


5252 


2220 


5354 


002A08 


4154 


5553 


2042 


4954 


002A10 


2053 


4554 


2055 


4E4A 


002A18 


5553 


544C 


5920 




002A1E 


ODOA 








002A20 


494E 


434F 


5252 


4543 


002A28 


5420 


4441 


5441 


2043 


002A30 


4F4D 


5041 


5245 


2041 


002A38 


4654 


4552 


2057 


5249 


002A40 


5445 


2054 


4F20 


4350 


002A48 


5520 








002A4A 


ODOA 








002A4C 


4452 


4956 


4520 


2A2A 



2882 T0.E002 DC C'EXECUTING WD',X*0D0A' 



2883 TO. £003 DC C'EXECUTING RD',X'0D0A' 



2884 T0.E003A DC C'FALSE SYNC ON SELCH ***',X 8 0D0A' 



2885 T0.E004 DC C DRIVE UNAVAILABLE ' ,X ' ODOA ' 



2886 T0.S005 DC C'"EOF" STATUS BIT SET UNJUSTLY * ,X * ODOA ' 



2887 T0.E006 DC C'"BnSY" STATUS BIT SET UNJUSTLY' ,X' ODOA' 



2888 T0.E007 DC C ' "NO-HOTION" STATUS IS NOT SET", X' ODOA' 



2889 T0.E008 DC C'"BOT" DID NOT SET AFTER REWIND' ,X' ODOA' 



2890 T0.E009 DC C"*TERR" STATUS BIT SET UNJUSTLY* ,X' ODOA * 



2891 TO.EOOA DC C'ERR" STATUS BIT SET UNJUSTLY ' ,X ' ODOA ' 



2892 TO.EOOD DC C'INCQRRECT DATA COMPARE AFTER WRITE TO CPU',X'ODOA' 



WTD28820 



n^D28830 



STD28840 



MTD28850 



WTD28860 



•ITD28870 



n^^msao 



MTD28890 



1TD28900 



tfTD28910 



M^D28920 



2893 SESSAGE1 DC C'DRIVE ***',X'8D0A' 



« T D28930 



HIGH PESFO 
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002A54 


2A20 








002A56 


S^OA 








O02A58 


45 s 9 


5045 


4354 


454U 


002A60 


2053 


5U41 


5455 


533T> 


002A68 


2A2A 








002 A6 A 


8D0A 








002P6 r 


l)H3 


5455 


414C 


2053 


002A74 


5441 


545 5 


=-3 20 


203B 


002A7C 


2A2A 








002A7E 


0!)0A 








002A80 


(46 41 


4C53 


4 5 20 


5359 


002A88 


4£43 


204F 


4F20 


4452 


002A90 


U956 


4520 


2A2A 


2»2C 


002*96 


ODOA 








002A9A 


494E 


434F 


5252 


4543 


002AA2 


5420 


5354 


4154 


5F53 


002 AAA 


2046 


524F 


4D20 


494E 


002AE2 


54 4 5 


5246 


4143 


4520 


002APA 


ODCA 









0000 2ABC 

002ABC 3000 4000 849C 

002AC2 2404 

002AC4 7310 4000 844A 

002ACA 5620 35EF 

002ACE <HTO 1680 

002AD2 D100 4000 6490 

002AD8 030F 



2894 *ESSACF2 



C'FVPFCT^D STATUS=**' ,X'8D0A' "01 



2895 MESSAGE3 *C "'ACTUAL STATUS -**',X'ODOA' ?01 



2896 TOFRSSm DC 



r'^ALSK SYNC ON DRIVE ***' ,X 'ODCA ■ 



>397 T0E8HSG2 DC C'INCORRECT STATUS FROX INTERFACE ' ,7*000* ■ 



28g3 ****** ****»*...**** ************************************ 

2899 * 

2 q 00 * COSE HEP? TO CONVERT EITHER RECORD OR FILE * 

2901 * 1ENGTH TO ASCII * 

2902 * 

2903 ************** ****************** 



t************************ 



2905 


LENASC 


EQ'J 


* 


2906 




ST** 


R0,REGSAVE 


2907 




LIS 


P0,4 


2908 




LHL 


PI, LENS AV 


2909 




LA 


R2,!»FSS3.0+7 


2910 




3AL 


P15,HEXASC 


2911 




l:< 


?0,BEGSAVE 


2912 




go- 


?15 



STORE WORKING REGISTERS 
LOAD CHARACTER COUNT 
LOAD LFNGTH DATA 
LOAD ADDRESS OF STORAGE 
GO AND CONVERT 
RESTORF REGISTERS 
RST'.'RN TO CALLER 



yT,?RQUP 



»Tn?a r! 50 



yTT)9pq^o 



■f'^i)28' :) 70 



»r , D28980 
Ktti28990 
WT029000 
1 ,,, D29010 
M" , D29020 

>(n»n9qf>30 

M"'D29050 
k"D290 < ;0 
M' I 'D29070 
»( T D29080 
*r ""029000 
VTD29100 
i« w D29110 
«f ""020120 
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2914 
2915 
2916 
2917 
2918 
2919 

TQIrt 
£. S £. V 

2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 



*********************************** 



******************** 



* TEST 1 WORST CASE DATA PATTERNS 

* PURPOSE: THIS TEST WILL CHECK OUT THE DAT* PATH ON ' 

* THE INTERFACE AND THRU THE FCU TO THE DRIVES ' 

* IF CONNECTED. THIS TEST WILL UTILIZE THE S^LCH * 

* OR DO READ-WRITE DATA TRANSFERS IF SO SELECTED. " 
- nbbuSruOhb; :ai5 mai .iSsubEi ihaT XfibKE IS AT LEAS* 

* AN INTERFACE CONFIGURED IN THE SYSTEM. * 

* i 

* DESIGN PEC: THIS TEST DOES A CHECKOUT OF THE DA^A * 

* PATHS USING WORST CASE DATA PATTERNS: " 

* t 

* FF 88 33 99 01 89 FE 76 * 

* 11 55 77 66 23 AB DC 54 * 

* 22 EE A5 DD 45 CD BA 32 * 

* 44 CC 5A AA 67 SF 98 10 * 



* ERRORS: 

* 

* OPTIONS: DRIVE-DEVICE ONE ADDRESS ' * 

* SELCH- SELCH ADDRESS 

* ONLINE-FCU CONNECTED AND ONLINE X'OI^ONLINE 

* TRMODE-SELCH OR READ-WRITE DATA 

* BYTES-NUMBER OF BYTES PER RECORD TRANSFER 

* RECORDS-NUMBER OF RECORDS PER FILE TRANSFER * 

* FILE-NUMBER OF FILES TO TRANSFER 

* DENSITY = 6250 OR 1600 OR 800 

* 

* HOW TO RUN THE TEST: 

* SELECT TEST #1 AND ENTER 'RUN' 

* NO-ERROR WILL PRINT OUT UPON NORMAL COMPLETION 

* OF THE TEST. 

* 

**************************************************** 



MTD29140 
1^29150 
MTD29160 
»!TD29170 
*TD29180 
YTD29190 
WTD29200 
MTD29?10 
MTD29220 
MTD29230 
HTD29240 
Mi , D292'?0 
MTD29260 
fTD29270 
MTD29280 
n^D29290 
MTD29300 
f T D29310 
fH)29320 
H^D29330 
iji. 1129^40 
HTD29350 
MTD29360 
M" , D29370 
•f p D29380 
KTD29390 
W'"D29400 
M n 'D29410 
M q 'D29420 
f^D29030 
fi-T)29440 
KTD29450 
W' 1 't>29460 
"TD29470 
HTD29480 











2950 


* 








0000 


2ADA 




2951 


TEST1 


EQU 


* 


002ADA 


41F0 


4000 


7D4A 


2952 




3AL 


ri5;testinit 




0000 


2AE0 




2953 


TEST1.1 


EQU 


* 


002AE0 


4840 


2036 




2954 




LH 


E4,DATA+SVALU1 


*002AE4 


2135 




=002AEE 


2955 




BNZ 


TST1.01 


002AE6 


E640 


4000 


8426 


2956 




LA 


R4,TESTPAT 


*002AEC 


2309 




=002AFE 


2957 




B 


TST1.1 


002AEE 


C870 


0040 




2958 


TST1.01 


LHI 


R7,64 


002AF2 


4040 


400C 


8424 


2959 




STH 


R4,DATAPAT 


002AF8 


E640 


4000 


8424 


2960 




LA 


R4,DATAPAT 




0000 


2AFE 




2961 


TST1.1 


EQU 


* 



INITIALIZE TEST 

LOOK AT DATA PATTERN SELECTED 

USER SPECIFIED 

LOAD ADDRESS OF TEST PATTERNS 

ALLOW 64 BYTES MAXI V H« 
STORE DATA 

## LOAD AN ADDRESS 
## 
2962 ******************************************************* 



MTD29500 
"CTD29510 
M^D29S20 
<i "D29530 
«^D29540 
YTD29550 
KTD29560 
MTD29F70 
•^29580 
"TD29590 
WTD29600 
HTD29610 
w^D29620 
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002AFE 


41F0 


4000 


838C 


002304 


0000 


2BF4 




002B09 


3000 


2BF4 




002B0C 


41E0 


4000 


7BCA 


002S12 


41E0 


4000 


7C8C 


002B1S 


41E0 


4000 


7C80 


002B1E 


0814 


0000 




002B22 


41E0 


4000 


7C22 


002B28 


C4 30 


ooco 




002B2C 


C530 


0000 




002B30 


4330 


2B54 




*002B34 


2400 






002B36 


4000 


4000 


83C8 


002B3C 


E650 


330F 




002B40 


41E0 


28AE 




002544 


E5F0 


2A4C 




002B48 


56E0 


4000 


8596 


002B4E 


4300 


4000 


82CC 


002B54 


41E0 


4000 


7C5A 


002B5A 


41E0 


4000 


7C22 


002B60 


9916 






002B62 


41E0 


4000 


7BDC 


002B68 


C4 30 


00C8 




002B6C 


C5 30 


0008 




002B70 


4330 


2B94 




*00 237 4 


2408 






002376 


4000 


4000 


83C8 


002B7C 


E650 


333C 




002F80 


41E0 


28AE 




002B84 


E6F0 


2A4C 




002B88 


E6E0 


4000 


8596 


002B8E 


4300 


4000 


82CC 


002394 


7334 


0000 




002B98 


0563 






002B9A 


4330 


23CA 




002B9E 


4030 


4000 


84FC 


002BA4 


U060 


4000 


84FE 


002BAA 


2"O0 






002BAC 


4000 


4000 


P414 


002BB2 


£650 


336A 




002BB6 


41E0 


2CC4 




002BBA 


E5F0 


35F5 




002BBE 


E6E0 


4000 


8596 



2953 


* 








2964 


* 


THIS 


WILL CHECK OUT FIFO C 


2965 


+ 








2966 


***************************! 


2968 


TEST1. 


1B BAL 


?.15,L00PT0P 


2359 






DAC 


T P ST1.04 


2970 






DAC 


TEST1.04 


2971 






BAL 


R14,TKCLFAR 


2972 






BAL 


R14,CTESTMDE 


2973 






BAL 


R1U -CWRITE 


2974 


* 


WRITE TWO BYTES 


2975 






WH 


R1,0(R4> 


2976 






BAL 


R14,SENSTA3 


2977 


* 


WRITE OK? 




2978 






NHI 


R3,X*C0' 


2979 






CLHI 


R3,X'00* 


2980 






BE 


TEST1.01 


2981 






LHI 


RCX'OO* 


2982 






STH 


P0,S?ATGD 


2983 






LA 


R5,T1.E000 


2984 






BAL 


R14,T0ERR0RB 


2985 






LA 


R15,*ESSAGE1 


2985 






LA 


R14,C0NTKSG 


2937 






B 


ERPORX 


2988 


* 


READ 


TWO BY1 


'ES 


2989 


TEST1. 


01 BAL 


R14,CREAD 


2990 






BAL 


R14,SENSTA3 


2991 






RHR 


R1,R6 


2992 






BAL 


R14,SENSTA 


2993 






NHI 


P3,X'C8' 


2994 


* 


BUSY 


STILL ACTIVE? 


2995 






CLHI 


R3,X'08" 


2995 






3E 


TEST1.02 


2997 






LHI 


50,X"08' 


2998 






STH 


R0,3TATGD 


2999 






LA 


R5,T1.E0C1 


3000 






BAL 


R14,T0ERR0?,B 


3001 






LA 


R15,!1ESSAGE1 


3002 






LA 


R14,C0NTWSG 


3003 






5 


ERPOPX 


3004 


* 


LET' 


S CHECK 


THE TWO EYTES 


3005 


TEST1. 


02 LHL 


?,3,0(R4) 


3006 






CLP 


R6,R3 


3007 






BE 


TEST1 .03 


3008 






STH 


R3,WST0RE 


3009 






STH 


E6,RST0RE 


3010 






LIS 


R0,0 


3011 






STH 


RO, INDEX 


3012 






LA 


25,?1.E0C2 


3013 






BAL 


R14,T1ERR0PA 


3014 






LA 


P. 15 ,KESSG3A 


3015 






LA 


R14,C0NT«SG 



CALCULATE LOOP ADDRFSSES 

NEXT SEQUENCE 

PROCEED LIKIT 

CLEAR FIFO'S 

PUT INF. IN TESTtfODE 

PUT INF. IN VRITF MODE 

WRITE A HALFWORD 
DO A STATUS CHECK 

CLEAR ALL BUT ERF STATUS 

IS IT GOOD STATUS? 

YES! CONTINUE ON 

LOAD DRIVE CONNECTED STAT 

STORE IT 

WRITE HALFWORD TO CHECK FIFO CONTROL 

DBIVE, STATUS'S 

SUSPECTED ERROR WITH CONTROLLER 



PUT INF IN READ HODS 

DO A SENSE STATUS 

READ THE HALFWORD OF DATA 

CHECK STATUS 

DISABLE ALL BUT ERRS + BUSY 

STATUS OK? 

YES! CONTINUE 

LOAD EXP. STATUS 

STORE IT 

READ HALFW TO CHECK FIFO CONT BITS 

DRIVE, STATUS' 

SUSPECTED ERROR WITH CONTROLLER 



LO*D COMPARE DATA 

COMPARE READ AND WRITE DATA 

IF EQUAL CONTINUE ON 

STORE IT 

STORE BAD DA^A 

SET INDEX 

FIFO CONTROL ON BITS IN TEST^ODE 

DATA flESSAGES 

SUSPECTED ERROR KITH CCNT50LLEP 



M" , D29*30 
■f" , D296«0 
M'"D2 C >650 
1TD29*60 

«[Ti29is80 
«' n D29690 
MTD29700 
^ q, D29710 

wT)2g720 
w"T)29730 

NTD29740 
w , 'D297S0 
S' P D29760 
3TD29770 
* m D29780 
fTn29790 
f T D29800 
w™D29810 
"?^D29820 
MTD29830 
r^D29840 
"TD29850 
*f"D29860 
!ITD29870 
HTD29880 
MTD29890 
H"'D29900 
STD29910 
WTD29920 
fTD29930 
HT'T)29940 
HTD29950 
»f , D29960 
tfTT)29970 
MTD29980 
»!Tt»29990 
WTR30000 
»}T030010 
"['?'P30020 
"TD30030 
"""D30040 
"'"D30050 
"ITD300SO 
f^D30070 
V^D30080 
f^D30090 
1^030100 
fTt)3011C 
f^D30120 
^030130 
f m D30140 
^1)30150 
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002BC4 

002BCA 
*002BCE 
002BD0 
002ED2 
002BD8 
002BDC 
002BDE 
002BE2 
002BE8 
002BFC 
*002BEE 
002BFO 



002BF4 
002BFC 
002COO 
002C04 
002C0A 
002C10 

002C16 
*002C1A 
002C1C 
*002C20 
002C22 
002C26 
0O2C2C 
002C32 
002C36 
002C38 



002C3A 
002C3C 
002C42 
002C44 
*002C46 
002C48 
002C4C 
002C50 
002C56 
002C5A 
002C60 
002C64 
002C68 
O02C6C 
002C72 



U300 4000 82CC 



4800 


2036 




213D 




=0O2BE8 


2642 






E680 


4000 


8426 


CA80 


0020 




0948 






4230 


2AFE 




4300 


4000 


834E 


41F0 


1A8C 




27-71 






2333 




=002EF4 


4300 


2AFE 





41F0 


4000 


838C 


0000 


2D36 




0000 


2D36 




41E0 


4000 


7BCA 


41E0 


4000 


7C8C 


E640 


4000 


842F 


4800 


20C2 




2134 




=002C22 


C860 


0100 




2303 




=002026 


C860 


0400 




E680 


4000 


84F0 


41E0 


4000 


7C80 


0814 


0000 




2761 






2213 




=002C32 


246A 






41E0 


4000 


7BDC 


2385 




=002C4C 


2761 






2035 




=002C3C 


4300 


2C78 





C830 0038 
4030 4000 83C8 
E650 35CE 
41F0 4000 836F 
E650 339C 
41E0 28AE 
E6F0 2A4C 
E6K0 4000 8596 
4300 4000 82CC 



3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3025 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

3067 

3068 



B ERPOEX 
* LET'S TRY DIFFERENT PATTERNS 
TEST1.03 LH RO ,DATA + SVALU1 

BNZ TST1.03 

AI3 R4,2 

LA E8,TESTPAT 



TST1.03 



CAR 

BNS 

B 

BAL 

SIS 

BZ 

B 



R8,32 

R4,R8 

TEST1.1B 

PASS 

R15,TSTBRK 

R7,1 

TEST1.04 

TEST1.1B 



DATA IS USER SPECIFIED 
INCREMENT DATA PAT. INDEX 
LOAD END OF PAT ADDR 

HAVE WE DONE ALL PATTERNS 

NO! CONTINUE THIS TFST 

OK FINISHED 

CHECK FOR BREAK TERMINATION 

DECREMENT BYTE COUNTFR 

IF FINISHED, PASS ON 

ELSE CONTINUE 



******************************************************* 

* * 

* THIS WILL CHECK OUT FIFO BUSY LOGIC * 

* * 
******************************************************* 



TEST1.04 BAL 
DAC 
DAC 
BAL 
BAL 
LA 



R15,L00PT0P 

TEST 1.06 

TEST1.06 

R14,THCLEAR 

R14,CTESTKDE 

R4,TESTPAT+8 



* MAXIMUM COUNT = FIF0C256) + READ 

LH R0,FIFO+SVALU1 

BNZ T1.4A 

LHI Re^'lOO' 

B T1.04A 

T1.4A LHI R6,X"400* 

T1.04A LA R8,TSTBUF 

BAL R14,CWRITE 

TST1.2A WH R1,0(R4) 

SIS R6,1 

BNMS TST1.2A 

* FIFO SHOULD BE FULL NOW 

* BUSY SHOULD LET US TIME OUT 

LIS R6,10 

TST1.2B EAL R14,SENSTA 

BNCS T1R01 

SIS R6,1 

BNZ TST1.2B 

B TEST1.05 

T1R01 LHI R3,X'38" 

STH R3,STATGD 

LA R5,T1ERHSG2 

BAL R15,L00P2 

LA R5,T1.E003 

T1R01.2 BAL R14,T0ERROPB 

LA R15,HESSAGE1 

LA R14,C0NTMSG 

B FRRORX 



CLEAR INTERFACE 

PUT INF IN TEST MODE 

LOAD ADDR OF SOME DATA 

LATCHES(2) BYTES 

GAPLFSS VERSION? 

YES IF NON ZERO 

LOAD A COUNT FOR 256 HW 

LOAD GAPLESS MAXIMUM TO FILL FIFO 
LOAD ADDRESS OF TEMP STORE 
PUT INTERFACE INTO WRITE MODE 
WRITE PATTERN TO INF. 
DECREMENT HW COUNTER 
KEEP OUTPUTTING 



LOAD TIMER 

TAKE STATUS CHECK AND 

ERROR IF NO CARRY 



LOAD GOOD STATUS 

STORE IT 

CHECK OF FIFO BUSY LOGIC 

OUTPUT MESSAGES? 

BUSY RESET DURING TI v EOUT AFTE" TEST* 



SUSPECTED ERROR WITH CONTROLLER 



MTD301S0 
5TD30170 
MTD30180 
MTD30190 
MTD30200 
M^D30210 
!i' r D30220 
MTD30230 
MTD30240 
MT>30250 
MTT>30260 
MTD30270 
MTD30280 
MTD30290 
MTD30300 
MTD30^10 
MTD30320 
MTD30330 
1^030340 
MTD30350 
M^D30360 
MTD30370 
MTD30380 
HTD30390 
M"'D30400 
MTD30410 
M n, D30420 
M^D30430 
MTD30440 
MTT)304 C 
MTD30460 
M^D30470 
MTD30480 
MTD30490 
M^D30500 
MTD30510 
M^D30520 
MTD30530 
MTD30540 

MTD30560 
MTD30570 

MTD30590 
M^DSO^OO 
M^D30610 
MTD30620 
MTD30630 
MTD30640 
MT^O^O 
MTD30660 
MTD30670 
f^D30680 
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TEST 1 



002C78 
►C02C7C 
002C7E 
►002C82 
002CS4 
002C88 
002C8E 
002C92 
00 2C94 



002C96 
002C98 
002C9E 
002CA0 
*002CA2 
002CA4 

*002CAA 
002CAC 
002CB2 
002CB6 
002CBC 
002CCO 



4800 20C2 
2134 

C860 0100 
2303 

7800 0400 
41E0 4000 
0918 0000 
2761 



=002C84 



=002^88 



7C5A 



11 ■* O 



246A 

41E0 4000 "7EBC 



=002CAA 



=G02C98 



2386 
2761 
2035 
4300 4000 834E 

243C 

4030 4000 83C8 
E650 35CE 
41^0 4000 836^ 
3650 33CC 
4300 2C64 



002CC4 


0000 


4000 


8990 


002CCA 


41F0 


4000 


836E 


002CD0 


E650 


35B6 




002CD4 


41F0 


4000 


836E 


002CDA 


2406 






002CDC 


4810 


4000 


841 4 


002CE2 


E620 


3613 




002CE6 


41F0 


1680 




002CEA 


4310 


4000 


84C? 


002CF0 


2403 






002CF2 


E620 


35FC 




002CF6 


41F0 


1680 




002CFA 


2402 






002CFC 


41E0 


4000 


7SDC 


002D02 


4810 


4000 


83^4 


002D08 


E5 20 


3609 




002D0C 


41F0 


1680 




002D10 


2404 







3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
30 8 3 
3084 
3085 
3086 
3087 
3038 
3089 
3090 
3091 
3092 
3093 
3094 

3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3115 
3117 
3118 
3 119 
3120 
3121 



* BUSY 

* SAME 
TEST1. 



IS STILL UP SO LET'S TFY BEAD NOW 
MAXIMUM COUNT 



05 LH 
BNZ 



T1.5A 

T1.05A 

TST1.3; 



* FIFO 

* BUSY 

TST1.3E 



RCFIFO+SVALU1 

T1.5A 

Pe/XMOO" 

T1.05A 

R6,X*400" 

R14,CPEAD 

R1,0(P8) 

P6,1 

TST1 . 3A 
SHOULD BE EMPTY NOW 
SHOULD TIME OUT AGAIN 

R6,1C 

R14,SENSTA 

T1R02 

56,1 

TST1.3B 

PAS*: 



LHI 

3 

LHI 
SAL 
RH 
SIS 



LIS 

BAL 
BNCS 
SIS 
BNZ 



GAPLESS VERSION 

YES 

LOAD COUNT FOR 256 H« 

BYTES VALUE FOR GAPL^SS 
PUT INTERFACE IN REAP NOPF 
AND START TO EMPTY FIFO 
DECREMENT COUNTER 
KEEP OUTPUTTING 



LOAD TIMES 

TAKE STATUS CHECK AND 



* OTHE 
T1R02 



RWISE EREOB 

LHI R3,X'0C 



STH 

IA 
EAL 
LA 
B 



E3,STATGP 

R5,T1ERMSG2 

R15,L00P2 

R5,T1.E0Q4 

T1R01.2 



DECREHENT TIMER 



LOAD GOOD STATUS 

STORE IT 

CHFCK OF FIFO BUSY LOGIC 

OUTPUT MESSAGES? 

BUSY RESET DURING TIMEOUT AFTER TM 'r 



THIS EEHOR E 
FOE DATA COM 

1) WHAT THE 

2) WHAT WEN 

3) HELPFUL 
DATA tfRI 



OUTINE IS DESIGNED SPECIFICALLY 
PARE ERRORS. IT OUTPUTS: 

TEST WAS TRYING TO DO, 
T WEONG(DATA COHPASE ERRORS HERE) 
INFORMATION- DRIVE, DATA READ AND 
T^EN. 



T1EEEOEA 



STM 

BAL 

LA 

BAL 

LIS 

LH 

LA 

3AL 

LH 

LIS 

LA 

EAL 

LIS 

PAL 

LH 

LA 

BAL 

LIS 



ECEEESAVE 
R15,L00P2 
E5,T1ERKSG1 
E15,L00P2 

?0,6 

R1, INDEX 

?2,MESSG3C+5 

P15,HEXASC 

R1,DRIVSAV 

R0,3 

F.2,KESSG3A+6 

R15,REXASC 

E0,2 

R14,SFNS?A 

E1, STATUS 

R2,KESSG3B+7 

R15,HEXASC 

P0,4 



SAVE REGISTERS 
OUTPUT MESSAGE? 
INCORRECT DATA COMPARE 

SIX DIGIT CONVERSION 

GET BYTE VALUE AT TI V E OF ERRO c 

STORF IT HERE 

CONVERT 

DRIVE ADDRESS 

DIGITS * 

STORED HERE 

AFTER CONVERSION 

2 PIGITS 

GET STATUS 

ACTUAL STATUS 

STORED HERS 

AFTER CONVERSION 

4 DIGITS 



R01 



P01 



kt-t)30«90 
M m D30700 
""'030710 
f"D30720 
M^D^0730 
M q, D30'740 

M T D30' 7 50 
M^DSO^O 
M m D30770 
M^D3078C 
MTTI30790 
M m D30.°00 
"TD30P10 
»"'D30820 
*'"D30830 
K™D30840 
MTD30950 
M m D308«0 
M"'D30P70 
M™P30880 
«™D30890 
MTD30901 
*T30910 
"•"D30920 

M^psogso 

M'"P30940 

M^D30960 
M T D30970 
M~D30980 
MT'i)30990 
M^D31000 
M m P31010 
M'"P31020 
W" , n31030 
MTD31040 
M^D31050 
^""031060 
M"'D31070 
M T D31080 
m-031090 
"^031100 
."""031 110 
^031120 
"■^031130 
M^D31140 
yTT)3H=;o 
"■"D31160 
MTD31170 
MTD31180 
M m D31190 
MTD3120C 
MTD31210 
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TEST 1 



002D12 
002D18 
002D1C 
002D20 
002D26 
002D2A 
002D2E 
002D34 



002D36 
002D3C 
002D40 
002D44 
002D48 
002D4C 
002D50 
002D54 
002D58 
002D5E 
002D62 
002D68 
002D6C 
002D70 
*002D74 
002D76 



002D7A 
002D80 
002D84 
002D88 
002D8E 
002D94 
002D9A 
002DAO 

*002DA4 
002DA6 

*002DAC 
002DAE 
002DB2 
002DB8 
002DBE 
002DC4 



4810 4000 84FC 
E620 3629 
41F0 1680 
4810 4000 84FE 
E620 363D 
41F0 1680 
D100 4000 8990 
030E 



41E0 4000 7BCA 

4800 20DE 

4230 2D62 

4800 2124 

4330 31E8 

4820 2108 

4230 2F36 

E650 BDC8 =006B20 

41F0 4000 836F 

4300 1358 

41E0 4000 7B9A 

4800 2124 

4330 309C 

4820 2108 

2133 =002D7A 

4300 2D54 



41F0 


4000 


838C 


0000 


32F2 




0000 


32F2 




41E0 


4000 


7C9E 


41E0 


4000 


7C9E 


41F0 


4000 


80D2 


41F0 


4000 


7E10 


4840 


2036 




2135 




=002DAE 


E640 


4000 


8426 


2309 




=002DBF 


C870 


0020 




4040 


4000 


8424 


E640 


4000 


8424 


41E0 


4000 


7B9S 


41F0 


4000 


7E38 



3122 

3123 

3124 

3125 

3126 

3127 

312 8 

3129 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3148 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3.157 

3158 

3159 

3160 

31S1 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 



LH 


R1,WST0RE 


DATA WRITTEN 


LA 


R2,MESSAGE4+13 


STORED HERE 


BAL 


R15,HEXASC 


AFTER CONVERSION 


LH 


R1,RST0RE 


DATA READ 


LA 


R2,«ESSAGE5+13 


STORED HERE 


BAL 


R15,KEXASC 


AFTER CONVERSION 


T If 


Ru/EKKSr. tjij 


RESTORE REGISTERS 


BR 


P14 


RETURN 



* IF TIMEOUT GO TO NEXT TEST 

* 

******************************************************* 



* THIS IS A CHECK OF OPTIONS 

* 

********************************** 

TEST1.06 BAL R14,THCLEAR 

LH R0,ONLINE+$VALU1 

BNZ TST1.06A 

LH R0,TRH0DE+$VALU1 

BZ T1.6000 

LH R2,SELCH+$VALU1 

BNZ TEST1.5 

T1R06 LA R5,N0SEL 

BAL R15,LOOP2 

B ABORT 

TST1.06A BAL R14,CCLEAR 

LH R0,TRMODE+$VALU1 

BZ TEST1.6 

LH R2,SELCH+$VALU1 

BNZ TEST1.4 

B T1R06 



********************* 
CLEAR INTERFACE 
IN TESTMODE OR ONLINE? 
ONLINE IF SON ZERO 
WRITE/READS OR SELCH TRANSFERS 
WRITE/READS IF ZERO 
GET SELCH ADDRESS 
SELCH TRANSFERS 
NO MATCH ON SELCH ADDRESS 

END TESTING 

CLEAR INTERFACE 

TYPE OF TRANSFER 

WRITE/READS TO trpe 

GET SELCH ADDRESS 

SELCH TRANSFERS TO TAP 17 

NO HATCH ON SELCH ADDRESS 



* IF WE GET HERE:SELCH=1,0NLINE=1 

* SELCH IS PRESENT, DRIVES ARE ON 

* OF TRANSFER IS SELCH TRANSFERS 

* 

********************************* 



TEST1.4 BAL 
DAC 
DAC 
BAL 
BAL 
BAL 
BAL 
LH 
BNZ 
LA 
B 

TST1.40A LHI 
STH 
LA 
BAL 
BAL 



TST1.4A 



R15,L00PT0P 

TST1.END 

TST1.END 

R14,CST0P 

R14,CST0P 

R15,REWMT 

R15,REST0RE1 

R4,DATA+SVALU1 

TST1.40A 

R4,TESTPAT 

TST1.4A 

R7,32 

R4,DATAPAT 

R4,DATAPAT 

R14,CCLEAR 

R15,SELSETW 



,TRM0DE=1 
LINE AND MODE 



*********************** 
CALCULATE ADDRESSES 

STOP SELCH INITIALLY 

REWIND TAPE 

ENABLE INT 

LOOK AT DATA PATTERN CHOSEN 

USER SPECIFIED 

LOAD ADDRESS OF TESTPATTERNS 

START 

MAXIMUM BYTE OUTPUT 

GET AN ADDR IN R4 
CLEAR INTERFACE 
SET UP SELCH 



MTD31220 

W"D31230 

fTD31240 

MTD31250 

MTD31260 

''TD31270 

3^3 3128 

MT-D31290 

*I^D31300 

H^D31310 

fTD31320 

KTP31330 

TTD31340 

MTD31350 

MTD31360 

MTD31370 

•TTD31390 

MTD31390 

MTD31400 

STD31410 

MTD31420 

MTT)3m30 

M^D31440 

M m D31450 

VD31460 

1^031470 

KTD31U80 

MTD31490 

MTD31^00 

M^DSISIO 

MTD31520 

M?D31*30 

MTD31 c ;40 

*?D3155Q 

M^D31560 

MTD31 C 7 

MTD31580 

MTD31590 

M^DSTiOO 

MTD31M0 

MTD31620 

M^D31630 

fTD31640 

VD31650 

MTD316S0 

MTD31«70 

^^031680 

M^D31700 
MTD31710 
VTi)31720 
"'"D31730 
WT531740 
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002DCA 
002DD0 
002DD6 
0U2DDA 

♦002DDE 
002DE0 
002DE6 
007DEC 
002DFO 
002EF4 
902BF8 
002DFA 
002DFC 
002E02 
002F06 
0Q2F0C 
002E12 
002ET; 
002E16 
002E1A 
002E1E 
002E24 
002E28 
0Q2E2E 
002E34 
002F3A 
002E40 
002E46 
002F4C 

*002E50 
002E52 



002E58 
002E5E 
002E64 
002E6A 
002E70 
002E74 
002E78 
002E7C 
002580 
002E82 
002E88 
C02FSC 
002F.92 
002F98 
002F9A 
002E9C 
002EA0 
002FA4 
002EAA 
002ES0 



41 EO 


4000 


7CFA 


41E0 


4000 


75^2 


7 3 5.0 


200C 




C3A0 


0001 




2334 




=00?rF6 


41S0 


4000 


7CF8 


41E0 


4000 


7:80 


ES50 


3564 




E600 


2E34 




4000 


21E3 




030A 






260F 






41 EO 


4000 


7C86 


41F0 


162A 




DOOO 


4000 


8990 


41F0 


4000 


836E 


2403 






0812 






E620 


34F9 




41F0 


1680 




D100 


4000 


8990 


E6F0 


34E2 




E6S0 


4000 


85B8 


4300 


4000 


82CC 


41F0 


4000 


7208 


41F0 


4000 


7E78 


41F0 


4000 


7F02 


41F0 


4000 


8112 


G430 


0020 




2334 




=002E58 


41F0 


4000 


80D2 


0000 


2E58 




41F0 


4000 


8040 


41E0 


4000 


7D2A 


41F0 


4000 


80D2 


41E0 


4000 


7C5A 


E650 


357E 




E500 


2EBA 




4000 


21E8 




7300 


200C 




250F 






41E0 


4000 


7C98 


41F0 


162A 




DOOO 


4000 


8990 


41F0 


4000 


836E 


2403 






0812 






5620 


351E 




41F0 


1680 




D100 


400C 


8990 


E6E0 


4000 


85E8 


F.SFO 


3504 





3175 




PAL 


R14,WRBU r 


3175 




BAL 


R14,CDENS 


3177 




IHL 


R10,3YTFS+$VALU1 


3178 




THI 


F10,X"0001 ' 


3179 




BZ 


FT.006A 


3180 




BAL 


E14,CWR0DBY 


3181 


ET.006A 


BAL 


R14,CWBITE 


3182 




LA 


E5,T1.E00K 


3183 




LA 


R0,T1.40A 


3184 




STH 


R0,D' : 'YINT+2 


3185 




LR 


R0,R10 


3186 




AIS 


R0,15 


3187 




BAL 


R14,CG0 


3188 




BAL 


R15, TIMER 


3189 


T1E09 


STH 


RCERRSAVE 


3190 




BAL 


S15,L00P2 


3191 




LIS 


R0,3 


3192 




LE 


R1,R2 


3193 




LA 


S2,T1.E00D+23 


3194 




BAL 


R15,HEXASC 


3195 




LX 


RCERRSAVE 


3195 




LA 


E15,T1.E00D 


3197 




LA 


R14,SELySG 


3198 




B 


ERROEX 


3199 


T 1.40 A 


BAL 


P15,REST0RF 


3200 




BAL 


R15,SELCHK 


3201 




BAL 


R15,SEL£ND 


3202 




BAL 


R15,STATCKK 


3203 




NHI 


R3,X'20' 


3204 




BZ 


TEST1.4D 


3205 




BAL 


E15,REW]f? 


3206 


* 






3207 


TFST1.4D 


FQ!I 


* 


3208 




BAL 


R15,SELSETR 


3209 




EAL 


E14,REEU r 


3210 




BAL 


R15,EEKKT 


3211 




BAL 


P14,CREAB 


3212 




LA 


R5,T1.E00I 


3213 




LA 


R0,T1.4C0 


3214 




STH 


R0,DFVINT+2 


3215 




LHL 


R0,BYTE3+$VALH1 


3216 




AIS 


P0,15 


3217 




BAL 


R14,CG0PEAD 


3218 




BAL 


R1 5, TIMER 


3219 


T1R10 


STM 


R0,ERRSAVE 


3220 




BAL 


R15,LO0P2 


3221 




LIS 


HO, 3 


3222 




LR 


R1,R2 


3223 




LA 


R2,T1.E00E+23 


3224 




BAL 


R15,HEXASC 


3225 




LI 


RCERRSAVE 


3226 




LA 


E14,SELKSG 


3227 




LA 


R1f ,T1.E00F 



R01 
R01 



SSFT UP SELCH WRITE ADDRESSES 
OUTPUT DFNSI^Y CQWAND 
LOAD TIMER 

TRANSFER EVEN # BY^FS 
ISSUE "RI^F ODD BYTE COtfKANP 
PUT INTERFACE IN WRITE MODF 
SELCH WRITE TO THE TAPE 
ON INTERRUPT , GO HERE 

TIJ»VSL 

INCREASE SLIGHTLY 

GIVE SELCH T HE GO 
* 

SAVF REGISTERS 
OUTPUT MESSAGE 
3 DIGITS 
^FLCH ADDRESS 



CONVERT 

RESTORE REGISTERS 

TIKED OUT DURING SELCH *** WRITE 

SUSPECTED ERROR WITH SELCH 

RESTORE R1,R2 AND PS'-' 70F0 

CHECK SELCH ENDING STATUS 

CHECK SELCH ENDED OK 

CHECK INTERFACE STATUS 

EOT SET 

NO 

ELSE REWIND *AG TAPE 



SET UP SELCH 

SET UP SELCH READ ADDRESSES 

REWIND SAG "APE 

PUT INF IN READ *0DE 

SELCH READ FR01 TAP 1 ? 

ON INTERRUPT, GO HERE 

TIKVAL 

INCREASE SLIGHTLY R01 

GIVE SELCH THE GO 

WAIT FOR INTERRUPT R01 

SAVE REGISTERS 

OUTPUT MESSAGE? 

3 DIGITS 

SELCK ADDRESS 

CONVERT 

SUSPECTED ERROR wI^H SELCH 
TIFED OUT DURING SELCH *** READ 



M' , 'D31750 
fTD31?60 
'«'"D31770 
M-"D3178C 

wtti31790 
t m D31300 

*TD31810 
w"D31820 
"•"D^ISSO 
f^DSISao 
M^D318 C 50 
MTD31860 
•f"'D31870 
>C"D31S80 
MTD31890 
M m D31900 
^^D31 910 

M^D31930 
M m D31940 
^031950 
MfDSigeO 
M^D31970 
MTD31980 
ifTr)3i990 

■fTD32000 
^^032010 
MTD32020 
MTD32030 
w m D32040 
MTD32050 
MTD32060 
Y'"D32070 
MTD32080 
M' r D32090 
MTD32100 
f' ,, D32110 
f'"D32120 
*'"D32130 
"TD32140 
fT'D32150 
« T D321' : 
ktt)32170 
V-D321R0 
MTD32190 
mti)32?00 
"^032210 
^"'D32220 
«TT132230 
Y' T, D32240 
"i , D32250 
"*tt)32?*0 
•«"'D32270 
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002FB4 
002EBA 
002EC0 
002EC6 
002ECC 
002ED2 
-002ED6 
002FD8 



002EDE 
002EE2 
002EE4 
002EEA 
002EF0 
002EF2 
002EF4 
002EF6 
002EF8 
002EFC 
002EFE 
002F04 
002F0A 
002F10 
002F14 
002F18 
002F1C 
002F22 
002F28 
002F2C 
002F32 



002F36 
002F3C 
002F40 
002F44 
002FUA 
002F50 

*002F54 
002F56 

*002F5C 
002F5E 
002F62 
002F68 
002F6E 
002F72 
002F78 



4300 


4000 


82CC 


41F0 


4000 


7E08 


41F0 


4000 


7E78 


41F0 


4000 


7F02 


41F0 


4000 


8112 


C4 30 


0020 




2334 




—wzjllhl 


41F0 


4000 


80D2 


0000 


2EDE 




7350 


200C 




2430 






0383 


4000 


89D0 


3393 


4001 


89D0 


0589 






2135 




=002EFE 


2631 






0553 






4320 


2F28 




220C 




=002EF4 


4080 


4000 


84FC 


4090 


4000 


84FE 


4030 


4000 


8414 


E650 


33FC 




41F0 


2CC4 




E6F0 


35F6 




se^o 


4000 


8596 


4300 


4000 


82CC 


41F0 


32C0 




41F0 


4000 


80D2 


4300 


2DBE 





41F0 


4000 


838C 


0000 


32F2 




0000 


32F2 




41E0 


4000 


7C9E 


41E0 


4000 


7C9E 


4840 


2036 




2135 




=002F5E 


F.640 


4000 


8426 


2309 




=002F6E 


C870 


0020 




4040 


4000 


8424 


F640 


4000 


8424 


7300 


200C 




41F0 


4000 


7E10 


41F0 


4000 


7F38 



3228 




E 


ERROEX 


3229 


T1.4C0 


BAL 


B15, RESTORE 


3230 




BAL 


R15,SELCHK 


3231 




BAL 


R15,SELEND 


3232 




BAL 


R15,STATCHK 


3233 




NHI 


R3,X"20' 


3234 




3Z 


TEST' . 4E 


3235 




BAL 


R15,SEWMT 


3236 


* 






3237 


TEST1.4E EQU 


* 


3238 




LHL 


R5,BYTES+$VALU1 


3239 




LIS 


KS^'O' 


3240 


ET.D 


LB 


R8,WRTBUF(R3) 


3241 




LB 


R9,READBUF(R3) 


3242 




CLAR 


R8,R9 


3243 




BNES 


MISSED 


3244 




AIS 


R3,1 


3245 




CLR 


R5,R3 


3245 




BNP 


PAT. 1 


3247 




BS 


ET.D 


3248 


HISSED 


STH 


R8,WST0RE 


3249 




STH 


R9,RST0RF 


3250 




STH 


R3, INDEX 


3251 




LA 


R5,T1.E008 


3252 




BAL 


S14,T1ERP0RA 


3253 




LA 


R15,KESSG3A 


3254 




LA 


R14,C0NTMSG 


3255 




B 


ERRORX 


3256 


PAT.1 


BAL 


R15,PATCHK 


3257 




BAL 


R15,REWMT 


3258 




B 


TST1.4A 


3259 


****************************** 


3260 


* 






3261 


* COME HEBE FOR SELCH=1 , ONLINE^ 


3262 


* SELCH 


IS PRESENT, INTERFACE 


3263 


* SELCH 


TRANSFERS 


3264 


* 






3265 


****************************** 


3266 


TEST1.5 


BAL 


R15,L00PT0P 


3267 




DAC 


TST1.END 


3268 




DAC 


TST1.END 


3269 




BAL 


R14,CST0P 


3270 




EAL 


R14,CST0P 


3271 




LH 


P4,DATA+$VALU1 


3272 




BNZ 


TST1.5A 


3273 




LA 


R4,TFSTPAT 


3274 




B 


T.4 


3275 


TST1.5A 


LHI 


R7,32 


3276 




STH 


R4,DATAPAT 


3277 




LA 


R4,DATAPAT 


3278 


T.4 


LHL 


R0,BYTES+$VALU1 


3279 




BAL 


R15,PEST0RE1 


3280 


T1.005 


BAL 


R15,SELSETW 



ERROR 

RESTORE R1,R2, PSW 
CHECK SELCH STATUS 
CHECK ENDED OK 
CHECK INTERFACE ALSO 
IS 'EOT' SF.T 
CONTINUE IF NOT 
ELSE REWIND MAG TAPE 



LOAD RECORD SIZF 

ZERO OUT INDEX 

LOAD WRITE WORD 

LOAD READ WORD 

COMPARE WORDS 

NOT EQUAL IS AN ERROR 

DECREMENT COUNT 



AND DO ANOTHER COMPARE 
STORE WRITE WORD 
STORE READ WORD 
BYTE LOCATION 
SELCH TRANSFERS 

MT 

SUSPECTED ^RROR WITH CONTROLLER 

CHECK PATTERNS ALL USED 

REWIND MAG TAPE FIRST 

NEW PATTERN TO TESTED 
************************* 



=0,TRK0DE=1 

IS IN TEST MODE AND 



************************* 



STOP SELCH FIRST 

LOOK AT DATA PATTERN CHOSEN 

USER SPECIFIED 

LOAD TEST PATTERN ADDRESS 

START 

MAXIMUM BYTE OUTPUT 

GET AN ADDRESS IN R4 
LOOK AT BYTES OPTION 
ENABLE INT 
SET UP SELCH FOP WRITF 



MTD32280 
MTD32290 
'<T r >32300 
MTD32310 
MTD32320 
"TD32'30 
""iT) 3 2 34 
*!TD32350 
M'"D32360 
MTD32''''0 
MTn32380 
MTD32390 
MTD32400 
MTD32U10 
VTD32420 
MTD32430 
MTD32440 
MTD324S0 
■*TD324«?0 
MTD32470 
N" , D32480 
MTD32490 
MTD32500 
y , D32M0 
MTD32520 
M n, D32530 
M^D32 c ;40 
MTD32550 
MTD32560 
MTD325''0 
MTD32580 
M T D32590 
MTD32K00 
MTD32M0 
^032620 
MTD32630 
MTD32640 
MTD32550 
"•TD32660 
MTD32670 
MTD32680 
MTD32690 
1TD32700 
MTD32710 
MTD32720 
MTD32"730 
MTD32"'40 
MTD32750 
"TD32760 
WTD32"'70 
MTD32780 
M^D32790 
MTD32S00 
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002F7E 


41^0 


4000 


7BTA 


3281 


<?AL 


S1^,TMCLEAF 


CLEAR INTERFACE 




^•"032810 


002F84 


4 1E0 


4000 


7CF* 


3282 


BAL 


R1tt,WE3I?F 


SET UP SELCH WRITE ADDRFSSE: 


c 


*' T 'D32R20 


002F8A 


73A0 


200C 




328 3 


LHl 


&10,EYTFS+SVALU1 


LOAD TIMER COUNT 




" m ^^2830 


002F3E 


27 A 1 






3284 


SIS 


"10,1 


DECREMENT 3Y 1 FOP BYTES 




1^32840 


002F90 


088A 






3 28 5 


I". 


?*, 10 


LOAD INTO TEMP PEGISTES 




<fTT)32q50 


002F92 


41E0 


4000 


7C8C 


3286 


3AL 


R14,CTESTKDE 


PUT INTERFACE INTO TEST *0D 


r 


*?' T,r l32850 


002F98 


41F0 


4000 


7C80 


3 2-T 


HAL 


R14,CWPITF 


AND WRITE NODE 




MTD32870 


002F9E 


"650 


3526 




32Ee 


I A 


Rb, m 1.E00F 


SELCH WRITE TO INTERFACE 




"TD32880 


002FA2 


E600 


2FDE 




328? 


I.A 


F0,TR.3 


INTERRUPT ADDRESS 




M-"D32890 


002FA6 


4000 


21E8 




3290 


STH 


R0,DEVIN7+2 


INTO TABLE 




VTD32900 


2 F A A 


030A 






3291 


T 1-. 


RO , ? 1 


T I n V A L 




M^D 329 10 


002FAC 


260F 






3292 


AIS 


HO, 15 


INCREASE SLIGHTLY 


R01 


*' ,n D32920 


002FAE 


41F0 


4000 


7C86 


3293 


BAL 


S14,CG0 


GIVE SELCH THE GO 




1TD32930 


002FB4 


41F0 


162A 




3294 


RAL 


K1 t ', TIBER 






« n, D32940 


002FB8 


2438 






3255 


LIS 


F3,8 


LOAD GOOD STATUS 




fi'D329'50 


002FRA 


4030 


4000 


83C8 


3295 


STH 


P3,STATGD 


STORE IT 




NTD32960 


002FC0 


2403 






3297 


LIS 


E0,3 


DIGITS 




y^132970 


002F~2 


0812 






3293 


LR 


R1,R2 


SELCH ADDRESS 




KTD32980 


002FC4 


E620 


3453 




3299 


LA 


E2,T1.E009+23 


""IMED OUT DURING SELCH *** WRITE T"! 


f"D32990 


002FC8 


41F0 


1680 




3300 


BAL 


E15,HEXASC 


CONVERT 




I* 1 " 1)3*000 


002FCC 


E650 


343C 




3301 


LA 


E5,T1.E009 


TIHED OUT IN SELCH WRITE IN 


TESTWODE 


"i'D33010 


002FD0 


41E0 


AD74 


=005148 


3302 


BAL 


E14,T7ERR0RA 


DRIVE, SELCH, STATUS' 




MTD33020 


002FD4 


S5F0 


P8AA 


=006882 


3303 


LA 


E15,T7E?KSG1 






•TTD33030 


002FD8 


4300 


4000 


82CC 


3304 


3 


EREORX 






f' T 'D330U0 


002FDE 


41F0 


4000 


7E08 


3305 


TH.3 BAL 


R15, RESTORE 


RESTORE R1,R2,PSV 




MTD33050 


C02FE4 


41EC 


4000 


7C4C 


3306 


BAL 


R14,SEKSTA2 


LOAD SELCH STATUS 




VTD33060 


002FEA 


41E0 


4000 


7C9E 


3307 


BAL 


R14,CST0P 


INIT SELCH 




1i , D33070 


002FFO 


41E0 


4000 


7C9E 


3303 


BAL 


514,CST0P 


CLEAR IT TO 




*fD33080 










3309 


* LET'S READ 


3ACK AND TIMEOUT ON 


BUSY AGAIN 




^033090 


C02FF5 


41F0 


4000 


8040 


3310 


BAL 


P15,SELSETR 


SET UP SELCH FOR READ 




MTD33100 


002F 1? C 


41F0 


400O 


7D2A 


3311 


BAL 


R14,REBUF 


SET UP SELCH READ ADDRESSES 




>!^D33110 


003002 


41E0 


4000 


7C5A 


3312 


BAL 


R14,CREAD 


PUT INF. INTO READ "ODE 




>! m D33120 


0C3C08 


E550 


3544 




3313 


L8 


R5,T1.E00G 


SELCH READ FRO" INTERFACE 




M n, D33130 


003C0C 


E600 


3046 




3314 


LA 


R0,TR.4 


INTERRUPT ADDRESS 




KTn33140 


00301C 


4000 


21F5 




3315 


STH 


R0,DEVINT+2 






MTD33150 


003014 


7300 


200C 




3315 


LHL 


E0,EYTES+SVALU1 


LOAD COUNTER 




w T"D33160 


003018 


260F 






3317 


AIS 


SO, 15 


INCRFASE SOME 


R01 


HTD33170 


003C1A 


41F.0 


4000 


7C98 


3313 


BAL 


P14,CG0RFAP 


GIVE SELCH THE GO 




*TD33180 


003020 


41F0 


162P 




3319 


BAL 


R15,TIXE° 


WAIT FOR SELCH INTERRUPT 


R01 


f ""033190 


003C24 


41F0 


4000 


836E 


3320 


BAL 


R15,L00P2 


OUTPUT MESSAGE? 




^ m T)33200 


003C2A 


2403 






3321 


LIS 


R0,3 


DIGITS 




!f"D33210 


00302C 


0812 






3322 


LR 


P1,?2 


SELCH ADDRESS 




w , 'D33220 


00302S 


5620 


3481 




3323 


LA 


R2,T1.F00A+23 






"TD33230 


003C32 


41F0 


1680 




3324 


EAL 


R15,HEXASC 


CONVERT 




M^D33240 


C03C36 


F6 r 


345A 




3325 


LA 


R15,?1.EC0A 


TIKED OUT DURING SELCH R"' r 




NTD33250 


003C3A 


S6F0 


4000 


8596 


3325 


LA 


R14,C0NT"SG 


SUSPECTED ERROR WITH CON^rCI 


.LEP 


1 «' T, D33260 


003C40 


4300 


4000 


82CC 


3327 


B 


ERROPX 


ERROR ROUTINE 




>!TD33270 


003046 


41F0 


4000 


7E08 


3323 


TE.4 BAL 


R15, RESTORE 


RESTORE R1,R2,?SW 




YTD33280 


00304C 


41 FO 


4000 


7CUC 


3329 


FAL 


R14,SENSTA2 


LOAD STATUS 




"TD33290 


003052 


4 ISO 


4000 


7C9F 


333j 


BAL 


B14,CSTC? 


INIT SELCH 




YTD33300 


003053 


4 1F0 


4300 


7C9F 


3331 


BAL 


P.14,CSTC? 


CLEAR IT TOO 




M^D33310 


0^305 E 


41FC 


4000 


7F02 


3'32 
3333 


EAL 
* LET'S CHECK 


R15,SELE>iD 
DATA FOR VALIDITY 


CHECK SELCH ENDING ADDPE" 




?TD33320 
1TD33330 
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003064 


2430 






003066 


D363 


4000 


89D0 


00306C 


D4S3 


4001 


89D0 


*003072 


2138 




=003082 


003074 


2531 






003076 


0538 






003078 


203S 




= 003 06 6 


00307A 


m?o 


32C0 




00307E 


4300 


2F6E 




003082 


4060 


4000 


84FC 


003083 


4030 


4000 


8414 


00308E 


E550 


341A 




003092 


D383 


4001 


89D0 


003098 


4300 


31CE 





00309C 

*0030A0 
0030A2 

*0030A8 
0030AA 
0030AE 
0030B4 
0030BA 
0030C0 
0030C4 
0030C8 
0030CE 
0030D4 
003ODA 
0030EO 
0030E4 
0030E8 
0030EA 

*0030EE 
003OF0 
0030F6 
0030F8 
0030FA 
0030FC 
003102 
003108 

*00310C 
00310E 
003114 
003118 
00311C 



4840 


2036 




2135 




=0030AA 


E640 


4000 


8426 


2309 




=0030EA 


C870 


0020 




4040 


4000 


8424 


E640 


4000 


8424 


41F0 


4000 


838C 


0000 


32F2 




0000 


32F2 




41F0 


4000 


80D2 


41E0 


4000 


7B9A 


41E0 


4000 


7BD2 


41E0 


.4000 


7C80 


4834 


0000 




7360 


200C 




2761 






C360 


0001 




2134 




=0030F6 


41E0 


4000 


7CF8 


9813 






2762 






2282 




=0030F6 


41E0 


4000 


7BE4 


41F0 


4000 


8112 


C330 


0020 




2334 




=003114 


41F0 


4000 


80D2 


C330 


0014 




4230 


313E 




F650 


3498 





3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 

3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3363 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 



LIS R3,0 

T.3 LB R6,VRTBUF(R3) 

CLB R6,READBUF(R3) 

BNE T.2 

AIS R3,X'1' 

CLR R3,R8 

ENFS T.3 

BAL S15,PATCHK 

B T. 4 

* DATA ERRORS ! ! 

T.2 STH R6,WST0RE 

STH 53, INDEX 

LA R5,T1.E008A 

LB R8,READBUF(R3) 

P T1R003 



ZERO OUT TEST INDEX PEG 

LOAD WRITE DATA 

COMPARE WITH READ DA^A 

ERROR IF NOT EQUAL 

INCREMENT POINTER 

COHP'RE COUNT WITH END COUNT 

CONTINUE IF COUNT NOT THRU 

CHECK PATTERN USAGE 

AND IF NOT DONE RETURN TO TEST 

STORE WRITE WORD 

BYTE LOCATION 

SELCH TRANSFERS TO INTERFACE 

LOAD READ WORD 



******************************************************* 



* COME 

* READ 

* 
****** 

TEST1. 



HERE IF TRHODE=0 OR SELCH=0 * 

-WRITE TRANSFERS AND NO SELCH * 

* 

************************************************* 



LH 
BNZ 
LA 
B 

TEST1.60 LHI 
STH 
LA 

TEST1.6A BAL 
DAC 
DAC 
BAL 
BAL 
BAL 
BAL 
LH 
LHL 
SIS 
THI 
BNZ 
BAL 
WHR 
SIS 
BNLS 
BAL 
BAL 
THI 
BZ 
BAL 
THI 
ENZ 
H 



T1.006A 



L.5A 



R4,DATA+$VALU1 

TEST1.60 

R4,TESTPAT 

TEST1.6A 

R7,32 

R4,DATAPAT 

R4,DATAPAT 

R15,L00PT0P 

TST1.END 

TST1.END 

R15,REWMT 

R14,CCLEAR 

R14,CDENS 

B14,CWRITE 

R3,0(R4) 

R6,BYTES+SVALU1 

R6,1 

R6,X*000V 

T1.006A 

R14,CWR0DBY 

R1,P3 

R6,2 

T1.006A 

R14,SENSTA1 

R15,STATCHK 

PSrX^O" 

L.5A 

R15,REWMT 

R3,X'14' 

T.6 

R5,T1.E00B 



LOOK AT DATA CHOSEN 
USER SPECIFIFD 
LOAD TESTPAT LOC 

BYTE OUTPUT 

STORE DATA 

GET AN ADDRESS IN R4 



REWIND TAPE 

CLEAR INTERFACE 

OUTPUT DENSITY COMMAND 

PUT INTERFACE IN WRITE MODE 

LOAD DATA PATTERN 

LIMIT RECORD TO 256 BYTES 

IS BYTE ALLOCATION ODD? 

NO 

ISSUE ODD BYTE COMMAND 

WRITE DATA TO INTERFACE 

SUBTRACT COUNT 

KEEP WRITING IF NOT ZERO 

CHECK ENDING STATUS 

IS THIS AN ERROR STATUS? 

IS TAPE AT END 

CONTINUE IF NOT 

ELSE REWIND MAG T APE 

WAS IT EXPECTED? 

YES BRANCH TO READ 

READ WRITE TRANSFERS. . (WRITE) 



R01 
R01 
R01 
R01 
P01 
R01 



MTD33340 
MTD333S0 

m , "D33360 

MTD33370 
M"'D33380 
MTD33390 
YTri33400 
fTD33410 
•'T , D33420 
"^033430 
•("'033440 
KTD33450 
MTD33460 
MTD33470 
MTD33480 

1^033500 
MTD33510 
MTD33520 
M^D33 I: ;30 
M^D33 C 540 
YTD33550 
MTD33560 
M""D33570 
M"'D33580 
HT033590 
M' P D33*00 

M'"D33620 
M^D33630 
*""D33640 
M^DSS^O 
* n 'D33660 
M' T 'D33670 
1^D33680 
"^D33690 
fT>33700 
11-1)33710 
w'D33720 
w^D33730 
MT-Q33740 
MTD33750 
Y' 7 'D33760 
1"'D33770 
M'D33780 
Y' T 'D33790 
MTD33800 
MTD33810 
"TD33820 
1(^033830 
W"'D33840 
MTD33850 
Yi , D33860 
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003120 
00312" 
00312A 
0C312E 
003132 
003138 

00313E 
003144 
0031UA 
003150 
00315" 
003156 
00 3 15C 
003162 
003168 
00316A 

*00316C 
00316E 
003 174 

*003178 
00317A 
00317F 
003184 
003188 

00318C 
00318E 
003190 
003196 
00319C 

*00319E 
0031A0 
0031A2 
0031A6 
0031AA 
0031AC 

*0031AE 
0031B0 
0031B4 

0031B& 
0031BE 
0031C2 
0031C8 
0031CE 
0031D4 
003108 
0031DC 
0031E2 



C80C 0034 

4000 4000 83C8 

41E0 28 AE 

E6F0 2A4C 

E6E0 4000 8596 

4300 4000 82CC 



41E0 


4000 


7C92 


41F0 


4000 


8064 


41 SO 


4000 


7BF.U 


7380 


200C 




2460 






4 1E0 


4000 


7C5A 


41 TO 


4000 


7C22 


0916 


4001 


89DC 


2662 






0585 






2028 




=00315C 


41 SO 


4000 


7BF4 


C330 


001C 




213A 




=00318C 


C830 


001C 




4030 


4000 


83C8 


E650 


34AC 




4300 


312A 




2460 






2420 






D334 


4200 


0000 


0356 


4001 


89D0 


0553 






213D 




=0031B8 


2661 






C720 


0001 




7380 


200C 




2781 






0536 






202F 




=003190 


41F0 


32C0 




4300 


30BA 





4060 4000 8414 
E650 34C0 
4030 4000 P4FC 
4050 iiOOO S4FE 
4080 4000 84FE 
41E0 2CC4 
E6F0 35FS 
E6"0 4000 8596 
4300 4000 82CC 



3337 




LHI 


?0,X , 34' 


3388 




STH 


R0,STATGD 


3389 


T1R0A 


BAL 


R14,T0ERF,ORB 


3390 




LA 


R15,*»ESSAGE1 


3391 




LA 


SlUjCCNTSSG 


3 392 




E 


EEF3RX 


3393 


* 






3394 


T.6 


BAL 


» 14, CREW 


3395 




BAL 


515,PKTN0UT 


3395 




BAL 


R14,SENSTA1 


3397 




LHL 


K3,3YTES+$VALU1 


3393 




LIS 


56,0 


3399 




BAL 


P14,CREAP 


3 400 


LP. 3 


BAL 


S14,SESSTA3 


3401 




P. 'J 


R1,R£ADBUF(R6) 


3402 




AIS 


R6,2 


3403 




CLE 


R3,F6 


3404 




BP 


LP. 3 


3405 




BAL 


R14,SFNSTA1 


3405 




THI 


R3 / X , 1C , 


3407 




BNZ 


TEST1.6C 


3403 




LHI 


aSfXMC" 


3409 




STH 


R3,STATGD 


3410 




LA 


35,""I.E00C 


3411 




B 


T1R0A 


3412 


* 






3413 


TEST1.5C 


LIS 


R5,0 


341U 




LIS 


R2,0 


3415 


T.7A 


LB 


R3,0(R4,E2) 


3415 




L3 


R5,SEADBUF(R5) 


3417 




CLR 


R5,?3 


3418 




BNE 


T1R0? 


3419 




AIS 


?5,1 


3420 




XHI 


R2,1 


3421 




LHL 


F8,3YTFS+$VALU1 


3422 




SIS 


58,1 


3423 




CLR 


R3, c 6 


3424 




BP 


T.7A 


3425 




PAL 


R15,PATCHK 


3426 




d 


TEST1.6A 


3427 


* 






3423 


T1E0B 


STH 


R6, INDEX 


3429 




LA 


R5,T1.E00C1 


3430 




STH 


?.3,WSTCRE 


3-31 




STH 


R5,?ST0RF 


3432 


T1P.003 


STH 


F:3,BST0RF 


3^33 




BAL 


R14,T1ERF0RA 


3434 




LA 


E15,?-'ESSG3A 


3435 




LA 


R14 / "0ST»SG 


3436 




n 


"R'ORX 


3U37 


* 






3438 


* THIS 3 1 


ODULE 


DOES WRITE/READS 


3439 


* ONLINE : 


= AND 


TS"OEE=0 IF HER 



EXPECTED STATUS 
DRIVE, STAT"S* 
SUSPECTED ERROR 



WITH CONTROLLER 



REWIND WAG TAPE 

TIME OUT ON REWIND CD? 

CHECK STATUS FOR N^N 

LOAD BYTE COUNT 

ZEPO OUT INDEX REGISTER 

PUT INTERFACE INTO READ tfODE 

CHECK STATUS FOP NCN BUSY 

LOAD BUFFER FROM TAP^ 

SUBTRACT A BYTE 

SEE IF COMPLETED READ 

CONTINUE UNTIL BUFFER IS FULL 

CHECK ENDING STATUS 

EXPECTED? P01 

YES! NEXT TEST P01 

LOAD GOOD STATUS 

STORE IT 

READ KBITE TRANSFERS .. (READ ) 



ZEFC INDEX REGIS m FR 

INDEX REGISTER TO ZERO 

LOAD A 3YTE FROM EXPCTD PATTERN 

LOAD PEAD DATA 

COMPARF THE' READ AND 

BRANCH ON NOT EQUAL 

OTHERWISE DECREMENT 

0*1=1 AND 1*1=0 



THE WPITF 
LIMIT 



BRANCH ON LESS THAN 'V^ 
DONE ALL PATTERNS? 
TPY ANOTHER PATTERN 

BYTE LOCATION 

READ WRITE TRANSFERS 

STORE WRITE WORD 



AND STORE 
DRIVE, DA" 



IT 
A 



ALSO 



SUSPECTED ERROR "rfIT u CONTROLLER 



IS THE TFST^ODE 



"■"D33870 
"^DSSBeO 
f^DSSSQO 
W"D33900 
1T033910 
"*^D33<320 
*^D33930 
f"'D33940 
«f T, D339 c 
"■"D33960 
M^D33970 
* m D33980 
*f'D33990 
w^D34000 
w'034010 
^ m D3U020 
* T D34030 
wtt)3(,o40 
* m D34050 
"'"D34060 

¥?D3«K>'»0 

HTD34080 
*™D34090 
"■^034100 
WTD34110 
"•"034120 
""•D34130 

rD3mno 

"•"D34150 
1 m D34150 
NTD34170 
M^D34180 
"^034190 
^■"034200 
•TD34210 
y' T "D34220 
, f , D34230 
M^D34240 
"■"034250 
"'"D34260 
«f ""034770 
"^D34280 
« T D34290 
^""034300 
?! T D34310 
"•"D34320 
"""034330 
"•"034340 
>f ""034350 
wn, 034360 
M^D343' 7 
? ""034380 
«"'D34390 
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3440 


* 








0031E8 


41F0 


4000 


838C 


3441 


T1 


.6000 


3AL 


R15,L00PT0P 


0031F0 


0000 


32F2 




3442 






DAC 


TST1.ENB 


0031F4 


0000 


32F2 




3443 






DAC 


TST1.END 


0031F8 


4 8 40 


2036 




3444 






IH 


R4,DATA+SVALU1 


*0031FC 


2135 




=003206 


3445 






BNZ 


T1.601 


0031FE 


^540 


4000 


8426 


3446 






LA 


R4.-TESTPAT 


*003204 


2309 




=003216 


3447 






B 


T1.601A 


003206 


CB70 


0020 




3448 


T1 


.601 


LHI 


R7,32 


00320A 


4040 


4000 


8424 


3449 






STH 


R4,DATAPAT 


003210 


^640 


4000 


8424 


3450 






LA 


R4,DATAPAT 


003216 


7350 


200C 




3451 


T1 


.601ft 


LHL 


R5,BYTES+$VALU1 


00321A 


2751 






3452 






SIS 


55,1 


00321C 


08A5 






3453 


T1 


.600 


LR 


R10,R5 


00321E 


41EO 


4000 


7BCA 


3454 






BAL 


R14,TSCLEAR 


003224 


41F0 


4000 


7C8C 


3455 






BftL 


R14,CTESTHDE 


00322A 


41E0 


4000 


7C80 


3456 






BAL 


R14,CHRITE 


003230 


D814 


0000 




3457 


T1 


.602 


KH 


R1,0(R4) 


003234 


27A2 






3458 






SIS 


R10,2 


*003236 


2283 




=003230 


3459 






BNL 


T1.602 


003238 


08A5 






3460 
3461 


* 




LR 


R10,R5 


00323ft 


E690 


4001 


89D0 


3462 






LA 


R9, READBUF 


003240 


5090 


4000 


84DC 


3453 






STA 


R9,RDBUF 


003246 


0A95 






3464 






AAE 


R9,R5 


003248 


5090 


4000 


84D8 


3465 






STA 


R9,ENDBUF 


00324E 


41F0 


4000 


7E18 


3466 






BftL 


R15,CLRBUF 


003254 


41E0 


4000 


7C5A 


3467 






BAL 


R14,CREAD 


00325ft 


E690 


4001 


89D0 


3468 






LA 


R9,READBUF 


003260 


41 SO 


4000 


7C22 


3469 


T1. 


.604 


BAL 


R14,SENSTA3 


003266 


D919 


0000 




3470 






RH 


R1,0(R9) 


00326ft 


2692 






3471 






ftIS 


R9,2 


00326C 


27A2 






3472 






SIS 


R10,2 


0C326E 


2287 




=003260 


3473 






BNLS 


T1.604 


003270 


2420 






3474 






LIS 


R2,0 


003272 


2470 






3475 






LIS 


R7,0 


0C3274 


D364 


4200 


0000 


3476 


T1. 


.COMP 


LB 


R6,0(R4,R2) 


00327A 


D387 


4001 


89D0 


3477 






LB 


R8,READBUF(R7) 


003280 


0568 






3478 






CLR 


R6,R8 


*003282 


213ft 




=003296 


3479 






BNE 


T1.ERR 


003284 


2671 






3480 






AIS 


R7,1 


003286 


C720 


0001 




3481 






XHI 


R2,1 


00328A 


" 0557 






3482 






CLR 


R5,R7 


*00328C 


208C 




=003274 


3483 






BL 


T1.C0MP 


00328E 


41F0 


32C0 




3484 






BAL 


R15,PATCHK 


003292 


4300 


321C 




3455 






B 


T1.600 


003296 


4060 


4000 


84FC 


3486 


T1, 


.ERR 


STH 


R6,WST0RE 


00329C 


4080 


4000 


84FE 


3487 






STH 


R8,RST0RE 


0032A2 


4070 


4000 


8414 


3488 






STH 


R7, INDEX 


0032A8 


E650 


3598 




3489 






Lft 


R5,T1.E00J 


0032AC 


41E0 


2CC4 




3490 






BAL 


R14,T1ERR0RA 


0032B0 


E6?o 


35F6 




3491 






LA 


R15,MESSG3A 


0032B4 


E6E0 


4000 


8596 


3492 






LA 


R14,C0NTMSG 



LOOK AT DATA OPTION 

USER SPECIFIED DATA PATTERN 

ADDRESS OF DATA PATTERN 



SAVE DATA PATTERN 
RELOAD FROM DATAPAT 
GET BYTES AMOUNT 
ADJUST FOR ADDRESSING 
PUT INTO ANOTHER REGISTER 

ISSUE COMMAND 
WRITE COMMAND 
WRITE DATA TO TAPE 
DECREMENT BYTE COUNT 
CONTINUE 
RESTORE R10 

READBUF ADDR 

SAVE IT 

ADD IN BYTES ANT 

ADDRESS SET UP 

CLEAR READBUF 

ISSUE READ COMMAND 

READBUF ADDS 

CHECK STATUS FOR HON BUSY 

READ INTO READ BUFFER 

INCREMENT ADDRESS 

DECREMENT BYTE COUNT 

CONTINUE TIL COHPLETE 

ZERO OUT TOGGLE INDEX REGISTER 

CLEAR INDEX REGISTER 

DATA EXPECTED 

DATft READ 

COMPARE FOR EQUALITY 

INCREMENT INDEX REGISTER 
REVERSE R2 
COMPARE TO BYTES 
CONTINUE UNTIL FINISHED 
CHECK FOP OTHER PATTERNS 

STORE WRITE WORD 

AND STORF If 

BYTE LOCATION 

VPITE-READ TO THE INTERFACE 

DR, DATA WE £ DATft T> 

SUSPECTED ERROR WITH CONTROLLER 



M"'D34400 
fTD34U10 
MTD34420 
MTD34430 
«fTD34440 
»TD344^0 

tfTT)34U*0 
MTD34470 
MTD34480 

MTD34490 
fT'D34500 
MTD34510 
MTD34520 
r r D34530 
M' n D3U540 
XTD345^0 
M^D34560 
MTD34570 
M' T 'D34580 

MTD34600 
MTD34610 
M"'D34';20 
MTD34fi30 
MTD34640 
MTD34650 
MT034660 
Mi'D34670 
M ,p D34580 
MTD34690 
MTD34700 
Ml'D34710 
^^034720 
yn. D 3U730 
<fTD34740 
M'"D34750 
YTD34760 
Mi"D34770 
*TD34780 
MTD34790 
M^D34800 
WTD34810 
MTD34820 
<«^ri3UP30 

M , "D34840 
MTD34850 
MTD34S60 
MTD34870 
tf'D34R80 
w , D34890 
"TD34900 
^034910 
WTD3U920 
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TEST 1 

C032BA 

0032C0 
"0032C4 
0032C6 
0032CC 
0032CE 
0032D4 
0032D6 
0032D8 
0032DE 
0032S2 
0032E8 
0032EA 
0032F0 



0032F2 
0032F6 
0032FC 
003300 
003304 
00330A 

00330E 
C03316 
00331E 
003326 
00332A 
003332 
00333A 
00333C 
003344 
00334C 
003354 
003358 
003350 
003368 
00336A 
003372 
00337A 
003382 
00338A 
003392 
00339A 
00339C 
00 3 3A4 
0033AC 
0033B4 
00333C 
0033C4 
0033CA 
0033CC 



4300 4000 82CC 
0000 32C0 



4 8E0 


2036 






213A 




=0032D8 


S630 


4000 


8446 




0543 








4330 


4000 


834F 




2642 








03CF 








40F0 


4000 


84D0 




41 F 


1A8C 






48F0 


4000 


84D0 




2771 








4330 


4000 


&34F 




030F 








41F0 


2836 






4800 


4000 


840A 




C300 


OOOE 






4330 


133C 






41F0 


4000 


7D58 




4300 


2AE0 






5445 


5354 


4D4F 


4445 


2057 


5249 


5445 


2054 


4^20 


4348 


4543 


4B20 


4649 


464F 






2043 


4F4E 


5452 


4F4C 


204F 


4E20 


4249 


5453 


ODOA 








5445 


5354 


4D4F 


4445 


2052 


4541 


4420 


544F 


2043 


4845 


434B 


2046 


4946 


4F20 






434F 


4E54 


524F 


4C20 


4F4E 


2042 


4954 


5320 


ODOA 








4348 


4543 


4B20 


4F46 


2046 


4946 


4F20 


4255 


5359 


204F 


4E20 


5349 


4D50 


4C45 


2048 


414C 


4657 


4F52 


4420 


4F50 


4552 


4154 


494F 


4E20 


ODOA 








4255 


5359 


2052 


4553 


4554 


2044 


5552 


494E 


4720 


5449 


4D45 


4F55 


5420 


4146 


5445 


5220 


5445 


5354 


4D4F 


4445 


2057 


5249 


5445 




ODOA 








4255 


5359 


2052 


4553 



3493 




B 


FRRORX 


3494 


PATCHK 


EQU 


* 


3495 




LH 


R14,DATA+SVAL*J1 


3496 




BN'Z 


PATCHK.1 


3497 




LA 


53,TFSTPA?+32 


3498 




CLAR 


F4,R3 


3499 




BE 


PASS 


3500 




A IS 


R4,X'2' 


3501 




BR 


R15 


3502 


PATCHK.1 


STH 


R15,SAVR15 


3503 




SAL 


R15,TSTBBK 


3504 




LH 


R15,SAVR15 


3505 




SIS 


R7,1 


3506 




BZ 


PASS 


3507 




BR 


R15 



3509 TST1.END BAL R15,TST.DRIV 



3510 
3511 
3512 
3513 

3514 



3517 



3519 



3523 



LH R0,DRIVSAV1 

THI R0,X'E' 

3Z TSTESD 

BAL R15,IT.B1 

B TEST1.1 



LOOK AT DATA OPTION 

LOAD ADDR. OF TEST PAT. END 

HAVE WE FINISHED? 

YES! END TEST 

INCREMENT PATTERN 

BRANCH BACK TO T^ST 

SAVE R15 • 

TEST FOR BREAK TERMINATION 

RESTORE R15 

DECREMENT COUNTER 

CONTINUE ON IF DONE 

ELSE, RETURN 



CHECK FOR OTHER DRIVES 

LOK AT FLAG INDICATION 

IS IT SET? 

NO, END TEST 

INIT TEST FOR NEXT DRIVE 

EEGIN TEST 1 



3516 T1.E000 DC C'TESTHODE WRITE TO CHECK FIFO' 



DC C CONTROL ON BITS ' ,X ' ODOA ' 



3513 T1.E001 DC C'TESTHODE READ TO CHECK FIFO' 



DC C'CONTROL ON BITS ' ,X' ODOA ' 



3520 T1.E002 DC C'CHECK OF FIFO BUSY ON SIMPLE HALFWORD OPERATION" 



3521 DCX ODOA 

3522 T1.E003 DC C'BUSY RESET DURING TIMEOUT AFTER • 



DC C'TESTHODE WRITE" /X ' ODOA ' 



3524 T1.E304 DC C'BUSY RESET DURING TIMEOUT AFTER ' 



»" , D34930 
mt- 7134940 
WTT34950 
H^D34960 
KT134970 
*' T 'D34980 
M" , D34990 
I'DSSOOO 
V TT)35010 
MTD35020 
»rn35030 

WTD35050 
M^D35060 
f^D35070 



"Tr^SO^O 
w^D35100 
M,,, D35110 
MTD35120 
T , D35130 
"'''D35140 

H 7 '') 35 1*0 



>(Tn35i70 



fTD35180 



MTD35190 



MTD35200 



w T D35210 
«rD35220 



^^035230 



T 5TD3524T 
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0033D4 


4554 


2044 


5552 


494E 


0033DC 


4720 


5449 


4D45 


4F55 


0033E4 


5420 


4146 


5445 


5220 


0033EC 


5445 


5354 


204D 


4F44 


0033F4 


4520 


5245 


U144 




0033FA 


ODOA 








0033FC 


5345 


4C4 3 


4e20 


5452 


003404 


4145 


5346 


4552 


5320 


00340C 


544F 


2054 


4845 


2054 


003414 


4150 


4520 






003418 


ODOA 








00341A 


5345 


4C43 


4820 


5452 


003422 


414E 


4645 


5253 


2054 


00342A 


4F20 


5448 


4520 


494E 


003432 


5445 


5246 


4143 


4520 


00343A 


ODOA 








00343C 


5449 


4D45 


4420 


4F55 


003444 


5420 


4455 


5249 


4E47 


00344C 


2053 


454C 


4348 


202A 


003454 


2A2A 


2057 


5249 


5445 


00345C 


2049 


4E20 


5445 


5354 


003464 


4D4F 


4445 






003468 


ODOA 








00346A 


5449 


4D45 


4420 


4F55 


003472 


5420 


4455 


5249 


4E47 


00347A 


2053 


454C 


4348 


202A 


003482 


2A2A 


2052 


4541 


4420 


00348A 


494E 


2054 


4553 


544D 


003492 


4F44 


4520 






003496 


ODOA 








003498 


5752 


4954 


4520 


544F 


0034A0 


2054 


4845 


2054 


4150 


0034A8 


4520 








0034AA 


ODOA 








0034AC 


5245 


4144 


2046 


524F 


0034B4 


4D20 


5448 


4520 


5441 


0034BC 


5045 








0034BE 


ODOA 








0034CO 


5752 


4954 


452F 


5245 


0034C8 


4144 


2054 


5241 


4F53 


0034D0 


4545 


5253 


2054 


4F20 


0034D8 


5448 


4520 


5441 


5045 


0034E0 


ODOA 








0034E2 


5449 


4D45 


4420 


4F55 


0034EA 


5420 


4455 


5249 


4E47 


0034F2 


2053 


454C 


4348 


202A 


0034FA 


2A2A 


2057 


5249 


5445 


003502 


ODOA 








003504 


5449 


4D45 


4420 


4F55 


00350C 


5420 


4455 


5249 


4F47 


003514 


2053 


454C 


4348 


202A 


00351C 


2A2A 


2052 


4541 


4420 


003524 


ODOA 









3525 



-> ~J £, J J. I « 



DC C'TEST KODE READ ' ,X ■ ODOA ' 



u ii.n.n inA.nSFisn'S Tu nit iurs ■ / X utiiij ■ 



3527 T1.E008A DC C'SELCH TRANFERS TO THE INTERFACE' ,X 'ODOA ■ 



H?D3*?50 



*' T, D35260 



VTD35270 



3528 T1.E009 DC C'TIHED OUT DURING SELCH *** WRITE IN TEST*ODE ' , X' ODOA • MTD35280 



3529 T1.E00A DC C'TIKED OUT DURING SELCH *** READ IN TESTMODF* ,X 'ODOA' 



M'"D35?90 



3530 T1.E00B DC C" WRITE TO THE TAPE* rX'ODOA* 



3531 T1.E00C DC C'READ FROH THE TAPE* ,X" ODOA • 



3532 T1.E00C1 DC C'WEITE/READ TRANSFERS TO THE TAPE* , X" ODOA ' 



3533 T1.E00D DC C'TIWED OUT DURING SELCH *** WRITE" ,▼■ ODOA ' 



3534 T1.E00E DC C'TI*ED OUT DURING SELCH *** READ" ,J ' ODC A ' 



f"D35300 



"» T D35310 



M' ! 'D35320 



WTD35330 



*T>35340 
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t^st 1 










003526 


5345 


4C43 


4820 


5752 


00352? 


4954 


4520 


544F 


2054 


003535 


4345 


2049 


4E54 


4552 


00353E 


4641 


4345 






003542 


ODOA 








003544 


5345 


4C43 


4820 


5245 


00354C 


4144 


2046 


524F 


4D20 


003554 


5448 


4520 


494F 


5445 


00355C 


5246 


4143 


4520 




003562 


ODOA 








003564 


5345 


4C4 3 


4820 


5752 


00356C 


4954 


4520 


544F 


2054 


003574 


4845 


2054 


4150 


4520 


00357C 


ODOA 








00357E 


5345 


4C43 


4820 


5245 


003586 


4144 


2046 


524F 


4P20 


0035BE 


5448 


4520 


5441 


5045 


003596 


ODOA 








003598 


5752 


4954 


452F 


5245 


0035A0 


4144 


2054 


4F20 


5448 


0035A8 


4520 


494E 


5445 


5246 


0035B0 


4143 


4 520 






0035B4 


ODOA 








0035B6 


494E 


434F 


5252 


4543 


0035BE 


5420 


4441 


5441 


2043 


0035C6 


4F4D 


5041 


5245 




0035CC 


ODOA 








0035C5 


4348 


4543 


4B20 


4F46 


0035D6 


2046 


4946 


4F20 


4255 


0035DF 


5359 


204C 


4F47 


4943 


0035E6 


ODOA 








0035S8 


4C45 


4E47 


5448 


3D2A 


0035F0 


2A2A 


2A20 






0035F4 


8D0A 








0035F6 


4452 


4956 


4520 


2A2A 


0035FE 


2A20 








003600 


8D0A 








003602 


5354 


4154 


5553 


3D2A 


00360A 


2A20 








00360C 


8D0A 








00360 s : 


4259 


5445 


202A 


2A2A 


003616 


2A2A 


2A20 






00361A 


3D0A 








00361C 


4441 


5441 


2057 


5249 


00 3*24 


5454 


454E 


?D2A 


2A2A 


0C362C 


2 A 20 








00362E 


3D0A 








003630 


4441 


5441 


2052 


4541 


003636 


4420 


2020 


3^2?. 


3A2A 


003640 


2A20 








003642 


ODOA 









3 = 35 T1.E00F DC C'SELCH tfRITE TO THE INTERFACE' ,X' ODOA • 



3536 T1.SO0G DC C'SELCH READ FRO!' THE INTERFACE ' ,X 'ODOR ' 



3537 T1.E00H DC C'SELCH WRITE TO THE TAP?' , X ' ODOA ' 



3538 T1.E00I DC C'SELCH READ FRO* THE TAPE ', X' ODOA ' 



3539 T1.E00J DC C WRITE/BEAD TO THE INTERFACE' , X' ODOA ' 



3540 T1ERXSG1 DC 



3541 T1ERBSG2 DC 



CINCORRECT DATA COMPARE ' ,X ' ODOA ' 



C'CFECK OF FIFO B'JSY LOGIC ' ,X ' ODOA ' 



3542 KESS3.0 DC C ' LENGTH=**** ' ,X ' 8D0A ' 



3543 MESSG3A DC C'PPIVE ***',X'8P0A' 



3544 MESSG3B DC C ST»TOS = **' ,X ' 8D0A ' R01 



3545 XESSG3C DC C'BYTF ******', X ' 8D0\ ' 



3546 ^FSSAGE4 DC C'DATA SRITTEN=**** ' ,X ' 8P0? ' 



354^ MESSAGES DC C'DATA READ =****', X * ODOA * 



■m* 35 350 



wn, D35360 



M"'D35370 



1' p D35330 



* T D35390 



MI'TJ^CtJOO 



WTD3541C 



«^T>3^420 



^935430 



YT'D35440 



WTD35450 



v' T 'D354*;0 



MT-D3S470 
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3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3552 
3563 
3564 
3555 
3566 
3557 
3558 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
357S 
3579 
3580 
3581 
3582 
3583 
3584 
3535 
3S3S 



******************************************************* 

* TEST 2 DEVICE STATUS HALFWOFDS * 

* * 

* PURPOSE: THIS TEST WILL CHECK OUT THE FORMATTER * 

* STATUS BYTES AND THE BUS STATUS BITS OF * 

* THE DEVICE STATUS HALFWORD. * 

* * 

* ASUHPTIONS: THIS TEST ASSUMES THAT THERE IS AN * 

* INTERFACE AND FORMATTER CONNECTED TO * 

* THE SYSTEM. * 

* * 

* DESIGN SPEC: THIS TEST WILL CHECK OUT THE STATUS * 

* BYTESC9 BITS) OF THE ASSOCIATED FOR- * 

* BATTER PLUS THE 7 EXTRA STATUS BITS * 

* PASSED THRU THE INTERFACE TO FORK THE * 

* DEVICE STATUS HALFHORDS OF THE HAG TAPE * 

* DRIVE SYSTEK. * 



DEVICE STATUS HALFHORDS 
DEVICE STATUS BYTE 
0123456789 



BUS STATUS 

10 11 12 13 14 15 



* ERROBS: * 

* APPROPRIATE ERROR INFO ABOUT WHICH INCORRECT * 

* BIT IS SET IN DSB * 

* * 

* DRIVE *** * 

* DEVICE STATUS HALF»ORD=**** * 

* * 

* OPTIONS; * 

* DRIVE - DEVICE ADDRESSCESX * 

* ONLINE - FCU CONNECTED AND ONLINE X.'OI r =ONLINE * 

* * 
******************************************************* 



«TT)35490 
FTD35500 
MTD35S10 
*TD35520 
^03^530 
YTT>35540 
f T, D35550 
«fTD355«0 
YTD35570 

"!?D35580 

s^osssgo 

MTD35^00 
KTD35610 
•T T "D35620 
1TD3^630 
fTD35S40 
yTD35650 
TH>35660 
, i' T 'D35670 
H^D35680 
HTD35690 

HTt^-TOO 
^■035710 
*""D35720 
H^D 35730 
HTi>357no 
^035750 
TTD35760 
tr"D35770 
?f!*D35780 
VD35790 
K-D35800 
wtt>35810 
Htj>35820 
TTD3S830 
fT035840 
lf T D35850 
WTD35360 



Q03644 
0036 4 A 



41F0 4000 7D4A 
41?Q> 396A =006 r B8 



00364E 


41F0 


4000 


838C 


003654 


0000 


36A6 




003658 


QOOO 


3C02 





3539 TEST2 BAL R15,TESTINIT IHITALIZE TEST 
3533 3AL R15,SEI.S CHECK If ONLINE? 

3590 ******************************************************* 

3591 * * 

3592 * CHECK OUT INTERFACE STATUS BYTE 

3593 * * 

3594 ******************************************************* 

3535 
3596 
3597 



R01 



BAL 


R15,L0QPT0P 


CALCULATE ADDRESSES 


DAC 


TEST 2. 01 


NEXT SEQUENCE 


DAC 


TST2.END 


PROOFED LIfIT 



>f"D358S0 
TT t) 35890 
f 1 *') 35900 
TT)3*9t0 
TI , B35920 
M ""1)35930 
"*TD3S940 
"TD35950 
n'"D35960 
"■"035970 



HIGH ?SRFORMASCE<62503 *ASTA?E DIAGNOSTIC 06-26 3R0 1 ?95H! 3 PAGE 75 08:34:07 12/23/83 
T"ST ? 



00365C 
003662 
•003655 
003668 
00366E 
003674 
00367A 
00367E 
003684 
003638 
00368E 
003692 
003635 
00369A 
0036A0 



0036A5 
0036AC 
003530 



003634 
0036B8 
00363C 
0036C2 
3036C8 

*0036CC 
0036CE 
0035D2 
0036D5 
003«DA 
0036E0 
0036E5 
003*EA 
0036F0 
0036F6 
0036F A 
003^00 
003704 
003708 
00370A 

•00 3710 
003712 

003715 
00371A 



41?0 4000 78E4 
C330 0034 



233A 



=0C3 e 7? 



41E0 4000 7BD2 
41?0 4000 7C6C 
4300 4000 834F 
"3 30 0001 
4230 4000 7D88 
C800 0034 
4000 4000 83C8 
E650 2H9A 
4120 28AE 
S5F0 2A4C 
E5F0 4000 8596 
4300 4000 82CC 



41F0 4000 838C 
0000 37AE 
0000 3C02 



4800 


203A 




4230 


3708 




41E0 


4000 


7CAA 


41E0 


4000 


7CF2 


C330 


FF30 




233D 




=C036E6 


E650 


3D5A 




41E0 


3BCE 




E6F0 


8CB6 


=004390 


E6E0 


4000 


8596 


4300 


4000 


82CC 


C430 


007F 




4330 


4000 


834E 


41E0 


4000 


70^2 


C430 


003F 




4330 


4000 


834E 


E6 50 


3P-J0 




4300 


35D2 




2440 






7440 


4000 


8448 


2335 




=00371A 


E650 


3D16 




4300 


36D2 




2441 







3398 

3599 

3600 

3501 

3502 

3603 

3604 

3505 

3506 

3607 

3 60 3 

3609 

3*10 

3611 

3612 

3613 

3614 

3615 

3616 

3617 

3618 

3519 

3520 

3621 

3522 

3523 

3524 

3625 

3626 

3627 

3628 

3529 

3530 

3531 

3632 

3533 

3534 

3635 

3636 

3637 

3538 

3639 

3640 

3641 

3642 

3543 

3544 

3545 

3646 

3647 

3548 

3649 

3550 



T2.0000 



T2R00. 1 



******** 



BAL 

TKI 

BZ 

3 AL 

BAL 

s 

THI 

S!I? 

LHI 

STH 

LA 

BAL 

LA 

LA 

B 
****** 



R14,SENSTA1 
R3,X'34' 
T2.0000 
E14,CDEN C 
S14,CWRE0F 
PASS 
R3,X'0V 
IT.C 

"fl,* '34' 
E0,STATGD 
S5,T0EE*SG2 
P14,T0ERRORB 
R15,KESSAGE1 
R14,C0NT*SG 
ERRORX 
**************************** ************* 



CHECK STATUS 

COHPARE WITH GOO^ D rr AULT 
INCORRECT STATUS ^H r N! R01 
ISSUE DENSITY CO*!*»ND P01 
WRITE EOF TO ESTABLISH DENSITY R01 
BRANCH IE GOOD R01 

IS DRIVE D'T? R01 

BRANCH TO MESSAGE IF PI? 
EXPECTED STATUS 

INCOPEECT STATUS FRO- INTERFACE 
DRIVE, STATUS'S 

SUSPECTED ERROR "ITH CONTROLLER 



* LET'S CHECK OUT THE DEVICE STATUS HALFVORDS 

* 
*************************** 



***************************** 

TEST2.01 BAL E15,L00PT0P 

DAC TEST2.02 

DAC TST2.ENP 
**************************** 



CALCULATE ADDRESSES 

PROCEED LIMIT 
*************************** 



* DSBO DEAD TRACKS 



******************** *************** »****************** t 



T2R01 

T2.4 
T2.5 

TST2.01A 

* 
T2.000 



LH 

BNZ 

BAL 

3AL 

THI 

3Z 

LA 

BAL 

LA 

LA 

E 

SHI 

BZ 

BAL 

NHI 

PZ 

LA 

£ 

LIS 
T3T 
BZ 

LA 



LIS 



R0,DRVTYPE+$VALU1 

TST2.01A 

R14,CNOP0 

R14,PEDE 

R3,X 'FF80' 

T2.4 

R5,T2.E001 

R14,T2EPR0RA 

R15,T2ERHSG0 

P14,C0NTKSG 

FRROFX 

SSrX^F" 

PASS 

R14,REDE 

P3,X'3F' 

PASS 

F5,T2.E002 

T2R01 

R4,0 

F4,SNSHW 

T2.000 

R5,T2.E0010 



LOOK AT DRIVE TYPE OPT 
TELEX DRIVE - CHECK P.I^S 
SENSE DRIVE STATUS ,ADDR=0 
READ STATUS HALFWORD 
ZERO IN ON DEAD TPACK BITS 
BRANCH It ZERO 
DSBO DEAD TRACKS SF"" 
DEVICE STATUS HALF'-'OPD 

SUSPFCTED ERROR WITH CCNTROLLEP 

ISOLATE DU STATUS BITS 

BRANCH IF ZFRO TO S"vt ?fst 

RELOAD STATUS AGAIN 

FORGET NRZI BIT-STILL NOT ZERO? 

NO! CONTINUE TESTING 

STATUS 3US BIT S r T 

ERROR MESSAGE SET UP 



OK 



T2R01 
R4, 1 



DSBO 3IT0 »rQTjT?vriT. FAIL: 
T.fPF DRIVE SFT 



KTD35980 

*^D36000 
mtti3(5010 
f T D3 e 020 
M -T 'D36030 
H' r D36040 
HTD36050 
"^035060 
"TD36070 
1TD36080 

"^035100 
»f^D36110 
5TD36120 
^""036130 
^035140 
f T D36150 
K^D361«0 
>f , D36170 
*TD361$0 

w^Dse^o 

H' 1, D3«!200 
" m D3«210 
*TD36220 
1'"i>3«'>?0 
MTD36240 
r?D36250 
f"D36260 
1 T D362 _ '0 
T'D36 28 
y m D36290 
M' , 'D36300 
* rp D36310 
Y T D36320 
HTD36330 
« m D36340 
1^D363^0 
"""D 3*5 3*0 
"fTD363"'0 
*'"D353e0 
1TD3'i390 
MTD36400 
MTT)3<;mo 
HTD3^u20 
1 TD36430 
w n, D36440 
MTD 3545 o 

f T D364*0 

mtt) 3'5U7n 

XTD36480 
1TD36490 
^TD3fiS00 
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00371C 


7440 


4000 


8448 


3651 






TBT 


R4,SNSHS 


•003722 


2335 




=003720 


3652 






BZ 


T2.001 


003724 


E650 


3CEC 




3653 

3654 


* 




LA 


R5,T2.F000F 


003728 


4300 


36D2 




3655 






B 


T2R01 


00372C 


2442 






3656 


T2. 


,001 


LIS 


R4,2 


00372" 


7440 


4000 


8448 


3657 






TBT 


R4,SNSHW 


*003734 


2335 




=00373E 


365S 






BZ 


T2.002 


003736 


E650 


3CD4 




3659 






LA 


R5,T2.E000E 


00373A 


4300 


36D2 




3660 






B 


T2R01 


00373E 


2443 






3661 


T2. 


.002 


LIS 


R4,3 


003740 


7440 


4000 


8448 


3662 






TBT 


R4,SNSHW 


*003746 


2335 




=003750 


3663 






BZ 


T2.003 


003748 


5650 


3CB2 




3664 






LA 


R5,T2.E000D 


00374C 


4300 


36D2 




3665 






B 


T2301 


003750 


2444 






3666 


T2. 


.003 


LIS 


R4,U 


003752 


7440 


4000 


8448 


3667 






TBT 


R4,SNSHW 


*003758 


2335 




=003762 


3668 






BZ 


T2.004 


00375A 


5650 


3C8A 




3669 






LA 


R5,T2.E000C 


00375E 


4300 


35D2 




3670 






E 


T2R01 


003762 


2445 






3671 


T2. 


.004 


LIS 


84,5 


003764 


7440 


4000 


8448 


3672 






TBT 


B4,SNSHV 


*00376A 


2335 




=003774 


3673 






BZ 


T2.005 


00376C 


E650 


3C64 




3674 






LA 


R5,T2.EOO0B 


003770 


4300 


36D2 




3675 






P 


T2B01 


003774 


2445 






3676 


T2. 


,005 


LIS 


84,6 


003776 


7440 


4000 


8448 


3677 






TBT 


R4,SNSHW 


*00377C 


2335 




=003786 


3678 






BZ 


T2.006 


00377E 


E650 


3C3E 




3679 






LA 


B5,T2.EO00A 


003782 


4300 


36D2 




3680 






B 


T2B01 


003786 


2447 






3681 


T2. 


,006 


LIS 


R4,7 


003788 


7440 


4000 


84 48 


3682 






TBT 


RU^SNSHH 


*00378E 


2335 




=003798 


3683 






BZ 


T2.007 


003790 


E550 


3C1E 




3684 
3685 


* 




LA 


R5,T2.E000 


003794 


4300 


36D2 




3686 






B 


T2B01 


003798 


24*8 






3687 


T2, 


,007 


LIS 


B«,8 


00379A 


7440 


4000 


8448 


3688 






TBT 


B4,SKSHW 


0037A0 


4330 


4000 


834E 


3689 






BZ 


PASS 


0037A6 


E65Q 


3D42 




3690 






LA 


B5,T2.E0011 


0037AA 


4300 


36D2 




3691 






B 


T2R01 










3693 


• Ik 1 ************************- 










3694 


* 
















3695 


* DSB1 


READ-SBITE EEROBS 










3696 


* 
















3697 


**************************! 


0037AE 


41F0 


4000 


838C 


3698 


TEST2.02 BAL 


R15,L00PT0P 


0037B4 


0000 


38F6 




3699 






DAC 


TEST2.03 


0037B8 


0000 


3C02 




3700 






DAC 


TST2.END 


0037BC 


41E0 


4000 


7CB2 


3701 






BAL 


B14,CN0P1 


0037C2 


4150 


4000 


7CF2 


3702 






BAL 


R14,EEDE 


0037C8 


C430 


FF80 




3703 






NHI 


R3,X'FF80' 



DSBO BIT1 'EQUIP^EN^ FAIL: 
FORMATTER" SET 



DSBO BIT2 •NOISE' SFT 
EBEOB MESSAGE SET UP 



DSBO BIT3 'FILE MARX EEEOB' SET 



THIS BIT IS OK 

DSBO BIT4 "SET AUTO GAIN CONTROL 1 SET 



DSBO BIT5 'MULTIPLE TBACK EEBOB' SFT 



DSBO BIT6 ' VERTICAL REDUNDANCY* SET 



DSBO BIT7 'NOT COMPATIBLE' SET 
TAPE DRIVE' SET 



DSBO BIT8 IS SOT ZEBO 



CALCULATE ADDRESSES 

NEXT SEQUENCE 

PROCEED LIMIT 

SENSE DRIVE STATUS, ADDR=1 

READ STATUS H-W 

CHECK OUT ALL BUT BUS BI^S 



••TD36510 
MTD3«520 
MTD36 53 
HTD36 c i40 
MTD36S50 
MTD36560 
MTD36570 
M^DSfiSSO 
MT , 036590 
M^D36^00 
MTD36610 
HTD36620 
MTD36630 
MTD36640 
MTD36650 
KTD36660 
MTD36670 
MTD36680 
HTD36690 
MTD36700 
WTD36710 
MTD36720 
M^DS^SO 
MTD36740 
MTD 3*750 
M m D36760 
M ,T, D36770 
MTD36780 
M"'D35790 
MTD3*;800 
M-T-DSeBIO 
w m D36S?20 
»f*D36830 
MTD36840 
MTD36350 
MTD36860 
fTD36870 
M^D 36880 

fTD36 900 
H - "1> 36910 

HTD36930 

MTD36 950 
M^DSe^O 
M^D 36970 
HT-d 36980 
M TT >369P0 
*TD3'7 0O0 
MTD37010 

MTD37030 



HISH PERFORHANCE(6250m3TAPE DIAGNOSTIC 06-263R01 "95A1 3 PAGE 77 08:34:07 12/23/83 
TSST "? 



0037CC 


4330 


4000 


834E 


3704 






v,z 


PASS 


0037D2 


2440 






3705 






LIS 


R4,0 


0037P4 


7440 


4000 


8448 


3705 






fppm 


R4,SNSHK 


*0037DA 


233C 




=0037F2 


3707 






BZ 


T2.009 


0037DC 


4800 


208A 




3708 






LH 


80,DRVTYPE+$YALTI1 


*0037E0 


2135 




=00?7cA 


3709 






C NZ 


T2B02 


0037E2 


S650 


3D84 




3710 






LA 


R5,T2.E003 


0037S6 


43 00 


36D2 




3711 






B 


T2E01 


0037EA 


E650 


3F5C 




3712 


T2R02 


LA 


R5,T2.E00AA 


0C37EE 


4300 


36D2 




3713 






3 


T2R01 


0037F2 


2441 






3714 


T2 


= 009 


LIS 


P4,1 


0037F4 


7440 


4000 


8448 


3715 






IBT 


R4,SNSHV 


*0037FA 


233C 




=003812 


3716 






BZ 


T2.00A 


0037PC 


4800 


208A 




3717 






LH 


R0,DRVTYPE+$VALU1 


♦003800 


2135 




=00380A 


3718 






BNZ 


T2R02A 


003802 


E6 50 


3DBC 




3719 






LA 


R5,T2.E004 


003806 


4300 


36D2 




3720 






B 


T2R01 


00380A 


E650 


3F24 




3721 


T2H02A 


LA 


R5,T2.E009A 


00380E 


4300 


36D2 




3722 






B 


T2P01 


003812 


2442 






3723 


T2. 


.OOA 


LIS 


R4,2 


003814 


7440 


4000 


8448 


3724 






T3T 


R4,SNSHW 


*00381A 


233C 




=003832 


3725 






BZ 


T2.00B 


00381C 


4800 


208A 




3726 






LH 


R0,DEVTYPE+$YALU1 


*003820 


2135 




=00382?. 


3727 






BNZ 


T2302B 


003822 


E650 


3DFC 




3728 






LA 


R5,T2.E005 


003826 


4300 


36D2 




3729 






g 


T2R01 


00382A 


E650 


3EDA 




3730 


T2R02B 


LA 


R5,T2.E008A 


00382E 


4300 


36D2 




3731 






B 


T2R01 


003832 


2443 






3732 


T2. 


.OOB 


LIS 


R4,3 


003831 


7440 


4000 


8448 


3733 






TBT 


R4,SNSHW 


*00383A 


233C 




=003852 


3734 






BZ 


T2.00C 


00383C 


4800 


208A 




3735 






LH 


P0,DRVTYPE+$VALU1 


♦003640 


2135 




=00384* 


3735 






BNZ 


T2B02C 


003842 


S550 


3E3C 




3737 






LA 


R5,T2.E006 


003846 


4300 


36D2 




3738 






3 


T2R01 


00384A 


E650 


3E98 




3739 


T2R020 


LA 


P5,T2.E007A 


00384E 


4300 


36D2 




3740 






n 


T2R01 


003852 


2444 






3741 


T2. 


,00C 


LIS 


R4,4 


003854 


7440 


4000 


8448 


3742 






TBT 


R4,SNSHW 


*00385A 


233C 




=003672 


3743 






BZ 


T2.0CD 


00385C 


4800 


208A 




3744 






LH 


R0,DEVTYPE+SVALU1 


*003860 


2135 




=00386A 


3745 






BNZ 


T2R02D 


003862 


E550 


3E7E 




3746 






LA 


R5,?2.E007 


003866 


4300 


36D2 




3747 






E 


T2R01 


00385A 


E650 


3E5C 




3748 


T2R02D 


LA 


R5,T2.E006A 


00386E 


4300 


36D2 




3749 






a 


T2R01 


003872 


2445 






3750 


T2. 


OOD 


LIS 


R4,5 


003874 


7440 


4000 


6448 


3751 






rpgrp 


R4,SNSHK 


*00387A 


23 3C 




=003892 


3752 






BZ 


T2.00E 


00337C 


4800 


20SA 




3 753 






LH 


R0,DEVTYPE + $VAL'J1 


•003880 


2135 




=00388A 


3754 






BNZ 


T2R02E 


003882 


E650 


3EBA 




3755 






LA 


E5,T2.E008 


003886 


4300 


36D2 




3756 






M 


T2.R01 



OX IF ZERO! CONTINU" TESTING 

ZERO OUT TEST BIT INDICATOR 

TEST BIT IN STATUS K-W 

BRANCH IF SET TO FRRO' 

CHECK OPTION 

TELEX FRROR MESSAGE 

DSBO BITO 'WRITE TAP? KARK' SET 

ERROR SET 'IP 

DSB1 BIT 'CYCLICAL RFDUNDANCY CH^CK 



OK 

LOOK AT OPTION 

TFLEX ERROR MESSAGE 

DSB1 BIT1 INCORRECT FRROR SET 

ERROR SET UP 

DSB1 BIT 1 'SKEW SE m 



OK 

LOOK AT OPTION 

TELEX ERROR MESSAGE 

DSB1 BIT2 'PARTIAL RECORD' SET 

FHROR ROUTINE 

DSB2 BIT 2 'LOST BOB' SET 



OK 



TELEX ERROR MESSAGE 

DS31 BIT3 ' MULTIPLE TRACK' SET 

ERROR ROUTINE 

DS31 BIT 3 'PARTIAL RECORD' SET 



OK 

LOOK AT OPTION 

TELEX MESSAGE 

DSB1 BIT4 UNUSED BIT SE T 

ERROR ROUTINE 

DSB1 BIT 4 POSTAMBLF ^PROR* SE1 



LOOK AT OPTION 

TELEX MESSAGE 

DSB1 BIT5 'END DATA CHECK* S r T 

ERROP RO'JTINF 



w'"D3"'O40 
M"> 1)37050 
•?Tr>370«0 

IfI>r,3 707 Q 

w^D37080 
wtt)37 090 

f' 1 'D37lOO 
YTD37110 
Mi , D371?0 
M' P D37130 
* r ' T, D37 14 
f"D37150 
YTD37160 
M7D37170 
MTD371P0 
MTD37190 
MTD37200 
M T D37210 

JJT-037'520 

«T'D37230 
MTD37240 
M'"D37250 
Mi"!) 3726 
YTD37270 
M m D37280 
M q ' T >?729C 
T"D37300 
"f , D37310 
1^037320 
*' T 'n37 3 30 
M^D37340 
".'''D37350 
M'"D373*0 
W^D37370 
M' r D37380 
M T D37390 
MTi)37uon 
Y'"D37410 
WTD37420 
"^037430 
MTT)37440 
H[T>T)37U50 

M' T 'D37460 
^ti)37U70 

*!" p D374 80 
K q 'D374 c >0 
HT'TI?7':00 
M' I, D37510 
V 1)37523 
M mr )3 7 53 
*-pp37=.U0 
fTD37550 
w TD37 c: 60 
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TEST 2 








00338A 


E650 


3E1C 




00388E 


4300 


3^D2 




003892 


2446 






003894 


7440 


4000 


8448 


*00389A 


23 3C 




=003882 


00389C 


4800 


208A 




*O038AO 


2135 




=0038AB 


0038A2 


E650 


3F04 




0038A6 


4300 


35D2 




0038AA 


E650 


3DDC 




0038AE 


4300 


36D2 




0038B2 


2447 






0038B4 


7440 


4000 


8448 


*00383A 


233C 




=003802 


0038BC 


4800 


208A 




*0038C0 


2135 




=0038CA 


0038C2 


E650 


3F3A 




0038C6 


4300 


36D2 




0038CA 


E650 


3DA6 




0038CE 


4300 


36D2 




0038D2 


2448 






0038D4 


7440 


4000 


8448 


0038DA 


4330 


4000 


834F 


0038E0 


4800 


20 8 A 




*0033E4 


2135 




=0038EE 


0038E6 


S650 


3F88 




0038EA 


4300 


36D2 




0038EE 


E650 


3FA4 




0038F2 


4300 


36D2 





0038F6 
0038FC 
003900 
003904 
00390A 
003910 
003914 
00391A 
00391C 

*003922 
003924 

♦003928 
00392A 
00392E 
003932 
003936 
00393A 
00393C 

*003942 



41F0 


4000 


838C 


0000 


3A3E 




0000 


3C02 




41FO 


4000 


7CB8 


41S0 


4000 


7CF2 


C430 


FFOO 




43 30 


4000 


834F 


2440 






7440 


4000 


8448 


233C 




=00393A 


48Q0 


208A 




2135 




=003932 


E650 


3FBC 




4300 


36D2 




E650 


886C 


=0041A2 


4300 


36D2 




2441 






7440 


4000 


8448 


233C 




=00395? 



3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3769 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3773 
3779 
3780 
3781 
3782 
3783 
3784 
3785 
37S6 
3787 
3783 
3789 
3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 
3801 
3802 
3303 
3804 
3805 
3806 
3807 
3808 
3809 



T2B02E LA R5,T2.E005A DSB1 BIT 5 'FREAM ERROR ' SET 

B T2R01 

T2.00E LIS P4,6 

TBT R4,SNSHW 

BZ T2.00F 

LH H0,DRVTYPS+$VALU1 

3NZ T2R02F 

LA F5,T2.E0C9 

B T2R01 

T2F.02F LA R5,T2.E004A 

B T2R01 

T2.00F LIS R4,7 

TBT R4,SHSHW 

BZ T2.010 

LH R0,DRVTYFE+$VALU1 

BKZ T2R0210 

LA R5,T2.E00A 

B T2F01 

T2R0210 LA R5,T2.E003A 

B T2R01 

T2.010 LIS R4,8 

TBT R4,SNSHH 

BZ PASS 

LH R0,DRVTYPE+$VALU1 

BNZ T2R0211 

LA R5,T2.E00B 

B T2R01 

T2R0211 LA R5,T2.EO0BA 

B T2R01 
******************************************************* 

* * 

* DSB2 DIAGNOSTIC A-D BITS * 

* * 
******************************************************* 



OK 

LOOK AT OPTION 

TELEX MESSAGE 

DAB1 BIT6 'VELOCITY ERROR' SET 

ERROR ROUTINE 

DSB1 BIT 6 'ENVELOPF CHECK' SET 



OK 

DSB1 BIT7 'DIAG HODE LATCH' SET 

DSE1 BIT 7 'LRC SET 

MESSAGE SET UP 



LOOK AT OPTION 

TELEX 

DSB1 BIT8 "CRC ERROR' IS SET 

DSB1 BIT 8 IS NOT ZERO 



TEST2.03 BAL 
DAC 
DAC 
BAL 
BAL 
SHI 
BZ 
LIS 
TBT 
BZ 
LH 
BNZ 
LA 
F 

LA 
B 

LIS 
TBT 
BZ 



T2R03A 



T2.011 



R15,L00PTOP 

TEST2.04 

TST2.END 

R14,CNOP2 

E14,EEDE 

S3,X'FF00' 

PASS 

R4,0 

R4.SNSHH 

T2.011 

R0,DEVTYPE+$VALU1 

T2R03A 

RS,T2.E00C 

T2R01 

R5,T2.E013A 

T2R01 

R4,1 

R4,SNSKW 

T2.012 



PROCEED LIHIT 

STATUS HALFSORD ADDR=2 

READ STATUS H-W 

DELETE BUS BITS 

BRANCH IF ZERO TO NEXT TEST 

ZERO OUT TEST BIT INDICATOR 

TEST BIT 

BRANCH IF ERROR BIT SET 

LOOK AT DRIVE TYPE OPTION 

TELEX 

DSB2 BITO DIAGNOSTIC AID 7 SFT 

ERROR ROUTINE 

DSB2 BIT 'DEAD TRUCK P' SE T 



OK 



*TD3' 7 570 
MTD37?S0 
M^D37590 
HTD37600 
1 m D37610 
WTD37620 

1TD37640 
*t-D37650 
1"'D376«0 
HTD37670 
HTD37680 
>!TD37690 
NTD3770C 
HTD37710 
W'D 37^20 
1T"D37 _ '30 
H' T, D37740 

HT0377S0 

•!TD37760 
TTD37770 
HTD37780 
T'D37790 
WTD37P00 
HTD37810 
H T D37P?0 
N"'D37930 
WTD 37840 
MTD37850 
STD37S60 
i»TD37«70 
f T D37880 
>f , D37890 
WTD37900 
tfTD37°10 
STD37920 
MT&37930 
1TD37940 
H^D37950 
HTD37950 
WT037Q7O 
*" , D37980 
1TTJ37990 
w^SCOO 
^^038010 
w ,,, D38020 
*TD3803O 
TH>3804Q 
*?D38050 

•{■"osaoeo 

"•"D 3 8 070 
^038080 
«jtt)38090 
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003944 


4800 


208A 




3 810 






LH 


30,D=VTYPE+SVALU1 


LOOK AT OPTION 




*TD33100 


*003948 


2135 




=003952 


3811 






BNZ 


T2E03B 


TELFX 




MTP38110 


00 3 94 A 


K550 


3FF8 




3R12 






LA 


P5,T2.E00D 


DS30 PIT1 DIAGNOSTIC AID 6 SET 


*TD38120 


00394E 


4300 


3602 




3813 






3 


m 2R01 






MTD3R130 


003952 


E650 


880C 


=004162 


3814 


T2R03B 


LA 


R5,T2.F012S 


DSB2 BIT 1 "IBG OVERFLOW 


SET 


HTD38140 


003956 


MOO 


36D2 




3815 






B 


T2R01 


MESSAGE SET UP 




"TD38150 


00395* 


2H42 






3 316 


T2. 


.012 


LIS 


"U,2 






f T D38160 


3 ^ 5 C 


7440 


4000 


S448 


3817 






T>D<f 


R4,SKSHV 






)<TD38170 


*003962 


23 3C 




=00397? 


3813 






BZ 


T2.013 


OK 




YTD38180 


003964 


4300 


208A 




3819 






LH 


?0,DRVTYPE+$VALU1 


LOOK AT OPTION 




"tt>3R190 


*00396S 


2135 




=003972 


3820 






BNZ 


72R03C 


TELEX 




«JTD38200 


00396?. 


2650 


86CC 


=00403? 


3821 






LA 


R5,T2.E00E 


DSB1 BIT? 'DIAGNOSTIC AID 


5* SET 


^td33210 


00396E 


4300 


36^2 




3822 






B 


T2P01 






MTD38220 


003972 


£550 


8730 


=004126 


3323 


T2R03C 


LA 


R5,T2.E011A 


DSB2 BIT 2 *N0 DATA' SET 




1TD38230 


003976 


4300 


36D2 




3824 






B 


T2R01 






Y m O38240 


00397A 


2443 






3825 


T2. 


.013 


LIS 


54,3 






"TD38250 


00397C 


7440 


4000 


8448 


3S26 






TBT 


R4,SNSHW 






fTD38260 


»003982 


233C 




=00399? 


3827 






BZ 


T2.014 


OK 




1TT>38270 


003984 


4800 


208A 




3828 






LH 


R0,DRVTYPE+$VALU1 


LOOK AT OPTION 




MTD38280 


*003983 


2135 




=003992 


3829 






BNZ 


T2303D 


TELEX 




fTD38290 


00398A 


E650 


86EA 


=004078 


3830 






LA 


F5,T2.E00F 


DSB1 BIT3 'DIAGNOSTIC AID 


4 ' SET 


MTD38300 


00398E 


4300 


36D2 




3331 






B 


T2R01 


ERROR ROUTINE 




"■"1)38310 


003992 


3650 


8754 


=0040FA 


3832 


T2R03D 


LA 


R5,T2.E010A 


DSB2 BIT 3 'LOOPOUT' SET 


SE "TD38320 


003996 


4300 


36D2 




3833 






B 


T2R01 






VD38330 


0C399A 


2444 






3334 


T2. 


,014 


LIS 


P4,4 






1TD38340 


00399C 


7440 


4000 


8448 


3335 






TBT 


R4,SKSHK 






VTD38350 


*0039A2 


233C 




=0039BA 


3336 






EZ 


T2.015 






VTD38360 


C039A4 


4800 


208A 




3837 






LH 


R0,D3VTYPE+$VALU1 


LOOK AT OPTION 




»fTD38370 


*C039A8 


2135 




=003962 


383 8 






BNZ 


T2R03E 


TELEX 




»tt)38380 


0039AA 


E650 


871A 


=0040C8 


3839 






LA 


R5,T2.E010 


DS32 BIT4 'DIAGNOSTIC AID 


3" SET 


MTD38390 


0039AE 


4300 


36D2 




3340 






B 


T2B01 






MTD38400 


003932 


E650 


86E4 


=00409? 


3841 


T2R03E 


LA 


R5,T2.E00FA 


DSB2 BIT 4 'ERASE WR CURR 


FAILURE' SE ^nsSKIO 


C039R6 


4300 


35D2 




3842 






B 


T2S01 






"JTD38420 


0039BA 


2445 






3843 


T2. 


.015 


LIS 


R4,5 






M^D38430 


0039BC 


7440 


4000 


S448 


3844 






T3T 


R4,SNSH5 J 






¥^038440 


*C039C2 


233C 




=0039DA 


3845 






BZ 


T2.016 


OK 




WT-D38450 


0039C4 


4800 


208A 




3846 






LH 


R0,DRVTYPE+SVALU1 


LOOK AT OPTION 




"TD38460 


*0039C8 


2135 




=003902 


3847 






BNZ 


T2R03F 


TELEX 




HTD384'70 


0039CA 


E650 


8736 


=004104 


3848 






LA 


R5,72.E011 


DSB2 3IT5 'DIAGNOSTIC AID 


2' SET 


*TD38480 


0039CE 


4300 


36D2 




3849 






B 


T2R01 






MTD38490 


0039P2 


E650 


8686 


=00405C 


3850 


T2R03F 


LA 


R5,T2.E00EA 


DSB2 BI T 5 . TAC H FAIL' SET 


'?T')38?00 


0039D6 


4300 


3602 




3851 






B 


~2R01 






MTD38510 


0039DA 


24U6 






3852 


T2. 


,016 


LIS 


R4,6 






^038520 


C039DC 


7440 


4000 


8448 


3853 






TBT 


R4,SNSHW 






«td38530 


*D03<5E2 


7 "5 3 r 




=0039FA 


3854 






BZ 


T2.017 


OK 




H"D38540 


3039E4 


4800 


208A 




3855 






LH 


R0,DFVTYPE+$VALU1 


LOOK AT OPTION 




f m D38550 


*0039E8 


2135 




=003SF2 


3856 






BNZ 


T2R0310 






MTD38560 


0039EA 


E650 


8752 


=004140 


3857 






LA 


R5,' r '2.E012 


0SB2 BIT6 'DIAGNOSTIC AID 


1 ' SE m 


YTA38570 


0039EF 


4300 


3PD2 




3853 






3 


T2B01 


r R30R PONTINE 




"""038580 


?039F2 


E550 


8624 


=00401? 


3859 


T2R0310 


LA 


R5,T2.E00DA 


DSB2 BIT 5 ' VELOCITY CHEC- 


(' SET 


T"D38"90 


0039F6 


4300 


36D2 




3860 






c 


T2R01 






HTD33«00 


0039FA 


2447 






3361 


T2. 


.017 


LIS 


F4,7 






^038610 


0039FC 


7440 


4000 


8448 


3862 






TD T 


24,SNSKW 






HTD3862 r i 
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♦0Q3A02 


233C 




=003A1A 


3863 






BZ 


T2.018 


OK 


fTD38630 


003A04 


4800 


208A 




3864 






LH 


R0,DPVTYPE+$VALU1 


LOOK AT OPTION 


YTD38640 


*003A08 


2135 




=003A12 


3865 






BNZ 


T2P.0311 


TELEX 


"TP38650 


003A0A 


E550 


8772 


=004180 


3866 






LA 


R5,T2.E013 


DSB2 BIT7 'DIAGNOSTIC AID 0* SET 


MTD38660 


003A0E 


4300 


36D2 




3867 






B 


T2R01 




MTD38670 


003A12 


E650 


3FDE 




3968 


T2R0311 


LA 


R5,T2.E00CA 


DSB2 BIT 7 'ID BURST 1 SET 


NTO38680 


003A16 


4300 


36D2 




3969 






B 


T2R01 


MESSAGE SET UP 


«TD38«90 


003A1A 


2448 






3370 


T2 


.018 


LIS 


R4,8 




14^1)38700 


003A1C 


7440 


4000 


8448 


3871 






TBT 


P4,SNSHW 




1TD38710 


003A22 


4330 


4000 


834F 


3972 






BZ 


PASS 


OK FOR DSB2 


KTP38720 


003A28 


4800 


208A 




3873 






LH 


FQ,DFYTYPE+$VALU1 


LOOK AT OPTION 


H"" 1)38730 


♦003A2C 


2135 




=003A36 


3374 






BNZ 


T2R0312 


TELEX 


STD38740 


003A2E 


E650 


878E 


=0041CO 


3875 






LA 


R5,T2.E014 


DSB2 BITS 'TACH* SET 


MTD38750 


003A32 


4300 


36D2 




3876 






B 


T2RQ1 


ERROR ROUTINE 


STD38760 


C03A35 


36 50 


879C 


=0041D6 


3377 


T2E0312 


LA 


R5,T2.E014A 


DSB2 BIT 8 IS NOT ZERO 


MTD38770 


003A3A 


4300 


36D2 




3878 






B 


T2R01 




MTD38780 










3879 


******************************************************* 


HTD38790 










3880 


* 








* 


MTD38800 










3881 


* ] 


DSB3 DRIVE 


SENSE STATUS BYTE 


* 


HTD38810 










3882 


* 








* 


STD38820 










3883 


******************************************************* 


MT»38830 


003A3E 


41F0 


4000 


838C 


3884 


TEST2.04 


BAL 


R15,L00PT0P 


CALCULATE ADDRESSES 


1""D38840 


003A44 


0000 


3B9E 




3885 






DAC 


TST2.30B 




WTD38850 


003A48 


0000 


3C02 




3 886 






DAC 


TST2.END 




M^D38860 


003A4C 


41F0 


4000 


80D2 


3887 






BAL 


R15,REH!1T 


REWIND TAPE 


fTD38870 


003A52 


41E0 


4000 


7C66 


3888 






BAL 


R14,CSKFB 


SKIP FORWARD TO PROCESS I.D. AREA 


!T^D38880 


003A58 


41E0 


4000 


7BE4 


3889 


T2. 


.CA 


BAL 


R14,SENSTA1 


WAIT FOR NMTN 


1(^038890 


0Q3A5E 


41E0 


4000 


7CBF 


3890 






BAL 


R1U,CN0P3 


ADDRESS DSB3 


1TD38900 


003A64 


41E0 


4000 


7CF2 


3891 






BAL 


R14.REDE 




tf'D38910 


003A6A 


4800 


208A 




3892 






LH 


R0,DRVTYPE+$VALU1 


LOOK AT OPTION 


fTD38920 


*003A6E 


233B 




=003A84 


3893 






BZ 


TEST2.4A 


STC 


WTD38930 


003A70 


2440 






3894 






LIS 


54,0 




f^D38940 


003A72 


7440 


4000 


8448 


3895 






TBT 


R4,SNSHW 




fTD38950 


003A78 


4330 


3B1C 




3896 






BZ 


T2.01D 


TELEX DSB3 IS OK R01 


H T D38960 


003A7C 


E650 


88A0 


=004320 


3897 






LA 


R5.T2.E01E 


DSB3 DEAD TRACKS SET 


N'"D38970 


003A80 


4300 


3602 




3998 






B 


T2R01 




S"D38980 


003A84 


2440 






3899 


TEST2.4A 


LIS 


R4,Q 


LOAD TEST OFFSET 


HTD38990 


003A86 


7440 


4000 


8448 


3900 






TBT 


34,SNSHH 


TEST FOE EOT STATUS 


1TD39000 


*003A8C 


2335 




=003A96 


3901 






BZ 


T2.019 


OK 


"(TD39010 


003A8E 


S65Q 


875C 


=0041EE 


3902 






LA 


E5.T2.E015 


DSB3 BITO 'EOT' STATUS BIT SET 


HTD39020 


003A92 


4300 


36D2 




3903 






B 


T2R01 


ERROR ROUTINE 


HTD39030 


003A96 


2641 






3904 


T2. 


.019 


AIS 


R4,1 


INCREMENT TEST BIT 


»TT)39040 


003A96 


7440 


4000 


8448 


3905 






TBT 


R4,SNSHtf 


TEST FOR BOT STATUS 


HTD39050 


*Q03A9E 


2335 




=003AA6 


3906 






BZ 


T2.01A 


OK 


f^D39060 


003AAO 


E65Q 


8766 


=00420A 


3907 






LA 


R5,T2.E016 


DSB3 BIT1 'BOT STATUS' NOT SET 


STP39Q70 


003AA4 


4300 


3502 




3908 






B 


T2R01 


ERROR ROUTINE 


NTD39080 


003AA8 


2442 






3909 


T2. 


.01A 


LIS 


R4,2 


INCREMENT TEST BIT 


WTD39090 


003AAA 


7440 


4000 


8448 


3910 






TBT 


34,SNSHW 


TEST FOR WRITE INHIBIT 


*t D39100 


*003AB0 


2135 




=003AEA 


3911 






BNZ 


T2.Q1B 


OK 


n~ T, r>39M0 


003AB2 


E650 


8774 


=00422A 


3912 






LA 


R5,T2.E017 


DSB3 BIT2 'WRITE INHIBIT 1 NOT SET 


1^939120 


003AB6 


4300 


36D2 




3913 






3 


T2R01 




"TD39130 


003ABA 


2443 






3914 


T2, 


.01B 


LIS 


E4,3 


INCFEHENT TEST BIT" 


* "1)391 HO 


003ABC 


7440 


40Q0 


8448 


3915 






TBT 


R4,SSSHH 


TEST FOR FILE PROTECT 


"! ""039150 
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TEST 2 



*003AC2 


2335 




=003ACC 


3916 






P Z 


T2.01C 


003AC4 


E650 


8786 


=00U24F 


3917 






LA 


R5,T2.E018 


O03AC9 


4 300 


3602 




3918 






R 


T-2P01 


003. ACC 


2444 






3919 


T2. 


,01C 


LIS 


R4,4 


003ACE 


7440 


4000 


8448 


3920 






T3T 


R4,SNSHW 


*003AD4 


2335 




=003ADF 


3921 






3Z 


T2.F 


003AD6 


E5 50 


879A 


=304274 


3922 






LA 


R5,T2.E019 


003ADA 


4300 


3SD2 




3923 






a 


T2R01 


003ADE 


4800 


208A 




3924 


T2. 


F 


IH 


30,DRVTYPE+SVALU1 


003AE2 


4230 


3B1C 




3925 
3925 


* 




BNZ 


T2.01D 


003AE6 


2446 






3927 






LIS 


R4,6 


003AE8 


7440 


4000 


8448 


3928 






TBT 


B4,SNSHW 


*003AEE 


2135 




=003AF8 


3929 






BMZ 


T2.01F 


003AF0 


"550 


87C8 


=0042BC 


3930 






LA 


R5,T2.E01B 


003AF4 


4300 


36D2 




3931 






3 


T2R01 


003AF8 


2447 






3932 


T2. 


01F 


LIS 


R4,7 


003AFA 


7440 


4000 


8448 


3933 






TBT 


34,SNSHW 


*003B00 


2135 




=003P0A 


3934 






BNZ 


T2.020 


003B02 


E650 


87D8 


=0042DE 


3935 






LA 


R5,T2.E01C 


003E0S 


4300 


36D2 




3936 






■a 


T2R01 


003B0A 


2448 






3937 


T2. 


,020 


LIS 


R4,8 


003B0C 


7440 


4000 


8448 


3938 






-pqrn 


R4,SNSHK 


*003B12 


2335 




=003E1C 


3939 






3" 


T2.01D 


003314 


E6 50 


87EA 


=004302 


3940 






LA 


R5,T2.E01D 


003B13 


4300 


36D2 




3941 
3942 


* 




p 


T2R01 


003B1C 


4800 


208A 




3943 


T2. 


,01D 


LH 


R0,DPVTY?E+SVALU1 


003320 


4230 


3B58 




3944 






BNZ 


T2.01E 


003B24 


2445 






3945 








R4,5 


003B26 


7440 


4000 


8448 


3946 






■poT 


R4,SNSHW 


*003E2C 


2334 




=003P34 


3947 






BZ 


T2 . DO 


003B2E 


E650 


8806 


=004338 


394S 






LA 


R5,T2MSG1 


003B32 


2309 




=003B44 


3949 






3S 


T2.KSG2A 


003334 


2469 






3950 


T2, 


.DO 


LIS 


R6,9 


003B36 


7460 


4000 


8448 


3951 






rngrn 


R6,SNSH(T 


003B3C 


4230 


338E 




3952 






^NZ 


T2.G 


003B40 


E650 


8812 


=004356 


3 953 


i .- • 


.MSG2 


LA 


35/T2KSG2 


003B44 


41F0 


4000 


836F 


3954 


T2. 


. MSG2A 


EAL 


R15,L00P2 


003B4A 


4300 


4000 


834E 


3955 






B 


PASS 


003E5C 


E650 


8742 


=004296 


3956 


T2. 


.MSG3 


LA 


R5,T2.E01A 


003B54 


4300 


3602 




3957 
3958 


* 




r^ 


T2R01 


003B58 


2469 






3959 


T2. 


,01E 


LIS 


56,9 


003B5A 


7460 


4000 


6448 


3960 






TlJ T 


E6,SKSHW 


003B60 


4230 


3B8E 




3?61 






BNZ 


T2.G 


003^64 


246A 






3962 






L T S 


R6,10 


003B66 


7460 


4000 


8448 


3963 






TBT 


F.6,SNSHW 


*003B5C . 


2339 




=003?7F 


3964 






5Z 


T2.G0 


003B6E 


F.6 50 


87C5 


=004336 


3965 






LA 


R5,T2MSG1 


003B72 


41F0 


4000 


836E 


3966 






3 A L 


R15,L00P2 


003E78 


4300 


4000 


834E 


396"? 






B 


PASS 


00337E 


E650 


8704 


=0C435f 


3 96 3 


T2, 


.GO 


LA 


R5,T2MSG2 



BRANCH IF NOT SE^ 

DSB3 3IT3 SET 'FILE PROTECT" IS ON 

INCREMENT TEST BI T 

TEST FOR BACKWARDS STATUS 

OK ?01 

DS33 BIT4 • BACKWARD STATUS* SET 

LOOK IF TELEX 
DETERMINE DENSITY 

INCREMENT TEST SI" 1 

TEST FOR READY STATUS 

OK IF SET 

DSB3 BIT6 'RFADY STALL'S* NOT SET 

INCREMENT TEST BIT 

""^ST FOR ONLINE STAT'JS 

OK IF SET 

DSB3 BIT7 'ONLINE STATUS" NOT SET 

INCREMENT TEST BIT 
TEST FOR WRITE STATUS 
DETERMINE DENSITY R01 

DSB3 BIT8 'WRITE STATUS' SE" 1 



STC OR TELET 

TELEX? 

INCREMENT TEST BIT 

TEST FOR HI DENSITY 

BRANCH TO ANOTHER TEST IF NO" 1 S^T 

TAPE IS IN GCR DENSITY MODE 

OUTPUT AND CONTINUE 

SEE IF NRZI BIT SET 

NRZI MESSAGE 

TAPE DRIVE IS IN PE DENSITY MODE 

OUTPUT MESSAGE? 

ONTO NEXT SEQUENCE R01 

BOTH HI DEN AND NRZI SFT. 

ERROR ROUTINE 

LOAD TEST OFFSE T 
TEST FOR NRZI SET 
BRANCH IF SET 

TEST FOR GCR SET 

NO 

TAPE IS IN GCR "ODE 

PRINT OUT 

NEXT SEQUENCE 

TAPE DRIVE IS I" PE TENSITY MODE 



MT1391 £Q 

M m D39170 
* m D391S0 
wtt)391 90 
jfTr)3m00 
M""D39210 
M rn D39220 
M 1, D39230 
^"'039240 
M^D39250 
M™D39260 
M^D39270 
MTD39280 
MTD39290 
^■^39300 
M'D39310 
M' T 'D39320 
M^D39330 
M T D39340 
V^P'SO 
f"D39360 
MT , D39370 

ifTD39380 
yTTi39390 

MT"D39400 
"TD39410 
M'"D39420 
M""D39430 
y*PD39 4«K> 
MTD39450 
WTD39460 
M T D39470 
1TD39480 
VPT)39490 
w^D39^00 
V T'D39510 
M' P D39520 
MTr»39530 
M^D39540 
M T D39550 
M T D39560 
MTD3Q570 
MTD39580 
MTD39590 
vTr)39«;oO 
MTD39610 
M T D39620 
WTD39530 
w~D39640 
M" n D?9S50 
M ,T, ri'3QR50 
MTD39670 
« T D39690 
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TS3T 2 



003B82 


41F0 


4000 


836E 




003B88 


4300 


4000 


834E 




003B8E 


E650 


87E0 


=004372 


003392 


41F0 


4000 


836F 




003B98 


4300 


4000 


8 34E 




003B9E 


41F0 


4000 


838C 




003BA4 


0000 


3C02 






003BA8 


0000 


3C02 






003BAC 


4800 


20 8 A 






003BB0 


4230 


4000 


634F 




003BB6 


7330 


4000 


8448 




003BBC 


CU30 


002F 






003BC0 


4330 


4000 


834E 




003BC6 


E6S0 


3?70 






003BCA 


4300 


36D2 






003BCE 


D000 


4000 


8990 




003BD4 


41F0 


4000 


836F 




003BDA 


2403 








003BDC 


4810 


4000 


8408 




003BE2 


E620 


8730 


=004396 


003BE6 


41F0 


16 80 






003BEA 


4810 


4000 


8448 




003BFO 


2404 








003BF2 


E620 


87BD 


=0043B3 


003BF6 


41F0 


1680 






003BFA 


D100 


4000 


8990 




OO3CO0 


030E 








003C02 


41F0 


2836 






003C06 


4800 


4000 


840A 




003COC 


C300 


OOOE 






O03C1O 


4330 


133C 






003C14 


41F0 


4000 


7D58 




003C1A 


4300 


31A6 






003C1E 


4453 


4230 


2042 


4954 


003C26 


3720 


224E 


4F54 


2043 


003C2E 


4F4D 


504 1 


5449 


424C 


003C36 


4522 


2053 


4554 




003C3C 


ODOA 








003C3E 


4453 


4230 


2042 


4954 


003C46 


3620 


2256 


4552 


5449 


003C4E 


4341 


4C20 


5245 


4455 


003C56 


4E44 


414E 


4359 


2220 


0Q3C5E 


5345 


5420 






003C62 


ODOA 








003C64 


4453 


4230 


2042 


4954 


003C6C 


3520 


224D 


554C 


5449 


003C74 


5C4C 


4520 


5452 


4143 



3969 




3AL 


R15,L0OP2 


3970 




B 


PASS 


3971 


* 






3972 


T2.G 


LA 


R5,T2KSG3 


3973 




BAL 


R15,L00P2 


3974 




B 


PASS 


3975 


* 






3976 


TST2.30B 


BAL 


R15,L00P^0P 


3977 




DAC 


TST2.END 


3978 




DAC 


TST2.SND 


3979 




LH 


R0,DFVTYPE+$VALU1 


3980 




3NZ 


PASS 


3981 




LHL 


R3,SSSHW 


3982 




NHI 


R3,X'2F' 


3933 




BZ 


PASS 


3984 




LA 


R5,T2.E002 


3985 




p 


T2R01 


3985 


* 






3987 


T2ERR0RA 


STK 


RO,ERRSAVE 


3988 




BAL 


R15,L00P2 


3989 




LIS 


R0,3 


3990 




LH 


R1,DRIVSAV 


3991 




LA 


R2,T2ERHSG0+6 


3992 




PAL 


R15 f HEXASC 


3993 




LH 


R1,S«SHW 


3994 




LIS 


R0,4 


3995 




LA 


R2,T2ER*SG1+23 


3996 




BAL 


R15,HEXASC 


3997 




LS 


RO,EERSAVE 


3998 




BR 


R14 


3999 


* 






4000 


TST2.END 


BAL 


R15,TST.DRTV 


4001 




LH 


R0,DRIVSAV1 


4002 




THI 


ROrX'E* 


4003 




BZ 


TSTEND 


4004 




BAL 


R15,IT.B1 


4005 




B 


TEST2.Q1 



OUTPUT MESSAGES 
NEXT SEQUENCE 

TAPE DRIVE IS IN NRZI DENSITY *ODE 
OUTPUT MESSAGE 
NEXT SEQUENCE 



SKIP IF TELEX 
LOAD STATUS HALFWORD 
ZERO IN ON BUS BITS 
STATUS BUS BITS SHOULD = 



SATE REGISTERS 
OUTPUT FIRST MESSAGE? 
DIGITS TO CONVERT 
CURRENT DRIVE ADDRESS 



LOAD SEVICE STATUS HALWORD 
DIGITS TO CONVERT 
STORED HERE 
CONVERT 

RETURN 

CHECK FOR OTHER DRIVES 

CHECK FLAG 

IS IT SET 

NO, END TEST 

INIT TEST FOR OTHER DRIVES 

BEGIN TEST 2 



4007 T2.E000 DC C'DSBO BIT7 "NOT COMPATIBLE" SET', X" ODOA' 



4008 T2.E000A DC C'DSBO BIT6 "VERTICAL REDUNDANCY" SET" ,y0D0A" 



40C9 T2.E000B DC C'DSBO BIT5 "HULTIPLE TRACK ERROR" SFT*,X'0DOA' 



MTD39690 
N T D3970C 

WTT13Q-710 

fj-pp 39720 
ifT 939730 
HTP39'*40 
TfTfi39'7^0 
*[rp39760 
11^7)39770 
*TD39^80 
y;TD397C)0 
"TD39800 
NTD39810 
TH539820 
1TD39830 
NTD39940 
f"D39850 

ffp3Q870 
lf?D39880 
VD39890 
•(TD39900 
»f'D39910 
W , D39920 
WT039930 
WTD39940 
lfTD39950 
ifi»D399fiO 
1TTO9970 
HTD39980 
«fTD3999Q 
!(TTV4000r! 
•»TD40010 
TPD40020 
T'DttQOJO 
HTD40040 
STD40050 



»tn>4.00-70 



tr^tfooeo 



WTDU0090 
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003C7C 4B20 4552 524F 5222 

003C3* 2053 4554 

003C83 ODOA 

003C6A 4453 4230 2042 4954 4010 T2.E000C DC C'DSBO EIT4 "3FT A T ITO GAIN CONTROL" SET ' ,X ' ODOA ' """lUOlOO 

003C92 3420 2253 4554 20«1 

003C9A 5554 4^20 4741 494E 

OQ3CA2 2043 4F4E 545? 4F4C 

00 3CAA 2 220 5 34 5 5 4 20 

003CS0 ODOA 

003CB2 4453 4230 2042 4954 4011 T2.E0OOD PC C'DSBO BIT3 "FILE MARK ERROR" STT* ,▼' ODOA * "^40110 

003CBA 3320 2246 494C 4520 

003CC2 4D41 524B 2045 5252 

003CCA 4F52 2220 c 345 5420 

003CD2 ODOA 

003C04 4453 4230 2042 4954 4012 T2.E000E DC C'DSBO BIT2 "NOISE" SET'/X'ODOA' HTD40120 

003CDC 3220 224E 4F49 5345 

003CE4 2220 5345 *420 

003CEA ODOA 

003CEC 4453 4230 2042 4954 4013 T2.E000F DC C'DSBO BIT1 "EQUIPMENT FAIL: FORMATTER" SfT*,X'ODOA' * m D40130 

003CF4 3120 2245 5155 4950 

003CFC 4D45 4E54 2046 4149 

003D04 4C3A 464F 524D 4154 

003DOC 5445 5222 2053 4554 

003D14 ODOA 

003D16 4453 4230 2042 4954 4014 T2.E0010 DC CDS30 BITO "EQUIPMENT FAIL:TAPE DRIVE" S?T',X'0D0A* M' r D40140 

00301^ 3020 2245 5155 4950 

003D26 4D45 4E54 2046 4149 

003D2E 4C3A 5441 5045 2044 

003D36 5249 5645 2220 5345 

003D3? 5420 

003D40 ODOA 

003D42 4453 4230 2042 4954 4015 T2.E0011 DC C'DSBO BITS IS NOT ZERO ' ,X ' ODOA ' w?D40150 

003D4A 3820 4953 204E 4F54 

003P52 205A 4552 4F20 

003D58 ODOA 

C03D5A 4453 4230 2044 4541 4015 T2.E001 DC C'DSBO DEAD TRACKS SET',X*0D0A' f"D40150 

003D62 4420 5452 4143 4E53 

003D5A 2053 4554 

003D6E ODOA 

003D70 5354 4154 5553 2042 4017 T2.E002 DC C STATUS BUS BIT SET',X'0D0A' M^D40170 

003D73 5553 2042 4954 2053 

003D80 4554 

003D82 ODOA 

003D84 4453 4231 2042 4954 4013 T2.E003 DC CDSE1 BITO "WRITE TAPE MARK" SET',X'ODOA' *TD40180 

003D8C 3020 2257 5249 5445 

003D94 2054 4150 4520 4D41 

003D9C 5243 2220 5345 5420 

003DA4 ODOA 

003DA6 4453 4231 2042 4954 4019 T2.E003A DC C'DSF.1 BIT7 "LRC" S r T ' , X' ODD A ' M^r![j0190 

003DAE 3720 224C 5243 2220 

003DB6 5345 5420 

00 3 DBA ODOA 

003DBC 4453 4231 2042 4954 4020 T2.E004 DC CDSB1 BIT1 INCORRECT ERROR SET ' ,X ' ODOA ' WTrjyQoOO 
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TEST 2 



003DC4 


3120 


494E 


434F 


5252 


003DGC 


4543 


5420 


4552 


524F 


003DD4 


5220 


5345 


5420 




003DDA 


ODOA 








003DDC 


4453 


4231 


2042 


4954 


003DE4 


3620 


2245 


4E56 


454C 


003DEC 


4F50 


4520 


4348 


4543 


003DF4 


4322 


2053 


45 c 4 




003DFA 


ODOA 








003DFC 


4453 


4231 


2042 


4954 


003E04 


3220 


2250 


4152 


5449 


003F0C 


414C 


2052 


4543 


4F52 


003F14 


4422 


2053 


4554 




003E1A 


ODOA 








003E1C 


4453 


4231 


2042 


4954 


003E24 


3520 


2250 


5245 


414D 


003E2C 


424C 


4520 


4552 


524F 


003E34 


5222 


2053 


4554 




003E3A 


ODOA 








003E3C 


4453 


4231 


2042 


4954 


003E44 


3320 


224D 


554C 


5449 


003E4C 


504C 


4520 


5452 


4143 


003E54 


4B22 


2053 


4554 




003E5A 


ODOA 








003E5C 


4453 


4231 


2042 


4954 


003E64 


3420 


2250 


4F53 


5441 


0O3E6C 


4D42 


4C45 


2045 


5252 


003E74 


4F52 


2220 


5345 


5420 


O03E7C 


ODOA 








003E7E 


4453 


4231 


20a2 


4954 


003E86 


3420 


554E 


5553 


4544 


003E8E 


2042 


4954 


2053 


4554 


003E96 


ODOA 








003E98 


4453 


4231 


2042 


4954 


003EA0 


3320 


2250 


4152 


5449 


003EA8 


414C 


2052 


4543 


4F52 


003EBO 


4453 


2220 


5345 


5420 


003EB8 


ODOA 








003EBA 


4453 


4231 


2042 


4954 


003EC2 


3520 


2245 


4E4U 


2044 


003ECA 


4154 


4120 


4348 


4543 


003ED2 


4B22 


2053 


4554 




003ED8 


ODOA 








0O3EDA 


4453 


4231 


2042 


4954 


003EE2 


3220 


224C 


4F53 


5420 


003EEA 


4245 


4749 


4E4E 


494E 


003EF2 


4720 


4F46 


2042 


4C4F 


003FFA 


434B 


2220 


5345 


5420 


003F02 


ODOA 








003F04 


4453 


4231 


2042 


4954 


003FOC 


3620 


2256 


454C 


4F43 


0O3F14 


4954 


5920 


4552 


524F 


003F1C 


5222 


2053 


4554 





4021 T2.E004A DC CDSB1 BIT6 "ENVELOPE CHECK" SET',X'0D0A' 



4022 T2.E005 DC CDSB1 BIT2 "PARTIAL RECORD" SET'jX'ODOA' 



4023 T2.E005A DC CDSB1 BIT5 "PREAMBLE ERROR" SET^X'ODOA" 



4024 T2.E006 DC C"DSE1 BIT3 "MULTIPLE TRACK" SET'.X'ODOA' 



4025 T2.E006A DC CDSB1 BIT4 "POSTAHBLE ERROR" SET',X'ODOA' 



4026 T2.E007 DC CDSB1 BIT4 UNUSED BIT SET" ,X" ODOA* 



4027 T2.E007A DC CDSB1 BIT3 "PARTIAL RECORDS" SET',X'0D0A' 



4028 T2.E008 DC CDSB1 BIT5 "END DATA CHECK" SET*,X*ODOA* 



4029 T2.E008A DC CDSB1 BIT2 "LOST BEGINNING OF 3L0CK" SET'fX'ODOA" 



4030 T2.E009 DC CDSB1 BIT6 "VELOCITY ERROR" SET^X'ODOA* # 



1TD40210 



1TD40220 



1TD402^0 



f' T 'D40240 



* n, D40250 



WTD402'>0 



, f'D40270 



MTD40280 



HTD40290 



HTD40300 



HI3H PE8FOHBASC3(6"50)?AETAPE 
TFST ? 
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003F22 


ODOA 








003F24 


4453 


4231 


2042 


4954 


003F2C 


3120 


2253 


4345 


5722 


003F34 


2053 


4554 






003F38 


ODOA 








00 3F3A 


4453 


4231 


2042 


4954 


0Q3F4 2 


3720 


2244 


4941 


4720 


003F4A 


4R4F 


4445 


204C 


415" 


003F52 


4348 


2220 


5345 


5420 


003F5A 


ODOA 








003F5C 


4453 


4231 


2042 


4954 


003F64 


3020 


2243 


5943 


4C49 


003F6C 


4341 


4C20 


5245 


4455 


003F74 


4E44 


414F 


4359 


2043 


003F7C 


4845 


434B 


2220 


5345 


003F84 


5420 








003F86 


ODOA 








003F88 


4453 


4231 


2042 


4954 


003F90 


3820 


2243 


5243 


2045 


003F98 


5252 


4F52 


2220 


5345 


003FA0 


5420 








003FA2 


ODOA 








003FA4 


4453 


4231 


2042 


4954 


003FAC 


38 20 


4953 


204E 


4F54 


003FB4 


20 5A 


4552 


4P20 




003FBA 


ODOA 








003FBC 


4453 


4232 


2042 


4954 


003FC4 


3020 


2244 


4941 


474F 


003FCC 


4F53 


5449 


4320 


4149 


003FD4 


4420 


3722 


2053 


4554 


003FDC 


ODOA 








003FDE 


4453 


4232 


2042 


4954 


003FE5 


3720 


2249 


4420 


4348 


003FEE 


4543 


4322 


2053 


4554 


003FF6 


ODOA 








003FF8 


4453 


4232 


2042 


4954 


004000 


3120 


2244 


4941 


474F 


004008 


4F53 


5449 


4320 


4149 


004010 


4420 


3622 


2053 


4554 


004013 


ODOA 








00401A 


4453 


4232 


2042 


4954 


004022 


36 20 


2256 


454C 


4F43 


00402A 


4954 


5920 


4348 


4543 


004032 


4322 


2053 


4554 




00403 S 


ODOA 








00403A 


4453 


4232 


2042 


4954 


004042 


3220 


2244 


4941 


474?. 


00404A 


4F53 


5«49 


4320 


4149 


004352 


53 20 


3522 


2053 


4554 


00405A 


ODOA 








00405" 


4453 


4232 


2042 


4954 


004064 


3520 


2254 


4143 


4820 


0O4C5C 


4541 


494C 


2220 


5345 



4031 T2.E009A DC 



4032 T2.E00A DC 



CDSB1 BIT1 "SKF'rf" SET^X'ODOA" 



CDSB1 BIT7 "DIAG KODE LATCH" SF" 1 " ,X ' OB" A ' 



4033 T2.F0OAA DC CDSB1 FITO "CYCLICAL REDUNDANCY CHFCK" SET ' ,7 ' ODOA ' 



MTD40310 



M m n40320 



HTTJU0330 



4034 T2.E00B DC CDSB1 ETTP "CRC ERROR" SET'jX'ODOA* 



4035 T2.E008A DC CDSB1 BITS IS NOT ZERO' ,X "ODOA ' 



4036 T2.E00C DC CDSB2 BITO "DIAGNOSTIC AID 7" SET ■ ,\"ODC A ' 



4037 T2.E00CA DC 



♦038 T2.E00D DC 



4039 T2.E00DA DC 



4040 T2.E00E DC 



4 041 "'2.E00EA 



CDSB2 PIT7 "ID CHECK" SET',X'0D0A' 



CDS32 3IT1 "DIAGNOSTIC AID <=<" SET* ,X* 0D" A ' 



CDS32 BIT6 "VELOCITY CHECK" SET',X'ODOA' 



C*DS32 BIT2 "DIAGNOSTIC AIS 5" SET',X*0DO»' 



CDSB2 3IT5 "TACK FAIL" SFT' ,X ' ODOA' 



"TDU0340 



wtt>403 c ;0 



«tTnU03'i0 



T"D40370 



f I 'D403?0 



,,T D40?°0 



«f'"D40400 



"fT!4 4 1 ■' 
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004074 


542C 








004076 


ODOA 








004078 


4453 


4232 


2042 


4954 


004CS0 


3320 


2244 


4941 


474E 


004088 


4F53 


5449 


4320 


4149 


004090 


4420 


3422 


2053 


4554 


004098 


ODCA 








00409A 


4453 


4232 


2042 


4954 


0040A2 


3420 


2245 


5241 


5345 


0040AA 


2057 


5249 


5445 


2043 


0040B2 


5552 


5245 


4E54 


2046 


0040BA 


41U9 


4C55 


5245 


2220 


0040C2 


5345 


5420 






0040C6 


ODOA 








0040C8 


4453 


4232 


2042 


4954 


0040D0 


3420 


2244 


4941 


474E 


0040D8 


4F53 


5449 


4320 


4149 


0040E0 


4420 


3322 


2053 


4554 


0040E8 


ODOA 








0040EA 


4453 


4232 


2042 


4954 


0040F2 


3320 


224C 


4F4F 


504F 


0040FA 


5554 


2220 


5345 


5420 


004102 


ODOA 








004104 


4453 


4232 


2042 


4954 


00410C 


3520 


2244 


4941 


474F 


004114 


4F53 


5449 


4320 


4149 


00411C 


4420 


3222 


2053 


4554 


004124 


ODOA 








004126 


4453 


4232 


2042 


4954 


00412E 


3220 


224E 


4F20 


4441 


004136 


5441 


2220 


5345 


5420 


00413E 


ODOA 








004140 


4453 


4232 


2042 


4954 


004148 


3420 


2244 


4941 


474E 


004150 


4F53 


5449 


4320 


4149 


004158 


4420 


3122 


2053 


4554 


004160 


ODOA 








004162 


44 S3 


4232 


2042 


4954 


00416A 


3120 


2249 


4247 


204F 


004172 


5645 


5246 


4C4F 


5722 


00417A 


2053 


4554 






00417E 


ODOA 








004180 


4453 


4232 


2042 


4954 


004188 


3720 


2244 


4941 


474E 


004190 


4F53 


5449 


4320 


4149 


004198 


4420 


3022 


2053 


4554 


0041A0 


ODOA 








0041A2 


4453 


4232 


2042 


4954 


0041AA 


3020 


2244 


4541 


4420 


0041B2 


5452 


4143 


4B20 


5022 


0041BA 


2053 


4554 






0041BE 


ODOA 








0041C0 


4453 


4232 


2042 


4954 



4042 T2.E00F DC CDSB2 BIT3 "DIAGNOSTIC AID 4" SET ' ,X ' ODOA ' 



4043 T2.E0OFA DC CDS32 BIT4 "ERASE WRITE CURRENT FAILURE" SET'jX'ODOA' 



MTI3U042O 



>!' P D40430 



4044 T2.E010 DC CDSB2 BIT4 "DIAGNOSTIC AID 3" SETSX'ODOA' 



4045 T2.E010A DC CDSB2 BIT3 "LOOPOUT" SET'jX'QDOA' 



4046 T2.E011 DC CDSB2 BIT5 "DIAGNOSTIC AID 2" SET^X'ODOA* 



4047 T2.E011A DC CDSB2 BIT2 "NO DATA" SET*,X'0D0A' 



4048 T2.E012 DC CDSB2 BIT4 "DIAGNOSTIC AID 1" SET*,X'0D0A' 



4049 T2.E012A DC CDSB2 BIT1 "IBG OVERFLOW" SET',X'0D0A' 



4050 T2.E013 DC CDSB2 BIT7 "DIAGNOSTIC AID 0" SET'jX'ODOA* 



4051 T2.E013A DC CDSB2 EITO "DEAD TRACK P" SET*, X" ODOA' 



4052 T2.E014 DC C*DSE2 BIT8 "TACH" SET'rZ'ODOA* 



MTD40440 



f^D40450 



1^040460 



HTD40470 



HTD40480 



W" , D40490 



1TD40S00 



HTD40510 



MTD40520 
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0041C8 


3820 


2254 


U143 


4822 


0041D0 


2053 


4554 






0041D4 


ODOA 








0041D6 


4453 


4232 


2042 


4954 


0041DE 


3820 


4953 


204E 


4F54 


0041E6 


205A 


4552 


4F20 




0041FC 


ODOA 








0041EF 


4453 


4233 


2042 


4954 


0041F6 


3020 


2245 


4F54 


2220 


0G41FE 


5354 


4154 


5^53 


2053 


004205 


4554 








004208 


ODOA 








00420A 


4453 


4233 


2042 


4954 


004212 


3120 


2242 


4F54 


2220 


00421A 


5354 


4154 


5553 


204E 


004222 


4 P 54 


2053 


4554 




004228 


ODOA 








00422A 


U453 


4233 


2042 


4954 


004232 


3220 


2257 


5249 


5445 


00H23A 


2049 


4E48 


4942 


4954 


004242 


2220 


4E4F 


5420 


5345 


00424A 


5420 








00424C 


ODOA 








00424E 


4453 


4233 


2042 


4954 


004256 


3320 


5345 


542C 


2022 


00425E 


4649 


4C45 


2050 


524F 


004266 


5445 


4354 


2220 


4953 


00426E 


204F 


4E20 






004272 


ODOA 








004274 


4453 


4233 


2042 


4954 


00427C 


3420 


2242 


4143 


4B57 


004284 


4152 


4420 


5354 


4154 


00428C 


5553 


2220 


5345 


5420 


004294 


ODOA 








004296 


4453 


4233 


2022 


4849 


00429E 


2044 


454E 


5349 


5459 


0042A6 


2220 


2620 


224E 


525A 


0042AE 


4922 


2042 


4F54 


4820 


0042B6 


5345 


5420 






0042BA 


ODOA 








0042BC 


4453 


4233 


2042 


4954 


0042C4 


3620 


2252 


4541 


4459 


0042CC 


2053 


5441 


c 455 


5322 


0042D4 


204E 


4^54 


2053 


4554 


0042DC 


ODOA 








0042DE 


4453 


4233 


2042 


4954 


0042E6 


37 20 


224F 


"E4C 


494E 


0042EE 


4520 


5354 


4154 


5553 


0042E6 


2220 


424F 


5420 


5345 


0042:2 


5420 








00^300 


ODOA 








004302 


4453 


4233 


2042 


4954 


004 30A 


3320 


2257 


5249 


5445 



4053 T2.E014A DC CDSB2 BITS IS NOT ZERO ' ,X * ODOA ' 



4054 T2.E015 DC CDSE3 3IT0 "EOT" STATUS SET'rX'ODOA' 



4055 T2.E016 DC CDSB3 BIT1 "BOT" STATUS NOT SETSX'ODOA' 



4056 T2.E017 DC CDSB3 3TT2 "WRITE INHIBIT" NOT SET * ,X ' ODOA ' 



4057 T2.E018 DC CDSB3 BIT3 SET, "FILE PROTECT" IS 0N',V0D0A' 



4058 T2.E019 DC CDSB3 BIT4 "BACKWARD STATUS" SET* ,X * ODOA ' 



4059 T2.E01A DC CDS33 "HI DENSITY" £ "NRZI" BOTH SET',y'0D0A' 



4060 T2.E01B DC CDSB3 BIT6 "READY STATUS" NOT SET',X*0DOA' 



4061 T2.E01C DC CDSE3 BIT7 "ONLINE STATUS" NOT SET',X'0D0A' 



4052 T2.E01D 



CDS33 BIT6 "WRITE STATUS" SET ' ,X ' ODOA ' 



M' r D40530 



MT0KO54O 



f' n D40550 



Y'"n40560 



YTt)40570 



* m D40580 



V ' T 'D40590 



" ,p D40600 



""D40«10 



"TD40620 
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00U312 


2053 


5441 


5455 


5322 


00431A 


2053 


4554 






00431E 


ODOA 








004320 


4453 


4233 


2022 


4445 


004328 


4144 


2054 


5241 


434B 


OOH330 


5322 


2053 


4554 




00U336 


ODOA 








00U338 


5441 


5045 


2049 


5320 


00<*340 


494E 


2047 


4352 


2044 


004348 


454E 


5349 


5459 


204D 


004350 


4F44 


4520 






004354 


ODOA 








004356 


5441 


5045 


2049 


5320 


00435E 


494E 


2050 


4520 


4445 


004366 


4E53 


4954 


5920 


4D4F 


00436E 


4445 








004370 


ODOA 








004372 


5441 


5045 


2049 


5320 


00 4 37 A 


494E 


204E 


525A 


4920 


004382 


4445 


4E53 


4954 


5920 


00438A 


4D4F 


4445 






00438E 


ODOA 








004390 


4452 


4956 


4520 


2A2A 


004398 


2A20 








00439A 


8D0A 








00439C 


4445 


5649 


4345 


2053 


0043A4 


5441 


5455 


5320 


4841 


0043AC 


4C46 


574F 


5244 


3D2A 


0043B4 


2A2A 


2A20 






0043B8 


ODOA 









4063 T2.E01E DC CDSB3 "DEAD TRACKS" SET*,X'0D0A' 

4054 T2KSG1 DC C"TAPE IS IN GCR DENSITY MODS ' ,X' ODOA ' 

4055 T2MSG2 DC C'TAPE IS IN PE DENSITY MODE ' ,X ' ODOA ' 

4066 T2HSG3 DC C'TAPE IS IN NRZI DENSITY KODE ■ ,X ' ODOA ■ 

4067 T2ERHSG0 DC C'DRIVE ***',X'8D0A' 

4068 T2ERHSG1 DC C'DEVICE STATUS HALFWOHD=**** ' ,X'0D0A ' 



nTD40630 



"!TT)40640 



H' f D40650 



fTD40fi«0 



MTD40670 



TTD40680 
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4070 ******************************************************* 1' r D10''CO 

4071 * TEST 3 INTERECORD GAPS, TAPE MARKS AND ERASE RECORD * MTD40710 

4072 * CAPS. * M^D«0 7 20 

4073 * * mt D ik)73o 

4074 * PURPOSE: THIS TEST IS TO EXERCISE THE DRIVE AND THE * H^DU0' 7 U0 

4075 * FORMATTER A3 WELL AS THE INTERFACE ITSELF IN * M^tlO^O 

4076 * RECOGNITION OF INTERRFCORP GAPS AND END-OF FILE. * T"r>U0760 

4077 * it WILL ALSO CHECK CUT THE ERASE RECORD GAP * M'"D40770 

4078 * COMMAND. * MTD40780 

4079 * * M'"D40790 

4080 * TEST SPEC? THE TEST STARTS WITH AN OUTPUT OF A * MTD40800 

4081 * NUMBER OF RECORDS AND FILES AS DETERMINED BY THE * •f T 'D40810 

4082 * OPTIONS WITH THE RECORD SIZE ALSO AS DETERMINED * MTD40820 

4083 * THE TAPE IS THEN PEWINDED AND READS DATA * MTD40830 

4084 * COMPARES ARE PERFORMED. DURING THESE READS * wtt)jjOS40 

4085 * RECOGNITION OF INTERRECORD GAPS AND TAPE MASKS * «f"D40850 

4086 * APE MADE. * M^D408«0 

4087 * * Mi , nijo c <70 
4038 * ERRORS: * M T D40880 
1(089 * * M T D40890 

4090 * OPTIONS: * M^D40900 

4091 * TRMODE, DRIVE, SELCH, FILES, RECORDS, BYTES, AND * VDU0910 

4092 * DRVTYPE. * ""'D40920 

4093 ******************************************************* MTD409 30 



00433A 41F0 B98C =007D4A 4095 TEST3 BAL R15,TESTINIT INITIALIZE TEST T"D40950 

0043BE 41 '0 ABF6 =006FBe 4096 BAL R15,SEL.5 CHECK ONLINE OPTION MTl)40960 

4097 * M' T 'D40°70 

4098 ******************************************************* y""D40980 

4099 * * V'D40990 

4100 * CHECK SODS OF TRANSFER * M^D41000 

4101 * * HTD41010 

4102 ******************************************************* M,p D41020 
0043C2 7330 2124 4103 TST3.1 LHL R3 ,TFK0DF+SVALU1 WHAT KIND OF TRANSFERS? "TD41030 
0043C6 4230 82BA =004684 4104 *NZ TST3.S BRANCH TO SELCH TRANS. IF ONE ^041040 

4105 ******************************************************* M 7 'D4 1050 

4106 * * "^041060 

4107 * OTHEP'JISE READ-WRITE DATA TRANSFERS * M"'D41070 

4108 * * MTD41080 

4109 ******************************************************* M' r D41090 

E15,I,00P?0P " m D41100 

TST3.END NEXT SEQUENCE mttiuhio 

TST3.END PROCEED LIMIT M""D41120 

P15,REHMT REWIND THE TAPE P01 y"DU1130 

R15,4RTENB IS WRITE ENABLED ON MAG TAPE "•"D41140 

R4,TESTPAT+10 LOAD 5AA5 D'TA MTD41150 

?5,FILES + SVALU1 LOAD FILE COUNT "TDHHM 

R6,?SC0PDS + SVALU1 LOAD RECORD COUNT m?T)41170 

R14,CCLFAR CLEAR INTERFACE " T D41180 



0043CA 


41F0 


3FBE 


=00838C 


4110 






E :AL 


0043D0 


0000 


487A 




4111 






DAC 


0043D4 


0000 


4 87A 




4112 






DAC 


0043D8 


41F0 


3CE6 


=D080D2 


4113 






BAL 


0043DC 


41F0 


BCC4 


=008CA4 


4114 






?AL 


0043E0 


7340 


4000 


£4 30 


4115 






LHL 


004326 


7350 


2CB4 




4116 






LHL 


0043EA 


73S0 


20FA 




4117 


T3. 


,2C 


LHL 


0043EE 


41^0 


B7A8 


=3C7P9A 


4113 


T3. 


.22 


BAL 
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0043F2 


4150 


B7DC 


=007BD2 


0043F6 


7370 


200C 




0043FA 


2771 






0043FC 


C370 


0001 




♦004400 


2133 




=004406 


004402 


41E0 


B8E2 


=007CE8 


004406 


4130 


B876 


=007C80 


00440A 


9814 






00440C 


2772 






00440E 


2282 




=00440? 


004410 


41E0 


B7D0 


=007EF4 


004414 


41E0 


B7C4 


=007BDC 


004418 


C430 


OOCO 




00441C 


4230 


BD1E 


=00813E 



004420 
004422 
004426 
00442A 



00442E 
004430 
004434 
004438 
00443C 



004440 
004444 
004448 
00444C 
004450 
004452 
004456 
00445A 
00445E 
004464 
004466 
*004468 
00446A 
00446E 
004472 
004476 
00447A 
00447E 
004482 
004486 
00448A 



2761 






4220 


FFC8 


=0043FF 


41E0 


B842 


=007C6C 


41E0 


B7B6 


=007BE4 



2751 

4220 FFB6 
41E0 B7A4 
C430 OOCO 
4230 BCFE 



=0043EA 
=007BDC 

=00813F 



41F0 


BC8E 


=0080D2 


7340 


20B4 




7360 


20FA 




7390 


200C 




2470 






41E0 


B744 


=007B9A 


41E0 


B800 


=007C5A 


41E0 


B7C4 


=007C22 


D917 


4001 


89D0 


2672 






0597 






2027 




=00445* 


41E0 


B776 


=007BE4 


41E0 


B76A 


=007EDC 


C430 


OOCO 




4230 


BCC4 


=00813E 


4800 


208A 




4230 


8026 


=0044A8 


41E0 


B838 


=007CBE 


41E0 


B868 


=007CF2 


2438 







4119 






BAL 


R14,CDENS 


4120 






LHL 


?.7,BYTES + $VALU1 


4121 






SIS 


R7,1 


4122 






THI 


R7,X'0001 r 


4123 






BNZ 


T3.02A 


4124 






BAL 


R14,CW50DBY 


4125 


T3. 


.02A 


BAL 


S14,CWRITE 


4126 


T3. 


.2A 


WHR 


R1,P4 


4127 






SIS 


R7,2 


4128 






3NLS 


T3.2A 


4129 






BAL 


R14,SENSTA1 


4130 






BAL 


R14,SENSTA 


4131 






HHI 


RS/X'CO' 


4132 






B!?Z 


SNS.ERR 


4133 


* 








4134 


* 




OUTPUT ANOTHER RECORD? 


4135 


* 








4136 


T3. 


,2DA 


SIS 


P.6,1 


4137 






BP 


T3.2B 


4138 






BAL 


R14,CWRE0F 


4139 






BAL 


R14,SENSTA1 


4140 


* 








4141 


* 




OUTPUT ANOTHER FILE? 


4142 


* 








4143 






SIS 


R5,1 


4144 






BP 


T3.2C 


4145 






BAL 


R14,SENSTA 


4146 






NHI 


?.3,X'CQ' 


4147 






BNZ 


SNS.ERR 


4143 


* 








4149 


* 




LET'S 


NOW READ IT BACK 


4150 


* 








4151 






BAL 


R15,REWMT 


4152 






LHL 


R4,FILES+$VALU1 


4153 


T3. 


,3G 


LHL 


R6,REC0RDS+$VALU1 


4154 


T3, 


.3F 


LHL 


R9,3YTES+$VALU1 


4155 






LIS 


R7,0 


4156 






BAL 


R14,CCLEAR 


4157 






BAL 


R14,CREAD 


4158 


T3. 


,3J 


BAL 


R14,SENSTA3 


4159 






RH 


R1,READB0F(R7) 


4160 






AIS 


P7,2 


4161 






CLR 


R9,S7 


4162 






BP 


T3.3J 


4163 






BAL 


R14,SENSTA1 


4164 






BAL 


R14,SENSTA 


4155 






NHI 


FSjX'CO' 


4166 






BKZ 


SNS.ERP 


4167 






LH 


R0,DEVTYPE+$VALU1 


4158 






BNZ 


T3.3E 


4159 






BAL 


P.14 r CN0P3 


4170 






BAL 


R14,REDE 


4171 






LIS 


R3,8 



OUTPUT DENSITY COMMAND 
LOAD RECORD LENG T H 

IS BYTES AN ODD VALUE? 

IF NOT, CONTINUE AS NORMAL 

ISSUE A WRT ODD PYTE COMMAND 

PUT INTERFACE IN WRITE MODE 

WRITE A HALFWORD 

DECREMENT HALFWORD COUNT 

CONTINUE WRITING IF NOT LESS THAN 

CHECK STATUS OF INTERFACE 

YES! SENSE STATUS AGAIN 

ZERO IN ON ERROR BITS 

ERROR ROUTINE IF UP 



DECREMENT RECORD COUNT 
IF POSITIVE OUTPUT ANOTHER RECORD 
OTHERWISE WRITE AN END OF FILE 
WAIT FOR NO MOTION TO 



DECREMENT FILE COUNT 
IF POSITIVE OUTPUT ANOTHER FILE 
OTHERWISE ONE LAST STATUS CHECK 
ZERO IN ON ERROR BITS AGAIN 
ERROR ROUTINE IF SET 



REWIND MAG TAPE 

LOAD FILE COUNT 

LOAD RECORD COUNT 

GET BYTES VALUE 

ZERO OUT INDEX 

CLEAR INTERFACE 

PUT INTO READ MODE 

WAIT FOR BUSY TO 

READ HALFWORD 

DECREMENT BYTE COUNT 

COMPARE TO SPECIFIED VALUE + 4 

CONTINUE IF LESS THAN 

CHECK STATUS FO 1 ? 

CHECK STATUS AGAIN 

CHECK FOR ERRORS 

BRANCH IF ERROR SET 

LOOK IF STC OR TELEX 

ADDRESS D C :B3 

LOAD TEST OFFSE"" 



MTD41190 
MTD41200 
MTD41210 
M" , D41220 
MTD41230 
»fTri41240 
MT T )41250 
MTD41260 
^T>r)41270 
»Tri41290 
MTD41290 
WTQ41300 
MTD41310 
MTD41320 
MTD41330 
MTD41340 
MTD41350 
MTD41360 
M' ,, D41370 
M q 'D41380 
jCnpui3qO 
MTD41400 
MTD41U10 
K"M)41420 
M"'D41430 

MTD41450 
M' r D41460 
MTD41470 
MTD41480 
HTD41490 
MTD41 c ;00 
"TD41510 
MTD41520 
"^041^30 
M*D41540 
M' T 'D41550 
MT , D415«i0 
M' T, D41570 
M^D41580 
VPDIH590 
MTD41600 
HTD41610 
MTD41620 

MTD41640 
M^D41650 
MTD41660 
MT>41670 
THXH680 
"'"041690 
Y T D41' 7 00 
Y n 'D41710 
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00448C 
*004490 
004<!92 
004"95 
00449A 
00449E 
0044A4 
0C44AS 
Q044AA 
0044AE 
0044B2 
004436 
0044BA 
0044BE 
0044C2 
0044C6 
OOUUCA 
Q0U4CE 
0044D2 
0044D6 
0044DA 
0044DE 
0044E4 
0044E8 
0044EA 
0044EE 



0044F2 
C044FS 
0044FC 
004500 
00450U 
004508 
00450C 
004510 

004514 
004518 
OO115IC 
0C451E 
004522 
004526 
00452 A 
00452E 
00^532 
004536 
0045 3 A 



7430 


B^BS 


=008448 


233C 




=0044A8 


-:fi50 


842S 


=0048PE 


41 FO 


33CE 




&6F0 


2A4C 




56 EO 


4000 


8596 


'4 330 


BE24 


=0082CC 


2761 






4220 


FF9E 


=00444C 


41E0 


R7A8 


=007C5B 


4i?o 


37 2F 


= 007P ,7 & 


41E0 


B722 


=007PPC 


C430 


0002 




4230 


8026 


=0044E8 


caoo 


00 1 r 




4000 


BEFE 


=0083C8 


E650 


853E 


=004A0C 




3E9C 


=00836F 


E650 


840E 


=0048E4 


41E0 


28AE 




35F0 


2A4C 




E6E0 


4000 


8596 


4300 


BDE4 


=0082CC 


2741 






4220 


FF5A 


=004448 


4300 


BE5C 


=00834E 



41F0 


BE96 


=00838C 


0000 


487A 




0000 


487A 




41E0 


B79A 


=007C9E 


41 EC 


B796 


=007C9E 


41V0 


BBC6 


=0080D2 


7330 


2124 




4330 


8320 


=004834 


41F0 


B8F8 


=007E10 


7360 


BEFO 


=00840C 


9161 






73<56 


BEF6 


=008418 


E640 


BF08 


=00842F 


41F0 


391A 


=0C7F44 


41 EO 


B7CC 


=007CFA 


41K0 


B6A0 


=007PD2 


41E0 


B74A 


=007C80 


r.'6 50 


83EA 


=004924 


"600 


3014 


=004552 



4172 
4173 
4174 
4175 
4176 
4177 
4173 
4179 
4180 
4181 
4182 
4133 
4184 
4185 
4186 
4187 
4183 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 

4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4 221 
4222 
4223 
4 224 



T3.3F 



T3.3H 



TBT 


E3,SNSHW 


BZ 


T3.3E 


LA 


E5,T3.EC02 


BAL 


R14,T2FRB0RA 


LA 


R15,NESSAGE1 


LA 


E14,C0NTMSG 


B 


EE30PX 


STS 


P.6,1 


BP 


T3-3F 


5AL 


R14,CREAD 


BAL 


Rlu^SENSTA 1 


PAL 


R14,SENSTA 


NHI 


P3,X'02* 


P. NZ 


T3.3K 


LHI 


E0,X'1E' 


STH 


P.0,STATGD 


LA 


R5,T3.E012 


PAL 


R15,L00P2 


LA 


R5,T3.E004 


BAL 


R14,T0ERROR3 


LA 


E15,HESSAGE1 


LA 


E14,C0NT»SG 


h 


EERORX 


SIS 


E4,1 


F-? 


T3.3G 


3 


PASS 



CHECK FO" '-'RT S^A IF»C T IVE 

BRANCH IF ZERO 

INCORPFCT STATUS ON °EAD-"WRITF" S* 

DRIVE AND STATUS HALFVORD 

SUSPECTED ERROR CONTROLLER 

DECREMENT RECORD COUNT 

INPUT ANOTHER RECORD IF + 

GIVE BEAD COMMAND AGAIN 

VAIT FOR BUSY 

CHECK STATUS FO? EOF 

ZERO IN ON EOM STAT 

BRANCH ON IF SET 

EXPECTED STATUS(EOF) 

STORE IT 

TAPE MARKS WERE NOT HRITTEN 

READ DATA-"EOF" DID NOT SET 



SUSPECTED ERROR WITH CONTROLLER 

DECREMENT FILE COUNT 

READ ANOTHER FILE IF POSITIVE 



******************************************************* 

* * 

* ERASE RECORD GAPS * 

* * 

* ***************************************************** 



TEST3.4 BAL 
I>AC 
PAC 
PAL 
BAL 
BAL 
LHL 
BZ 

*LET'S WRITE A 
BAL 
LHL 
SLKLS 
LHI. 
LA 
BAL 
BAL 
BAL 
BAL 
LA 
T.R 



E15,L00P""0P 

TST3.END 

TST3.END 

R14,CST0P 

R14,CST0P 

R15,REW»T 

R3,TRMCDE+SVALU1 

TST3.NST 

RECORD FIRST 

R15,PEST0R?1 

R6,DENSFLAG 

P6,1 

R6,GAPLES(R5) 

R4 ,TESTFAT + S 

?15,SEL.3 

R14,WRRUF 

?14,CDENS 

?14,CWRITE 

P5,T3.EC07 

P0.T3.4DA 



CLEAR SELCH FIRST 

REWIND ?AG TAPE 'IRST 
LOAD TYPE OF TRANSFER 
WILL NOT DO IF ZERO 

ENABLE IN"" 

LOAD DENSITY FLAG 

PUT ON HALFWOPD BOUNDARY 

LOAD RECORD LENGTH 

LOAD PATTERN ADDR. 

SET UP '''RITE BUFFER 

SET UP SELCH KRI^p ADDRESSES 

OUTPUT DENSITY COHMAND 

PUT INTERFACE INTO WRITE N0D5 

ERASE RECORD GAP.. 

INTERRUPT ADDRESS 



*TD41720 
MTD41''30 
MT!)41740 
VTD41T50 
f' T 'D41760 
MTT541770 
VTD41780 
WTD41790 
"^41800 
yrn4l8lO 
"T041B20 
WTD41830 
^1)41840 
MTD41850 
yTT)U1"fi0 
r"D41870 
1^041880 
VTD41890 
f"D41900 
M 1 'D41910 
H^D41920 
f^D41930 
VD41940 
^■"DUiqsO 

•ii'Difioeo 

?* T D41970 

KTDU1990 
H^D42000 
T'D42010 
¥•^042020 
MT'D42030 
MTD42040 
^1)42050 
MT>420«0 
M n, D42070 
yTD420S0 
MTD42090 
MTD42100 
r T D42110 
MTI42120 
M^D42130 
M' I 'D42140 
"f w D42150 

MTT)[ f 21«0 

f"D42170 
Y T D42180 
YTD42190 
Ytt>42200 
"'"D42210 
wtt)(j2220 
WTD42230 
*TD42240 
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00453E 


4000 


21E8 




4225 


STH 


R0,DEVINT+2 


TABLE 


004542 


C800 


OFFF 




4226 


LHI 


R0,X'FFF" 


TIMVALUE 


004546 


41E0 


373C 


=007CS6 


4227 


PAL 


R14,CGC 


GIVE SELCH THE GO 


0C454A 


41F0 


162A 






BAL 


E 15, TIMER 


WAIT HERE FOR INTERRUPT 


00U54E 


4300 


2E06 




4229 


c 


■TIROS 


ELSE ERROR 


0C4552 


41F0 


B8B2 


=007F08 


4 23C 


T3.4DA BAL 


E15,EFST0RF 


RESTORE R1,R2,PSV 


004556 


41F0 


B91F 


=007F78 


4 231 


SAL 


?1^,SELCHK 


AND CHECK SELCH ENDING STAT 


U0455A 


41"0 


B9A4 


=007F02 


4232 


BAL 


P1S,SFLEND 


AND CHECK ENDING ADDR . 


00455" 


41^0 


BBBO 


=008112 


4233 


PAL 


?15, STATCHK 


AND CHECK INTERFACE STATUS 


004562 


C430 


0020 




4234 


SHI 


E3,X'20' 


IS 'EOT' SET 


♦004566 


2333 




=004 C £C 


4235 


BZ 


T3.4F 


CONTINUE IF NO 


004563 


41F0 


BB56 


=008CD2 


4236 
4237 


BAL 
*LET'S ERASE T 


R15,REKMT 
HE RECORD NOW 


REWIND MAG ^APE 


00456C 


41F0 


3B62 


=0080D2 


4238 


T3.4E BAL 


R15,REWMT 


REWIND MAG TAPE 


004570 


41E0 


831E 


=004892 


4239 


BAL 


R14,CERGAP 


GIVE ERASE GAP COMMAND 


004574 


41E0 


B66C 


=007EE4 


4240 


BAL 


E14,SENSTA1 


CHECK IMF. STATUS 


004578 


C430 


COCO 




4241 


NHI 


P.3,X'C0' 


LOCK AT ERROR BITS 


*00457C 


2333 




=004582 


4242 


BZ 


T3.4C 


AND 3RANCH ON IF ZERO 


00457E 


430C 


BB90 


=008112 


4243 
4244 


B 
♦LET'S OUTPUT 


STATCHK 
ANOTHER RECORD 


CHECK IT T 'T 


004582 


41E0 


3655 


=007£DC 


4245 


T3.4G BAL 


RIUjSENS^A 


CHECK STATUS 


004586 


C430 


0020 




4246 


NHI 


R3,X*20* 


FOR BOT 


00458A 


42 30 


80D6 


=004664 


4247 


BNZ 


T3.5RER 


OUTPUT ERROR? 


00458E 


7360 


3E7A 


=00840C 


4248 


LHL 


RS,DENS?LAG 


LOAD DENSITY FLAG 


004592 


9161 






4249 


SLHLS 


56,1 


OFFSET TO HALFWORD 


004594 


7366 


BE80 


=008418 


4250 


LHL 


36,GAPLEN(R6) 


LOAD RECORD LENGTH 


034598 


5640 


BS9A 


=008436 


4251 


LA 


R4,TESTPAT+16 


LOAD PATTERN ADDR. 


00459C 


41F0 


B8A4 


=007F44 


4252 


BAL 


R15,?EL.3 


SET UP WRITE BUFFER 


0045AO 


41E0 


B756 


=007CFA 


4253 


BAL 


R14,HRBUF 


SET UP SELCH WRITE ADDRESSES 


0045A4 


41E0 


B62A 


=Q07ED2 


4254 


BAL 


R14,CDENS 


OUTPUT DENSITY COMMAND 


0045A8 


4130 


36 D4 


=007C80 


4255 


BAL 


R14,CWRITE 


PUT INTERFACE INTO WRITE MODE 


0045AC 


E550 


8390 


=004940 


4256 


LA 


35,T3.E00A 


SELCH WRITE AFTER ERASE CAP 


0045B0 


E600 


8014 


=0045C8 


4257 


LA 


R0,T3.4J 


INTERRUPT ADDRESS 


0045B4 


4000 


21E8 




4258 


STH 


R0,DEVINT+2 


STORF INTO TABLE 


0045B8 


C800 


OFFF 




4259 


LHI 


ROfX'FFF' 


TIMVAL 


0045BC 


41E0 


B6C6 


=007C86 


4260 


BAL 


314, CGO 


GIVE SELCH ^HE GO 


0045C0 


41F0 


162A 




4261 


BAL 


R15, TIMER 


<?AIT FRO SELCH INTERRUPT 


0045C4 


4300 


2E06 




4262 


B 


T1F09 


ELSE ERROR 


0045C8 


41F0 


B83C 


=007F08 


4263 


T3.4J BAL 


R15, RESTORE 


RESTORE R1,R2,PSW 


0045CC 


5820 


4000 


6958 


4264 


L 


R2,RSAVE+8 


RESTORE R2 


0045D2 


41F0 


B8A2 


=007F78 


4265 


SAL 


F15,SELCHK 


AND CHECK ENDING STAT 


0045D6 


41F0 


B928 


=007F02 


4266 


BAL 


R15,SELEND 


AND ENDING ADDRESS 


0045DA 


41F0 


EP34 


=008112 


4267 


BAL 


5 15, STATCHK 


AND INTERFACE STATUS 










4268 


♦LET'S DETERMINE WHAT WE HAVE NOV 


OOU50E 


41F0 


BAFO 


=008CD? 


4269 


EAL 


R15,REWMT 


RFWIND KAG TAPE FIRST 


0045F2 


7 350 


BE26 


=00840C 


4270 


LHL 


R5,DENSFLAG 


LOAD DENSITY FLAG 


0045E6 


9151 






4271 


SLHLS 


R5,1 


PUT ON HV BOUNDARY 


0045E8 


7355 


BE2C 


=008418 


4272 


LHL 


E5,GAFLEN(P5) 


LOAD RECORD LENGTH 


0045EC 


E6 30 


4001 


89D0 


4273 


LA 


R3,READBUF 


LOAD ADDR OF READ BU^FFR 


0045F2 


5030 


BEE6 


=0084DC 


4274 


STA 


F3,RDBUF 


STORE I" 


0045F6 


0A3S 






4275 


SAP 


F.3,?5 


CALCULATE 3UFFER ST"E 


0045F8 


5030 


BEDC 


=0064re 


4276 


STA 


R3,ENDEUF 


STORE ENDING ADDR. 


0045FC 


41F0 


3818 


=007 r 18 


4277 


BAL 


R15,CLPBUF 


CLFAF SE»D3UF 



MTD422^0 
"«T'DH2260 
MTn42' , 7o 
1TD42280 
TD42290 
MT042300 
fi , D4?''10 
M T D42' : '20 
"TD42330 
MTTi42^40 
1^D42350 
^"'1)42360 
M n 'D42370 
M -"042380 
M"'D423°0 
MTD42400 
MTR42410 
M-PQ42420 
MTD42430 
w , T)42440 
M'"D42450 
MTD42460 
1-^042470 
M"'D42480 
WTD42490 
M' T 'D42500 
M" , D42^10 
HTI42520 
<JTT)42530 
M T D42540 
T' T 'D425^0 
^^D425«0 
f^D42570 
vT>pn2590 
""'D42590 
MTD42600 
"* ^042610 
wi'D42^20 
H q, D42«30 
W"D42640 
«f>r!42*50 
MTD42660 
MTD42670 
y t»t) 42*80 
W ^D42«90 
fTD42700 
f' F D42710 
*'"D427?0 
f^D42730 
^TD42740 

MTT)42"750 

M~n42760 
^^042770 
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004600 
004604 
00 4 «0S 
00460C 
004610 
004614 
004618 
00461C 
004620 
004624 
004628 
00462C 
004630 

004634 
004636 
00463A 
00463C 
004640 
004642 
004646 
00464C 
004652 

♦004654 
004656 
004658 
00465C 
00U65E 

♦004662 



004664 
004668 
00466C 
004670 
004674 
004678 
00467C 
004680 



004684 
0C4688 
C046SC 
004690 
004694 
004598 
O0469C 
0046AO 



41="0 


B726 


=00702* 


41F0 


B652 


=007C5A 


■:6-o 


8352 


=00U95F 


fsjo 


3014 


=004624 


4C00 


21E8 




C300 


OFFF 




41"0 


P67C 


=007098 


41"0 


162A 




4300 


2E8C 




41F0 


B7E0 


=007F08 


41F0 


B84C 


=007F78 


41F0 


B8D2 


=007F02 


41F0 


BADE 


=008112 


2430 






E540 


BDFC 


=008436 


2420 






7350 


BDCC 


=00840C 


9151 






7355 


BDD2 


=008418 


D354 


4200 


0000 


3363 


4001 


89D0 


0565 






2138 




=004664 


2531 






C720 


0001 




0535 






4330 


BCEC 


=00834F 


220E 




=004646 


0000 


4664 




0000 


4664 




4050 


BE94 


=0084FC 


4060 


3E92 


=008«FE 


4030 


BDA4 


=008414 


E650 


8304 


=004978 


41E0 


2CC4 




S6F0 


35F6 




E6E0 


BF16 


=008596 


4300 


BC48 


=0082CC 



41F0 3D04 =00838C 
0000 46A4 
0000 46P.4 
7320 2108 
4230 BCB6 =C0834F 
H«FO EF38 =C085D4 
=!6F0 BF18 =0085B8 
4300 BC28 =0082CC 



4278 
4279 
4280 
4281 
4282 
4283 
4284 
4235 
4286 
4 237 
4239 
4239 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
4323 
4329 
4330 



PAL 

EAL 

LA 

LA 

STH 

LHI 

BAL 

EAL 

t; 

T3.4L BAL 
BAL 
BAL 
BAL 

♦LET'S SEE IF 
LIS 
LA 
LIS 
LHL 
SLHLS 
LHL 

T3.4K LB 
LB 
CLR 
PNE 
AIS 
XHI 
CLAB 
FE 
B 



R15, FEBUF 
B14,CREAD 
R5,T3.F00B 
R0,T3.4L 
R0,DFVINT+2 
RO,X'FFF' 
?.14,CG0READ 
R15, TIMER 
T1H10 

R15, RESTORE 
R15,SELCHK 
R15/SELEND 
F15,STATCHK 
ME SKIPPED THE 
R3,0 

?4,TESTPAT+16 
52,0 

R5,DENSFLAG 
R5,1 

R5,GAPLEN(R5) 
R5,0(R4,R2) 
R6,READBHF(R3 
R6,R5 
T3.DEF 
R3,1 
R2,1 
R3,R5 
PASS 
T3.4M 



SET UP SELCH READ ADDRFSSFS 
GIVE THE READ COYSA'Ts 
SELCH READ OVER FRAS r GAP 
INTERRUPT ADORES"? 
INTO TABLE 
TT>!V?L 

GIVE THE SELCH THE GO 
WAIT 
ERRO° 

RESTORE R1,R2-, PSW 
CHECK SELCH ENDING STA.T 
CHECK ENDING ADDRESS 
CH^CK INF. STATUS 
ERASED GAP 

ZERO OUT POINTER 
LOAD TEST PATTERN 
SET UP INDEX REGISTF? 
LOAD DENSITY 
PUT ON H« BOUNDARY 
LOAD RECORD LENGTH 

) DATA THAT WAS ON TAPE 
COHPARF THE TWO 
NOT EQUAL-ERROR! 
INCREMENT POINTER 
0"1 L 1~1 
COMPARE WITH HAX 
END TEST IF EQUAL 
OTHERWISE SORE DATA COMPARE 



T3.EEER 
T3.DER 



EQU 

EQU 

STH 

STH 

STH 

LA 

BAL 

LA 

LA 



*************** 



* VE COME HERE IF TRS0DE=1 



R5,WST0RF 

R6,RST0RF 

33, INDEX 

R5,T3.E00C 

R14,T1ERR0FA 

R15,8ESSG3A 

R14,C0NT»SG 

FF.ROSX 

**************************************** 



STORE EXP 
AND STORE IT 

'ERASE GAP" DID NOT ERAS*" RECORD 
DRIVE AND DATA 

SUSPECTED ERROR WITH CONTROLLER 



I-************** 



T5T3.S 



BAL 

DAC 

DAC 

LHL 

BNZ 

LA 

LA 

3 



**************************************** 

R15,L00PT0P 

T3.5 
T3.5 



R2,SELCH+SVALU1 
PASS 

315,N0SELCK 
R14,SELMSG 

FE20RX 



NEXT SEQUENCE 
PROCEED LIKIT 
LOAD SFLCH ADDRESS 
BRANCH ON IF ADRESSED 



SUSPECTED ERROR WITH SELCH 
ABORT TESTING 



^042780 
«tt)u27Cio 
YTD42300 
M'"D42810 
MTD42820 
*' T 'D4?830 
«tdh2P40 
"TD42850 
HTD42860 
Hfi>ri4 2870 
y' I 'D42B80 
MTi-142390 
VD42900 
yTD42910 
f' p D42920 
HTD42930 
y TD42940 
wTT) tt2 950 
WTD42960 
fTD42970 
f^D42a80 
HTD42990 
^Ti)43000 
Y^D43010 
"'TD43020 
MT>43030 
1TD43040 

YTD43050 
MTD43060 
*TD430"'0 
«^D43080 
TTD43090 
ifPT)43100 
^^43110 
w^D43120 
T T 'D43130 
>! ,, 'D43140 
STDH3150 
MTD43160 

fT!)U3170 

N'"D43180 
TTD43190 
¥fDU3200 
n m n43210 
fTD43220 
f^D43230 
*'"D43240 
""'D43250 
wrp D43260 
"?' T 'D43270 
1TD43280 
fTD43290 
"TD43300 



HIGH PERF0PMANCE('25P)fcAGTAPE DIAGNOSTIC 06-253E01 M95 A 1 3 PAGE 94 08:31:07 12/23/33 
TEST 3 



C046A4 
GC46A8 
0046AC 
004630 
C0U£84 
0046BS 
0046BC 

ooueco 

0046C4 
0046C8 
0046CC 
0046D0 
0046D4 
0046D8 
0046DC 

*0046E0 
0046E2 
0046E6 
0046SA 
0046EE 
0046F2 
0046F6 
0046FA 
0046FC 
00U6FE 
004702 
004706 
00470A 
00470E 
004712 
004716 
00471A 

*00471E 
004720 

*004724 
004726 
004728 
00472C 
004730 
004734 
004736 



00473A 
00473E 
004742 
004746 
00474A 
00474E 
004752 
00475ft 



41F0 


BCE4 


=00638C 


OOCO 


U4F2 




0000 


487A 




41E0 


3SEA 


=CC7C9F 


41E0 


B5E5 


=007C9F 


41?0 


3A15 


=008CD2 


73C0 


2034 




E640 


BD6A 


=00842F 


41 r 


B748 


=007F10 


73*0 


2 OF A 




41 FO 


R753 


=007F36 


41E0 


B4C6 


=007P9A 


41E0 


B4FA 


=007FD2 


73A0 


200C 




C3A0 


0001 




2333 




=0046E6 


41E0 


B602 


=007CF8 


41E0 


3610 


=007CFA 


41E0 


B592 


=007C80 


E550 


82A8 


=00499A 


E500 


8014 


=00470A 


4000 


21ES 




080* 






260F 






4130 


3584 


=007C86 


41 r 


162A 




4300 


2E06 




41F0 


36FA 


=007E08 


41^0 


B766 


=007F78 


41F0 


B7EC 


=007F02 


41F0 


39F8 


=008112 


C430 


0020 




2334 




=004726 


41F0 


39AE 


=0080D2 


230B 




=00473A 


2761 






4220 


FFA4 


=0046D0 


41E0 


B53C 


=007C6C 


41E0 


B4B0 


=007EF4 


27C1 






4220 


FF6E 


=0046C8 



41F0 3994 
41F0 3RFE 
73C0 20B4 
7360 20FA 
41S0 B5DC 
41FQ 3508 
E650 826C 
S600 8016 



=0080D2 
=008040 



=007C2? 
=007C5A 
=0049C2 
=004770 



4 331 
4 3 32 
4"?33 
4334 
4335 
4335 
4337 
4333 
4 339 
4340 
4341 
4342 
4 34 3 
4344 
4345 
4345 
4347 
4348 
4349 
4350 
4351 
4352 
4353 
4354 
4355 
4 356 
4357 
4358 
4359 
4360 
4361 
4362 
4363 
4364 
436S 
.4 366 
4367 
4358 
4369 
4370 
4371 
4372 
4373 
4 37 4 
4 37 5 
4376 
4377 
4378 
4379 
4380 
4381 
4382 
4383 



T3.5 



T3.5C 



T3.5A 



T3.5A1 



T3.53A 



T3.5DB 



TST3.6 



T3.6B 
T3.6A 



HAL R15,L00PT0P 

DAC TEST 3. 4 

EAC TST3.END 

3AL R14,CST0P 

3AL R14,CSTCP 

BAL R15,REWMT 

LHL ?12,FILES+SVALU1 

LA ?4,TFSTPAT+8 

BAL R15,REST0RE1 

LHL R6,REC0RDS+SVALU1 

BAL R15,SELSETW 

BAL R14,CCLEAR 

BAL R14,CDENS 

LHL R10,BYTES+SVALU1 

THI F10,X'0001' 

BZ T3.5A1 

BAL K14,CWR0DBY 

BAL R14,5«RBUF 

BAL ?.14,CWRITE 

LA S5,T3.E0OD 

LA R0,T3,5BA 

STH R0,DEVINT+2 

L5 R0,R10 

AIS 50,15 

BAL R14,CG0 

BAL P15, TIMER 

3 T1R09 

BAL ?15, RESTORE 

BAL R15,SELCHK 

BAL R15,SELEND 

BAL R15,STATCHX 

NHI R3,X*20' 

3Z T3.5DB 

BAL R15,REWMT 

B TST3.6 

SIS B6,1 

BP T3.5A 

BAL B14,CWRE0F 

BAL H14,SENSTA1 

SIS R12,1 

BP ^3.5C 



3AL S15,RSWKT 

PAL H15,SELSETP 

LHL R12,FILES+SYALU1 

LHT. P6,P."C0RDS+SVALU1 

BAL 514,FEEUF 

BAL R14,CREAD 

LA R5,T3.E00F 

L». P0,T3.6C1 



R01 



ERASE RECORD GAP C 
PROCEED LIMIT 
STOP S r LCH FIRST 

REWIND THF TAPE 

LOAD FILE COUNT 

LOAD TEST PATTERN ADPESS 

ENABLE INT 

LOAD RECORD COUNT 

SETUP "SLCH FOR WRITE 

CLEAR INTERFACE 

OUTPUT DENSITY COMMAND 

GET PYTES VALUE 

ODD BYTE AMOUNT 



ISSUE writ KODD BYTE COMMAND 
SFT UP SELCH WRITE ADDRESSES 
PUT INTERFACE INTO WRITE MODE 
FILES, RECORDS, BYTES. . (SELCH WRIT r ) 
INTERRUPT ADDRESS 

TIM VAL 

INCREASE SOME R01 

GIVF SELCH THE GO 

WAIT 

ELSE ERROR 

RESTORE R1,R2,PSW 

CHECK. ENDING STATUS 

CHECK ENDING ADDRESS 

CHECK INTERFACE STAT 

IS EOT SET 

NO, CONTINUE 

ELSE REWIND MAG TAPE 

OTHERWISE SOMETHING DIFFERENT 

DECREMENT RECORD COUNT 

CONTINUE IF POSITIVE 

OTHERWISE WRITE A FILE MARK 

CHECK STATUS FOP 

DECREMENT FILE COUNT 

OUTPUT MORE FILFS 



LET'S CHECK WHAT »E DID NOW 



REWIND MAG TAPE 

SETUP SELCH FOR READ 

LOAD FILE COUNT 

LOAD RECORD COUNT 

SET UP SELCH READ ADDRESSES 

PUT INTERFACE IV READ MODE 

SELCH ?EAD ENDED INCORRECTLY 

XNTF C F ! .'PT ADDRESS 



MTD43310 
M' P D43320 
MTD43330 
WT94331K) 
MTDIS^O 
MTD43360 
M"'D43370 
M"'D43380 
M"'D43390 
vtt)U3U00 
wt-043410 
MTD43420 
MTD43430 
MTQ43440 
1Tr)43UR0 
MTD43460 
MTD43470 
M" , D43480 
MTD43490 
MTD43500 
MTO43510 
MTD43"^20 
M""D43530 
MTD43540 
MTD43^^0 
M m D43560 
MTD43570 
*' T, D43580 
M" , D43^90 
MTDH3600 
w m DU3fi10 
MTD43620 
MT043«30 
MTD43«40 
MTD43650 
"'"D43660 
"Tria3670 
MTD43680 

"TD43700 
"TD4 3710 
MT043720 
«T'i>u3"'30 
vpt)14.37UO 
M""D43750 
« m D43 -7 60 
MTQ43770 
1 * ,T 'D437fiO 
M T D43790 
*TD43S00 
"' 1, D43810 
MTi)43820 
"f^-)U3830 



HIGH PERF0HKANCE(6250)KAGTAPE DIAGNOSTIC 06-263R01 V 95A 1 3 PAGE 95 08:34:07 12/23/83 



T-.ST 3 



00475A 
00475E 
00D762 
004764 
004768 
0C476C 
004770 
004 774 
00477S 
00477C 
004 7S0 
*004784 
0047S6 
00478A 
00478E 
004792 
004795 
00479A 
00479C 
0047A0 
0047A4 
0047A8 
0047AC 
0047B0 
0047P4 
0047B8 
0047BC 
0047C0 
0047C4 
0047C8 
0047CC 
0047D0 
004704 
0047D8 
0047DA 
0C47DE 



0047E2 
0047S6 
004"'EC 
OO^-'EE 
3047F0 
0047?4 
0047F3 
00 47FE 



4000 


2138 




7300 


200C 




26 OF 






41F0 


3=>30 


=007CS6 


41F0 


162A 




4300 


2F8C 




41F0 


3694 


=0C7F08 


41F0 


B700 


=007E78 


41^0 


37S6 


=007F02 


41F0 


E992 


=008112 


C4 30 


.-v *-- 9 rv 




2335 




=0C478F 


41F0 


B948 


=0080D2 


4300 


3BC0 


=00834E 


E640 


3C9C 


=0084?E 


S650 


8252 


=0049E8 


41F0 


3048 


=0047E2 


27S1 






4220 


FFAA 


=00474A 


41E0 


34B6 


=007C5A 


41E0 


B43C 


=007EE4 


41E0 


B430 


=007PPC 


C330 


0002 




4230 


8024 


=004708 


E650 


3254 


=004A0C 


41F0 


B3B2 


=00836F 


S650 


8146 


=004906 


C800 


001E 




4000 


BCOO 


=0083C8 


41E0 


28AE 




E6F0 


2A4C 




S5E0 


3DC2 


=008596 


4300 


3AF4 


=0082CC 


27C1 






4220 


FF68 


=004746 


4300 


BB6C 


=00834F 



DOOO BCAA =008490 

£650 4001 89D0 

2410 

2420 

73 30 200C 

D375 0000 

D394 4200 COOO 

0578 



4364 


STH 


~:C,DEVINT+? 


4385 


LHL 


=C,3YTES+SVALU1 


438S 


A IS 


?0,15 


43b7 


PAL 


P14,CG0BEAD 


4388 


PAL 


?15, TIMER 


4389 


5 


"1B10 


4390 T3.6C1 BAL 


P15 ,PESTORF. 


4391 


SAL 


R15,SELCBK 


4392 


BAL 


R15,SELEMD 


4393 


BAL 


P15,STATCHK 


4 354 


SHI 


?3,X'20' 


4395 


FZ 


T3.6DB 


4396 


PAL 


ai5,BEVHT 


4397 


8 


PASS 


4398 T3.6DB LA 


R4,TESTPAT+8 


4399 


LA 


55,T3.E011 


4400 


BAL 


R15,DATC0MP 


4401 


SIS 


E6,1 


4402 


3? 


T3.6A 


4403 


BAL 


R14, CHEAP 


4404 


BAL 


R14,SENSTA1 


4405 


BAL 


?.14,SENSTA 


4406 


THI 


P3,X"02' 


4407 


BN? 


T3.6DC 


4408 


LA 


R5,T3.EC12 


4409 


BAL 


R15,L00F2 


4410 


LA 


P.5,T3.E004A 


4411 


LHI 


30,1'U' 


4412 


STK 


HO,STATGD 


4413 


BAL 


R14,T0ERR0RB 


4414 


LA 


P15,»ESSAGE1 


4415 


LA 


R14,C0NTKSG 


4416 


P 


F3B0RX 


4417 T3.' 


5DC SIS 


P. 1 2 , 1 


4418 


BP 


T3.6E 


4419 


p 


PAS? 



TI?VAL 

INCREASE "LIGHTLY 301 

GIVE SFLCH THE GO 

R01 

ELSE ERROR 

RESTORE 51,92, PSW 

CHECK ENDING STATUS 

CHECK ENDING ADORES? 

CHECK INTERFACE STATUS 

IS EOT SET 

CONTINUE IF N'OT 

OTHERWISE SOMTHIG EL^E 

LOAD TEST PATTERN ADDRESS 

INCORRECT DATA OH SELCH TRANSFER 

COMPARE DATA 

DECREMENT RECORD COUNT 

CONTINUE ON IF POSITIVE 

ONE YORE PEAD 

CHECK INF. STATUS FOR 

GET STAT"S AGAIN 

AND EOF IS SET 

OK 

NO T?PE MARKS WRITTEN 

SELCH PEAD - NO •EOF* 

EXPECTED STATUS 

SAVE STATUS 

ERROR MESSAGE SET UP 

MESSAGE ADD 1 ? 

SUSPECTED ERROR WITH CONTROLLER 

OUTPUT IT 

OTHERWISE DECREMENT FILE COUNT 

BRANCH IF POSITIVE 

CHECK ERASE GAP *ODF 



(j„2i ******************************************************* 

4422 * * 

4423 * * 

4424 * COME HERE FOR A BYTE BY BYTE COMPARE * 

4425 * OF DATA FEAD R4=PATTERN ADDRESS * 

4426 * * 

4427 ******************************************************* 



4429 DATCOMP STM 

4430 

4431 

4432 

4433 

4434 DAT.1 

4435 

4436 



CT V 


RO, PEGS AVE 


LA 


R5,READ3UF 


LIS 


P6,0 


LIS 


R2,0 


LHL 


R3,BYTES+$VALU1 


L3 


R7,C(R5) 


L3 


R8,0(R4,R2) 


CLR 


R7,P8 



SAVE REGISTERS 

LOAD READ DATA ADDRESS 

LOAD RECORD LENGTH 

SET UP AN INDEX REGISTER 

LOAD BYTES VALUE 

LOAD READ DATA BYT r 



rQwpiO" THE 



rwo 



vti)43 ( '50 
""D43860 
v"P43$70 
W ^D43880 
wt<0U389O 
»TT»it3qoo 
f' T 'D43910 
"TD43920 
V"PH3930 
i»ttiU3Ci40 
HTD113050 
^043960 
M' T 'D43970 
WTD43980 
M^D43°90 
MTTSU4000 
M^D44010 
f^D44020 
M^D44030 
KT-pijUOUO 
* m D44050 

wfT)tmo60 

*"'DU4070 
M^D44080 
M""D44090 
MTD441Q0 
M^D44110 
TTD44120 
M 1-01,4130 

«fT|)fmmo 

M^D44150 
KT0U4160 
H^D44170 
y"D44180 

!(TDHm90 

M^D44210 
¥T>44220 
MTD44230 
MTD44240 
•ffD44250 

f' T 'D44270 

w ra t)44290 
M T D44300 
M1-D44310 
>»' r 'D44320 
«Tn44330 
M' T, D44340 
MTD44350 
MTi>mt3«;c 



HIGH PERF0RSANCEC625C) YAGTAPE DIAGNOSTIC O6-263R0 1 *I95A 1 3 PAGE 96 08:34:07 12/23/33 

TS3T 3 



*oo«eoo 

004802 

ooueoit 

004803 
004S0A 
00430C 
00480E 
004812 

004814 
004818 
004S1C 
004820 
004824 
004828 
00482C 
004830 

004b34 
004838 
00483C 
004840 
004848 
004850 
00485S 
004860 
004864 
004866 
00486E 
004876 
004878 

00487A 
00437E 
004882 
004886 
00488A 
00488E 



004892 
004896 



213A 




=C0481U 


2551 






C720 


0001 




2661 






0563 






208C 




=0047 r " 


D100 


BC7E 


=008490 


030F 







=0084"C 
=0049E8 



4060 BBFC =008414 

4070 BCE2 =00S4FE 

4080 BCDC 

E650 81C4 

4150 2CC4 

E6F0 35F6 

E5E0 BD66 =008596 

4300 BA98 =0O62CC 

OOCO 4834 

41F0 17E6 

0000 4340 

4300 803A =00487.1 

5749 4C4C 204E 4E54 

2044 4F20 4552 4153 

4520 4741 5053 2C57 

4954 484F 5554 2C53 

454C 4348 

8D0A 

5452 414E 4645 5253 

2053 454C 4543 5445 

4420 

ODOA 

41FQ 2836 

4300 ^B88 =00E4CA 

C300 OOOE 

4330 133C 

41F0 B4CA =0G7r58 

4300 FB30 =0043C2 



0F10 3B41 =008317 
030S 



4437 




BNE 


r. i?? 


4433 




AIS 


?5,1 


4 4 39 




XHI 


R2,1 


4440 




MS 


Rf.,1 


4441 




CLE 


P6 ,?. ? 


4442 




3LS 


DAT. 1 


4443 




I'« 


R0,?EGS»VE 


4444 




SR 


R15 


4445 


* 






4446 


D.ERR 


STH 


R5,I"DEX 


4447 




STK 


?.7,SST0FE 


4443 




STH 


F.8,KS?0SE 


4449 




LA 


R5,T3.E011 


4450 




BAL 


R14,T1ERR0FA 


4451 




LA 


R15,VESSG3A 


4452 




LA 


R14,C0NTKSG 


4453 




B 


EERORX 


4454 


TST3.NST 


EQU 


* 


4455 




BAL 


H15,3PPINT 


4456 




DAC 


VST 


4457 




B 


TST3.END 


4453 


NST 


DC 


C'KILL NOT D< 



4459 



BRANCH ON ERROR 
INCREMENT 3UEEER ADDRESS 
0~1 £ 1~1 

DECREMENT BY 1 ": COUNT 
C0HP?.EE TO 3YTES VALU 
CONTINUE UNTIL DONE 
RESTORE REGISTERS 
RETURN TO CALL"? 

BYTE VALUE 

STOPE READ DATA 

AND STORE IT 

INCORRECT DATA FROW SELCH TRANSFER 

DATAS AND DRIVE 

SUSPECTED ERROR WITH CONTROLLER 



OUTPUT MESSAGE 
"NO ERASE GAPS" 
*ND END TEST? 
LL NOT DO ERASE GAPS WITHOUT SELCH' ,X" 8D0A ' 



DC 



C'TRANFERS SELECTED" ,X' ODOA' 



4460 


* 








4451 


TST3.END 


BAL 


R15,T3T.PRIV 


4452 






LH 


R0,DRIVSAV1 


4463 






THI 


R0,X'E' 


4464 






BZ 


TSTEND 


4465 






BAL 


515,IT.B1 


4466 






B 


T5T3..1 


4463 


* S U 


B 


R U 


T I S E C 


4469 


* 








4471 


CERGAP 




oc 


RI^GA? 


4472 






RR 


?14 



CHECK FOE OTHER DRIVES 

CHECK FLAG 

IS IT SET 

NO, END TEST 

INIT TEST FOR OTHER DRIVFS 

BEGIS TEST 3 



E S G A P 



ERASE GAP C0 W 5A*TD 
RET'fRN 



"TD44370 
MT D44380 
^t-D44390 
MTrjunnoO 
v™D44410 
MTDIHJ420 

M"Pri44440 
W"D44450 
yvQ44450 
MTD44470 
MTD44480 
H^D44490 
MTD44500 
1TD44510 
fi'D44520 
HTD44530 

WT1445RO 
HTD44560 
HTD44570 
!* 1-044580 



wTrjimSiqo 



»f'B44f 00 
T"944M0 
•?^D44620 
HTT)(»tt<?30 
HTD44640 
H^D44650 
tfTD44660 



1TDU4686 
MT-044S90 

W""r544t"^20 



004898 
0048A0 
004 8A 8 
0048B0 
0048B8 
0048BC 



494E 5445 5246 4143 
4520 4449 4420 4E4F 
5420 474F 2049 4E54 
4720 5752 4954 4520 
4D4F 4445 
ODOA 



4474 T3.S000 DC 



C INTERFACE DID NOT GO INTO WRIT* 1 MODE ' , y ' ODPA ' 



»!i , D44740 



HI3H PERFORHANCE(6250)KASTAPE DIAGNOSTIC 06-26380 1 V 95A 1 3 PAGE 97 08:34:07 12/23/83 

T?S? ^ 



004635 


494E 


434F 


5 2 52 


4543 


0048C6 


5420 


5354 


415" 


5553 


00'4 8CE 


204F 


4E20 


5245 


4144 


004806 


2D22 


5752 


4954 


4522 


0048DE 


2053 


4554 






0048E2 


ODOA 








0048E4 


5245 


4144 


2045 


524F 


004SEC 


4D?0 


5441 


5045 


202"' 


004SF4 


204S 


4 1=, 20 


2245 


4F46 


0048FC 


2220 


5354 


4154 


5553 


004904 


ODOA 








004906 


5345 


4C43 


482C 


5245 


004S0E 


4144 


202D 


204E 


4F20 


004916 


2245 


4F46 


2 22C 


5354 


00491E 


4154 


5553 






004922 


ODOA 








004924 


4552 


4153 


4 520 


5245 


00492C 


434F 


5244 


r z -7 


4150 


004934 


532E 


2E28 


5752 


4954 


00493C 


4529 








00493E 


ODOA 








004940 


5345 


4C43 


4820 


5752 


004948 


4954 


4520 


4146 


5445 


004950 


5220 


4552 


4153 


4520 


004958 


47U1 


5020 






00495C 


ODOA 








00495E 


4552 


4153 


4520 


5245 


004966 


434F 


5244 


2047 


4150 


00496E 


532E 


2E52 


4541 


4420 


004976 


ODOA 








004979 


2245 


5241 


5345 


2047 


004980 


4150 


2220 


4449 


4420 


004988 


4E4F 


5420 


4552 


4153 


0C4990 


4520 


5245 


434F 


5244 


004998 


ODOA 








00499A 


4649 


4C45 


5320 


2D20 


0049A2 


5245 


434F 


5244 


5320 


0049AA 


2D20 


4259 


5445 


532S 


0049B2 


2S28 


5345 


4C43 


4820 


0049BA 


5752 


4954 


4529 




0049C0 


ODOA 








0049C2 


4649 


4C45 


5320 


2052 


0049CA 


4543 


4F52 


4453 


2C20 


0049D2 


4259 


5445 


532E 


2*28 


0049DA 


5345 


4C43 


4820 


5245 


004922 


4144 


2920 






0049E6 


ODOA 








0049E8 


494E 


434F 


52 c 2 


4543 


00 4 9FO 


5420 


4441 


544 1 


2046 


0049F8 


524F 


4D20 


5345 


4C43 


004AOO 


4820 


5452 


414F 


5346 


004A0B 


4552 








004A0A 


ODOA 









4475 T3.E002 DC C INCORRECT STATUS OS READ- "WRITE" SET ',"'" ODOA ' yTr,uu750 



4475 T3.E004 DC C'PEAD FROM TAPF - NO "FOF" STATUS ' ,'!. ' OD" A * yum 750 



4477 T3.E004A DC C'SELCH READ - NO "EOF" STATUS ' ,X' ODOA ' M'"D44770 



4478 T3.E007 DC C'ERASE RECORD GAPS .. (WRITE) ' ,X * ODOA • W»VUll7<lO 



4479 T3.E00A DC C'SELCH WRITE AFTER ERASE GAP^X'ODOA* HH'T)44790 



4480 T3.E00B DC C'ERASE RECORD GAPS. .READ" ,X 'ODOA • WTD44800 



4481 T3.E00C DC "'"ERASE GAP" DID NOT ERASE RECORD ' ,X ' ODOA ' VTnmieic 



4482 T3.E0CD DC C'FILES - RECORDS - BYTES. .( SELCH WRITE) ' ,X' "DOA " '»' T 'D44?20 



4483 T3.E00F DC C'EILES, RECORDS, BYTES. .( SELCH READ) ', X ' ODOA* Mn , D44830 



4434 T3.E011 DC C INCORRECT DATA FRO?! SELCK TRANSFER ', X ' ODOA ' w*")4" q 1 



004A0C 
004?. 1H 
C34A1C 
004?.22 
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TEST 3 

4435 T3.E012 DC C'NO TAP 1 ? MARKS WRITTEN ' ,X « ODOA ' 



4E4F 2054 4150 4520 
4D41 524B 5320 5752 
4954 5445 4E2C 
ODOA 



"TD44S50 
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■J73T 4 



4437 
443S 
4439 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4503 
4509 
4510 



***************************** 



**************************** 
TEST 4 VARIABLE LENGTH RECORDS AND FILES * 



* PURPOSE: TO CHECK OUT THE 

* TO WRITE VARIABLE LENGTH 



TE 
IN 
VI 
EI 
AS 
T» 
HI 
DE 
TH 
MI 



ST SPKC: TH 
CREHENTING 
TH A LKNGTH 
HE3 'EOT' 
CONTAIN IN 
FE THEN REW 
TH THE DATA 
CREHENTING 
E BYTES OPT 
NIHOK OF 2. 



TEST STARTS 
LENGTH RECORD 

OF 2 AND END 
QH TAPE OE RE 

THE OPTION ' 
INDS AND READ 

CHECKED FO? 
RECORDS APE T 
ION DECRSASIN 



FORMATTER'S ABILITY 
RECORDS 

WITH »N OUTPUT OF 
S. STARING 
ING WITH 
CORD LENGTH 
BYTES'. THE 
S ARE PERFORMED 
VALIDITY. 

HEN VALIDATED FROM 
G BY 1 UNTIL THE 



* ERRORS: 

* 

* OPTIONS: 

* TR30DE, DRIVE, SELCH, DATA, 



AND BYTES. 



******************************************************* 



ffT'D44R70 
wTD«t(Ct80 
T^D44BQ0 

MTnaugon 

M T D44910 
>f"D44920 
>fTD449?0 

MTD44950 
MTD44960 
wrT, D44970 
V-D44980 
^044990 
MTD45000 
f' n D45010 
^TD45020 
YTD45030 
W ' P D45040 
W'D45050 
m^D45060 
MTD45070 
M T D45080 
*TD45090 
m™D45100 



004A24 


41F0 


B322 


=007D4A 


4512 


004A28 


41F0 


A58C 


=006FB8 


4513 
4514 


004A2C 


7330 


2124 




4515 


004A30 


4230 


81E6 


=004C1A 


4516 
4517 
4518 
451? 
4520 
4521 


004A34 


41^0 


3954 


=00838C 


4522 


004A38 


0000 


4ACF 




4523 


004A3C 


0000 


4ACE 




452i: 


004A40 


41F0 


B68E 


=0080D2 


4525 


004A44 


2400 






4525 


C 4 A 1 fi 


4000 


B9C4 


=00840E 


4527 


00 4A4A 


2541 






4523 


004A4C 


41F0 


3654 


=0080S4 


4529 


004A50 


C8A0 


03FF 




4530 


004A54 


41"0 


B290 


=007CF8 


4531 


004A58 


41E0 


B224 


=007C80 


4532 


004A5C 


9*14 






4533 


004A5E 


27A2 






4534 


CC4A63 


2262 




=004A5C 


4 5 3 5 



TEST4 BAL R15,TESTINIT 

BAL S15,SEL.5 

* 

TST4.2 LHL R3,TRH0DE+SVALU1 

BNZ TST4.1 
********************************* 

* 

* READ DATA,WRITE DATA TRANSFERS 



******************************************************* 



INITIALIZE TEST 
CHECK ONLINE OPTION 

LOAD TYPE OF TRANSFER OPTION 

BRANCH TO SELCH TRANSFER IF 1 
********************** 



?ST4.02 



EAL 


R15,L00PT0P 


DAC 


T4.9A 


DAC 


T4 . 9 A 


BAL 


E15,SEWMT 


LIS 


F0,0 


STH 


RO,DECFLG 


LHI 


R4,X'FFFF' 


BAL 


R15,WRTENB 


LHI 


R10,X'03FF' 


BAL 


R14,CHR0DEY 


BAL 


R14,CWRITE 


VHR 


R1,B4 


SIS 


R10,2 



NEXT SEQUENCE 
PROCEED LIRIT 
REVISD THE TAPE 



F01 



3NLS TST4.02 



CLEAR DECREMENTING RECORDS FIG 
DATA PATTERN TO INITIALIZE TAPE 
CHFCK FOR WRITES INHIBITED 
LOAD RECORD LENGTH 
ISSUE WR" 1 ODD BYTE COK»A*:D 
PUT IN WRITE "ODF 



CONTINUE UNTIL NEGATTV- 



»rD45120 
S^D45130 
"TD45140 
HfD45150 
1»"-D45160 
f^D45170 
>f'D45180 
M^D45190 
f^D4^200 
w-p^a^^lO 
yTn45220 
^^04^230 
FTD45240 
YTD45250 
VTD45260 
•5TD45270 
w'"D4 c; ?80 
MTD45290 
*TD45300 
>f , D45310 
1 T D45320 
WT-5U5330 
*TD45340 
1TD45350 
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T23T 4 



C04A6 2 
004A66 



004A6A 
004A6E 

*004A7? 
004A74 

♦0OUA73 
004A7A 
004A7E 
004A82 
004A84 
004AS8 

*004A8A 
004A8C 
0C4A90 
004A92 
004A94 

*004A98 
004A9A 
004A9E 
004AA0 
004AA2 
004AA6 
00 4 AAA 
004AAE 
004ABO 
004AB2 
004AB6 
004ABA 
004ABF 
004AC2 
004AC4 
004AC8 
004ACA 



004ACE 
004JD4 
004AD8 
004ADC 
004AEO 
004AE2 
004AE6 
*004AE8 
004AEA 
004AEE 
OOUAFO 
004AF2 
004AF4 
004AFA 



41E0 


E17E 


= 007l'E4 


41F0 


36A8 


=008112 


41F0 


3664 


=008CP2 


4340 


2036 




2334 




=004A7A 


S640 


2036 




2303 




=004A7F 


E640 


39B2 


=008430 


41F0 


B622 


=0C80A4 


24R2 






73A0 


200C 




05AB 






2383 




=004?9C 


C8A0 


OO^F 




083B 






2731 






C3 30 


0001 




2133 




=004 A9E 


41E0 


B24A 


=007CE8 


033B 






2781 






41E0 


312C 


=007FD2 


41E0 


31D6 


=007C80 


D814 


0000 




2732 






2283 




=004APA 


41E0 


312E 


=007EEU 


41F0 


B658 


=008112 


C430 


0020 




42 30 


SOSA 


=004F2C 


05FA 






4330 


38S6 


=00834F 


2S;-1 






4300 


FFC2 


=004f90 



41^0 B8BA =00S38C 

0000 4348 

0000 4F9A 

41F0 B5F2 =0080D2 

24 32 

73A0 200C 

05AP 

2383 =004AEE 

C3A0 OOFF 

0883 

2470 

2430 

4037 4001 89D0 

2572 



4536 






BAL 


F:14,SENSTA1 


4537 






BAL 


P15,STATCHK 


4538 


* > 


TAPE HAS BEEN INITIALIZED WIT 


4539 


* 








4540 






BAL 


R15,?,EWMT 


4541 






LH 


R4,DATA + SVAL'J1 


4542 






*Z 


T4.0000 


4543 






LA 


?4,DATA+SVALU1 


4544 






B 


T4. OOOOA 


4545 


T4 


.0000 


LA 


R4,TESTPAT+10 


4545 


Ttl 


.OOOOA 


BAL 


R15,WRTENB 


4547 






LIS 


R11,2 


4548 






LHL 


R1CBYTES+SVALU1 


4549 






CLR 


R10,R11 


4550 






BNL 


T4099 


4551 






LHI 


aiO.r'FF" 


4552 


T4099 


LR 


R3,S11 


4553 






SIS 


P3,1 


4554 






THI 


•?3,X'000V 


4 555 






3NZ 


T4.000 


4556 






BAL 


R14,CWR0PBY 


4557 


T4 


.000 


L3 


R8,P11 


4553 






SIS 


P8,1 


4559 






BAL 


R14,CDENS 


4 56 






BAL 


R14,CWRITE 


4561 


m^ 


.001 


WH 


E1,0(R4) 


4562 






SIS 


R8,2 


4563 






RNLS 


T4.Q01 


4564 






BAL 


S14,SENSTA1 


4565 






BAL 


P15,STATCHK 


4566 






NHI 


ESrX^O' 


4567 






BNZ 


TH.NEXT 


4568 






CLR 


R11,P10 


4569 






BE 


PASS 


4570 






AIS 


R11,1 


4571 






P 


T4099 


4572 


* 








4573 


* ! 


*E HAVE COMPLETED WRITES NOW 


4574 


* 








4575 


T4 


• 9A 


BAL 


E15,LO0PTOP 


4575 






DAC 


T4.003 


4577 






DAC 


TST4.END 


4573 






BAL 


R15,REW!?T 


4579 






LIS 


R11,2 


4530 






LHL 


R10,BYTES+SVALU1 


4531 






CLR 


R10,R11 


4582 






ENL 


T4.5 


4583 






LHI 


R10,X'FF' 


4584 


T4, 


.5 


LP 


R8,R11 


4535 






LIS 


R7,0 


4585 






LIS 


E3,0 


4587 


T4CLR 


STH 


R3,SEAD3'TF(R7) 


4533 






ATS 


07,2 



SENS 1 : STATUS 



WITH LONG RECORD O r DATA FF"F 



USER SPECIFIED DATA PATTERN 
NO, TEST PATTERN 
LOAD THE ADDRESS 
BEGIN 

CHECK FOR WRITES INHIBITED 

LOAD RECORD LENGTH 

IS BYTES LESS THAN INITIAL VALUE OF 2 

BRANCH IF BYTES IS .C-T. OR .EQ. ^0 2. 

SET BYTES TO MAX OF 256 

GET BYTE COUNT FOP. THIS PECOPD 

IS THIS BYTE COUNT ODD ? 
BRANCH IF EVEN NUMBER OF BYTES. 
ISSUE WRT ODD BYTE COHKAND 
KINIHUt? OF 4 BYTES 

OUTPUT DENSITY COMMAND 
PUT IN WRITE «ODE 



CONTINUE UNTIL NEGATIVE 
SENSE STATUS 

EOT SET 

IF YES, REWIND AND NEXT SEQUENCE 

DONE WITH PATTERNS 

PASS 

INCREMENT RECORD LENGTH 



NEXT SEQUENCE 

PROCEED LIfIT 

REWIND THE 1AG ""APE 

LOAD HINIYU* RECORD LENGTH 

BYTES VALUE 

BRANCH IP BYTES IS .GT. OR .EQ. 

SET BYTE COUNT TO 256 

LOSD COUNTER FOR RECORD LENGTH 

ZERO OUT POINTER 

INITIALIZE READ BUFFER 



M-"T)U5360 
><T'D45370 
"«TD45380 

«t , D45400 
MTD4^410 

mt< 1)45430 
»f"D45440 
mt0454 c ;0 
MTD454«0 
M^D45470 
WTQ45480 
*'"D45490 
1TD45500 
M^D45510 
M^D45520 
M'"D45^30 
MTT)4S540 
<?^D45550 
MTD45560 
MT-D45570 
"^D45530 
'{'"D45590 
f^D45600 
M' T, D45610 
f' 1, P45620 
MTT)45«30 
M^D45640 
wTD45' ! ;50 
H-"0456«0 
1" , D45670 
tt' T, D45680 
W ' T 'D45'>90 
w~T)45700 
"TD45710 
H™T)45720 
w^ri45730 
M ,, 'D45740 
W?T)U5750 
MTr)45760 
w , D«5770 
MTD45730 
f^D45790 
f m D45800 
f*D45810 
WTD45820 
M^D45330 
M^D45840 
f"'D45350 
fTT)45<36G 
MTD45370 
M ^D4 C 880 
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004AFC 
*004B00 
004B02 
004304 
004B06 
00460A 
004B0E 
004314 
004316 
004B18 

/> r\ 1 1 r, i * 

UV+O I :1 

00431E 
004322 
004B26 
*004B2A 
00432C 
004B30 
004334 
004338 

00433C 
004333 
004B42 
004B44 



004B48 
00434C 
004B50 
004B54 
004B58 

*004B5C 
004B5E 

♦004B62 
004B64 
004B68 
004B6A 
00436E 
004B72 
004B74 

*004S76 

*00437B 
004B7A 
004B7C 

♦004B80 
004B82 
004386 
00458A 
00438C 
004B90 



"570 


00FF 




2225 




=004AF4 


2781 






2470 






41E0 


B150 


=007C5A 


41E0 


B114 


=007C22 


D917 


4001 


89D0 


2572 






2782 






2237 




=004EOA 


*f Ii'jU 


B0C5 


=007BF4 


4030 


B928 


=00844A 


41F0 


B5EC 


=008112 


C4 30 


0020 




2335 




=004F34 


41F0 


35A2 


=0080D2 


4300 


B81A 


=00834E 


E5 50 


849C 


=004FD4 


41F0 


83D6 


=004F12 


05BA 






4330 


B80C 


=00834F 


26B1 






4300 


FFA6 


=0C4AEE 



41F0 


3840 


=008380 


0000 


4B3C 




0000 


4F9A 




41F0 


B57A 


=0080D2 


4840 


2035 




2134 




=004B64 


E640 


B8CE 


=008430 


2303 




=004F68 


5640 


2036 




2401 






4000 


38A0 


=00840E 


73 A0 


200C 




2432 






05A3 






2382 




=0C4P7A 


24A2 






27 A 1 






C3A0 


0001 




2333 




=004P86 


41E0 


B162 


=007CF8 


5540 


B8A6 


=008430 


088A 






41110 


3042 


=007BD2 


41E0 


30EC 


=007C80 



4589 






CLHI 


k7,X'F i " 


4590 






BSP 


T4CLF 


4 591 






SIS 


?.8,1 


4592 






LIS 


R7,0 


4593 






BAL 


R14,CREAD 


4594 


T4, 


,6 


BAL 


R14,SENS?A3 


4595 






RH 


R1 ,PEADEUr (?7) 


4596 






AIS 


87,2 


4597 






SIS 


R8,2 


4598 






BNLS 


T4.6 


4593 






BAL 


R14,SSSSTA1 


4600 






STH 


R11,LENSAV 


4501 






BAL 


R15,STATCKK 


4602 






SHI 


K3,X'20' 


4503 






BZ 


T4.7A 


4504 


T4. 


.NEXT 


BAL 


R15,KEWMT 


4605 






B 


PASS 


4606 


T4. 


.7A 


LA 


R5,T4.E005 


4607 






PAL 


R15,T4.CHK 


4608 


* 








4609 






CLR 


R11,R10 


4610 






BE 


PASS 


4611 






AIS 


511,1 


4612 






B 


T4.5 


4613 


+ 








4614 


* 








4515 


* 


WRITE 


AND READ DECREMENTING 


4617 


* 








4513 . 


T4, 


.003 


BAL 


R15,L00PT0P 


4619 






DAC 


T4.004 


4620 






DAC 


TST4.END 


4621 






BAL 


R15,BEWXT 


4622 






LH 


R4,DATA+$VALU1 


4623 






BNZ 


T4.003EE 


4624 






LA 


R4,TESTPAT+10 


4525 






B 


T4.003EF 


4626 


T4, 


.003EE 


LA 


R4,DATA+SVALU1 


4627 


T4. 


.003EF 


LIS 


R0,1 


4623 






STH 


PO,DFCFLQ 


4529 






LHL 


P10,BYTE?+$VALU1 


4530 






LIS 


R11,2 


4631 






CLP. 


R10,P11 


4532 






BNL 


T4056 


4633 






LHI 


R10,2 


4634 


T4066 


SIS 


?.10,1 


4635 


T4067 


THI 


R10,X'0001 ' 


4635 






BZ 


T4.003A 


4537 






BAL 


R14,CWR0DSY 


4533 


T4, 


,003 A 


LA 


34 ,?FST?A?+10 


4639 






LB 


RS,R10 


4540 






BAL 


R14,CDENS 


4641 






BAL 


P14,CWRI7E 



ADJUST BYTES 

INITIALIZE BUFFEP IND r X.. 

PUT INTERFACE I«J PEA') MODE 

check: status for busy 
bead a halfword 

INCREMENT POINTER 
DECREMENT BYTE COUNT 
INPUT "ORE DATA 

SAVE RECORD LENGTH 
CHECK INF. STATUS 
IS EOT SET 
NO CONTINUE ON 
REWIND SAG TAPE 
OTHERWISE END TEST 
INCREMENTING RECORDS.. 
CHECK DATA READ 

COMPARE BYTE COUNT 
3RANCH TO NEXT SEQUENCE 
OTHERWISE INCREMENT COUNT AND 
INPUT SOME MOPE 



NEXT SEQUENCE 

PROCEED LIMIT 

REWIND MAG TAPS.. 

USER SPECIFIED DATA PATTFRN? 

YES 

ELSE USE TEST PATTERN 

LOAD ADDRESS OF DATA DESIRED 

SET DECFLG 

TO INDICATE DEC^MFNTI^G REC 

INITIALIZE FINAL BYTE COUNT... 
IS THE BYTE COUNT LESS THAN 4 ? 
IF 'NO' THEN BRANCH. . 

SET INITIAL COUNT TO THE MINIMUM. 

* 

IS THE 3YTE COUN m CD? ? 

ISSUE ODD BYTE COMMAND 

DATA PATTERN 

RECORD LENGTH 

OT'TFUT DENSITY COMMAND 

PUT IN WRITE MOD" 



*f" f)45890 
M^D45900 
M T D45 < ?10 
"CT'[»<SQ?0 
M^D45930 
w , "D45940 
wi"ri45950 
S n, D45960 
MTD45970 
M'"D45980 
» m D459=!0 
MTD46000 
M""D46010 
M T D46020 
y m T)46030 
MTD45040 
MT 0460^0 
M^D46060 
MTD46070 
MTD46080 
M^D46090 
MTD46100 
M'"D46110 
MTD46120 

^Du^mo 

MTD46140 

M" , D46160 
MTD4':170 
M^D46180 
MTD46190 
JTD46200 
MT'D46210 
Ni'D46220 
* m D46230 
MTDU*240 
MT-D46250 
MTD46260 
M*'D46270 
MTDU6230 
MTD46290 
M"'D46300 
M^DUS^IO 
M"'D46320 
MTD46330 
"/PD46340 

M^oa^^^o 

M m D46350 
*' !, D45370 

MTD46390 
MTD46400 
""D46410 
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004B94 
G34B98 
004B9A 
004B9C 
0045AO 
004BA4 
0043A8 
004BAC 
004BB0 
004BB2 
004BB6 
004BBS 



00433C 
004BC0 
004BC4 
004BC3 
0043CC 
0043D0 
004BD2 
*0043P4 
*004BD6 
004BD3 
0043DA 
004BDC 
0043DF 
004BE2 
004BE6 
004BEC 
004REE 
004BF0 
004BF2 
004BF6 
004BFA 
004BFE 
004C02 
004C06 
00 4 CO A 

ooucoe 

004C10 

ooucm 

004C16 



D814 0000 
2782 
2233 

4120 B044 
40A0 B8A6 
41F0 B56A 
"430 0020 
4230 FF7C 
9 C 8A 

4220 B798 
27i 1 
4300 



?FCO 



=004P94 
=0C7BE4 
=00844A 
=008112 

=004P2C 

=0C834E 

=004£7C 



41F0 


B7CC 


=008?8C 


0000 


4"9A 




0000 


4F9A 




41F0 


B506 


=0080D2 


"'3A0 


200C 




2432 






05AB 






2382 




=004EP8 


2UA2 






27A1 






088A 






2470 






41E0 


B078 


=007C5A 


41 SO 


B03C 


=007C22 


D917 


4001 


89D0 


2672 






2782 






2287 




=004FE2 


U1E0 


AFEE 


=007PF4 


40A0 


3850 


=00844A 


41 ?0 


B514 


=008112 


C4 30 


0020 




4230 


FF26 


=004B2C 


5650 


8404 


=00500E 


41F0 


3304 


=004F12 


05RA 






4220 


B7 3A 


=00834F 


27A1 






4300 


FFCO 


=004BPA 



4642 
4643 
4644 
4645 
4545 
4647 
4643 
4649 
4650 
4651 
4652 
4653 
4654 
4655 
4655 
4657 
4658 
4653 
4560 
4561 
4662 
4653 
4664 
4655 
4666 
4667 
4663 
456? 
4670 
4671 
4672 
4673 
4674 
4675 
4676 
4677 
4578 
4579 
4680 
4581 
4582 
4683 
4684 
4685 



T4.003B 



T4.004 



T4.004A 
T4044A 



T4.004B 



WH 


R1,0(B4) 




SIS 


?.8,2 


DECR'TEST LENGTH 


BNLS 


T4.003B 




BAL 


R14,SENSTA1 


SENSE STATUS 


STH 


R10,LENSAV 


SAVE RECORD LENGTH 


BAL 


R15,STATCHK 




NHI 


RI/X^O" 


TAPE KARK 


?NZ 


T4.NEXT 




CLP 


R11 ,510 


PEACHED THE MINISU? 


BP 


PASS 


YES, NEXT SEQUENCE 


SIS 


R10,1 


ELSE DECREMENT 


D 


T4067 


CONTINUE 



BAL R15,L00P m 0P 

DAC TST4.END 

DAC TST4.END 

BAL R15,REWKT 

LHL R10,BYTFS+$VALU1 

LIS R11,2 

CLR R10,P11 

BNL T4.004A 

LHI R10,2 

SIS 510,1 

LS R8,R10 

LIS R7,0 

3AL R14,CREAD 

BAL R14,SENSTA3 

RH R1,READBUF(R7) 

AIS R7,2 

SIS R8,2 

BNLS T4.004B 

BAL R14,SENSTA1 

STH R10,LENSAV 

BAL R15,STATCHK 

NHI R3,X'20" 

BNZ T4.NEXT 

LA R5,T4.E006 

BAL R15,T4.CHK 

CLR R11,R10 

BP PASS 

SIS R10,1 

B T4044A 



HP ADDRESSES 



REWIND TAPE TO READ 



IS THE 3YTES OPT LESS THAN 2 ? 

NO, THEN BRANCH 

OTHERWISE, LOAD THE NKINirUM... 



PUT IN READ KODE 
SENSE STATUS 
READ DATA INTO BUFFER 
INCREMENT INDEX 
DECREKENT LENGTH: 



SAVE LENGTH 

CHECK FO END OF TAPE 

DECREMENTING RECORDS.. 
CHECK DATA FOR CORRECTNESS 

DECREMENT LENGTH 



vtt)4«u20 
^TD46430 
MTD4*44fl 
MTD46450 
MTD46460 
w"r)H<5i470 
M n, D46480 
m^dus ugo 

"TTD46500 
M"'D46510 
*! q 'D46520 
KTD46530 
KTD46540 
T"D46550 
H" 1 " D46560 
H™D46570 
M"'D46580 
H^046590 
?I '''046 = 00 
«f'D46610 
T^D46fi20 
f' ,, D46530 
f"D46640 
1TD46650 
"'''D46660 

1^045680 
W'D46590 
TTD46"'00 
»t' T, D46710 
f' T 'D46720 
f^D46730 
1^n46740 
MTDH6750 
«Tr)45750 
f r D46770 
"TD46780 
VTD46790 
*TD46800 
W"546810 
HTD46820 
1' 1 ' T )45830 
M^D46840 
1TD46850 



004C1A 
004C20 
004C24 



41F0 376E 
9000 4C3A 
0000 4C3A 



=00838C 



4637 
4688 
4689 
4690 
4691 
4692 
4693 
4694 



******************************************************* 

* * 

* COSE HERE FOR SELCH TRANSFERS * 

* * 
******************************************************* 
TST4.1 EAL RIBjIOOP^OP 

DAC T4.1A N r XT SFQUENCE 

DAC T4.1A PROCEED LIHIT 



TfTD46870 
M' T 'D46880 
1 m D46890 
VT'D46a00 
M^D46910 
YTr)469?n 

fT , D46930 

11^046040 
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TTST '■! 








004C28 


7320 


2108 




*004C2C 


2137 




=004C3A 


004C2E 


ES50 


B9A2 


=008 r -D4 


004C32 


41F0 


B738 


=00836E 


004C36 


4300 


1358 




004C3A 


41^0 


B74E 


=00838C 


G04C40 


0000 


4D2E 




004C44 


0000 


4F9A 




004C48 


41^0 


B486 


=008002 


004CUC 


41E0 


B04E 


=00?C9F 


004C50 


41E0 


B04A 


=007C9E 


004C54 


41F0 


B1B8 


=007F10 


004C58 


2400 






004C5A 


4000 


B7B0 


=00840E 


*004C5E 


2541 






OOUCSO 


40"0 


37C0 


=008424 


004C64 


E640 


B7BC 


=008424 


004C68 


C850 


3FF 




C04C6C 


41F0 


B078 


=007CE8 


004C70 


41F0 


B1D0 


=007E44 


004C74 


41E0 


B082 


=007CFA 


004C78 


41E0 


AF56 


=007ED2 


004C7C 


41E0 


BOOO 


=007C80 


004C80 


E650 


83A2 


=005026 


004C84 


S600 


8014 


=004C9C 


004C88 


4000 


21E8 




004C8C 


08 OA 






004C8E 


260F 






004C90 


41E0 


AFF2 


=007C86 


004C94 


41F0 


162A 




004C98 


4300 


2E06 




004C9C 


41F0 


B168 


=007F08 


004CA0 


41F0 


B1D4 


=007F78 


004CA4 


41F0 


B25A 


=007F02 


004CA8 


41E0 


AF38 


=007BE4 


004CAC 


C330 


0040 




004C30 


4230 


B486 


=00813A 



004CB4 
004CE8 
004CBC 
004C3E 

♦004CC0 
004CC2 
004CC6 
004CC8 
004CCA 

*004CCE 
004CD0 
004CD4 



41F0 B41A 
7340 200C 
24B2 
054B 
2383 

C840 OOFF 
089B 
2791 
C390 0001 



=0080D2 



=004CC6 



2133 

41E0 B014 



=004CD4 
=007CF8 
41F0 81ES =004FC0 



4695 


LHI 


R2,SFLCH+$VALU1 


4696 


3S7 


T4. 1A 


4697 


LA 


R5,N0SELCH 


4698 


BAL 


S15,L00P2 


4599 


p 


ABORT 


4700 


• 




4701 


T4.1A BAL 


P15,L00PT0F 


4^02 


I>AC 


T4 . 2AA 


470 3 


DAC 


TST4.END 


4704 


BAL 


R15,REWKT 


4705 


BAL 


R14,CSTQP 


4706 


BAL 


F,14,CST0P 


4707 


BAL 


315,PESTORE1 


4708 


LIS 


R0,0 


4709 


STH 


E0,DECFLG 


4710 


LHI 


R4,X'FFFF' 


4711 


STH 


B4,DATAPAT 


4712 


LA 


S4,DATAFAT 


4713 


LHI 


R6,X'03FF' 


4714 


BAL 


314,CWR0DBY 


4715 


BAL 


R15,SEL.3 


4716 


BAL 


F.14,WRBUF 


4717 


BAL 


R14,CDENS 


4718 


PAL 


R14,CWRITE 


4^19 


LA 


R5,T4.E008 


4720 


LA 


50, T4. 0002 


4721 


STH 


R0,DEVINT+2 


4722 


LR 


R0,R10 


4723 


A IS 


SO, 15 


4724 


BAL 


R14,CG0 


4725 


BAL 


P15, TIMER 


4726 


5 


T1R09 


4727 


T4.000 2 3AL 


315, RESTORE 


4728 


BAL 


R15,SELCKK 


4729 


EAL 


R15,SELEND 


4730 


BAL 


314,SENSTA1 


4731 


THI 


^X^O' 


4732 


BNZ 


STAT.ER 


4733 


* 




4734 


* TAPE SHOULD 


3E INITIALIZED W 


4735 


* 




4736 


BAL 


R15,REWKT 


4737 


LHL 


?.4,BYTES+$VALU1 


4738 


LIS 


311,2 


4739 


CLP 


R4,R11 


4740 


BNL 


T4100 


4741 


LHI 


R4,X'FF' 


4742 


T4100 LR 


?9,R11 


4743 


SIS 


R9,1 


4744 


THI 


?9,X'0001' 


4745 


t?NZ 


T4.1D 


4746 


BAL 


?14,CWR0DBY 


4747 


T4.1D BAL 


?15,SELVSRT 



LOAD SELCH ADDRESS 
CONTINUE ON IF ADDRESSED 

OTHERWISE P3INT 
AND ABORT T="ST 



NEXT SEQUENCE 
PROCFFD LIMIT 
REWIND HAG TAPE 
STOP SELCH 



R01 



ENABLE INT 

CLEAR DECREMENTING RECORDS FLAG 

DATA PATTERN TO INIT TAPE 



RECORD 



lNGTH 



SET UP WRITE BUFFER 

SET UP WRITE BUFFER ADDRESSES 

DENSITY COMMAND 

SELCH WRITE INCREMENTING RECORDS 
INTERRUPT ADDRESS 

TIMVAL 

INCREASE SOME R01 

WAIT FOR SELCH INTERRUPT 

TIMED OUT ON SELCH *** WRITE 

RESTORF R1,B2,?SW 

CHECK SELCH STATUS 

CHECK SELCH ENDING ADDRESS 

CHECK STATUS 

TERR SFT? 

IF YES, T ?RDR 



REWIND AND BEGIN 

LOAD MAX RECORD LENGTH 

LOAD MINIMUM RECORD LENGTH 



MODIFY BYTE OUTPUT 

GET BYTE MINIMUM 

DECREMENT 

IS BYTE OUTPUT ODD? 

NO 

ISS ODD BYTE COMMAND 

GO SET 'J? SELCH FOR WRT 



¥""046950 
M'i'D46950 
¥•"046970 
fTT)46980 
M T D46990 
MTD47000 

M T D47010 
¥^047020 
MTDU7030 
M T D47040 
¥to« 7 050 
¥""0470*0 
M m D47070 
M^D47080 
3^047090 
M" , O4'M00 
«TD(»7110 
V"D47-|?0 
M^D47130 
¥■"047140 
¥•"047150 
PDKTIfiO 
¥"'047170 
¥■"047180 
M"'D47190 
¥-"D47200 
¥TD47210 
"TD47220 
¥TD47230 
WTD47?40 
MTD47250 
M T D47?60 

MTT)ii72B0 
¥"'047290 
MTD47300 
M""D47310 
¥"047320 
M^D47330 
MTD473U0 
M""D47350 
M n 'D47360 
>« -"047370 
¥"'047330 
*""D47390 
¥-047400 
¥-"047U10 
MT047420 
y-047430 
¥-"04-440 
M'"D4-'450 
MT047460 
MTD47U-70 
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T2ST 4 



004CD8 
OOUCBC 
004C\0 
004CE4 
004CE8 
004CEC 

oourro 

004CF2 
004CF4 
004CFS 
004CFC 
004DOO 
Q04D04 
004D0S 
004DOC 
004D10 
004D14 
004D18 
004D1C 
*004D20 
004D22 
004D24 
004r>28 
004 T )2A 



004D2S 
004D34 
004D38 
004D3C 
004D40 
004D44 
0041)48 
004P4A 
004D4E 
*004D50 
004D52 
004D56 
004D58 
004D5A 
004D5E 
004^62 
0041)36 
90 4P6A 
004D6E 
004D72 
004D7S 
0041:78 
004D7C 
004D80 
00 4l'8 4 
004D88 



41E0 


P01E 


=007CFA 


41E0 


AEF2 


=007ED2 


41E0 


A"9C 


=007C80 


40BO 


3752 


=00844A 


":6 00 


8018 


=004D04 


4000 


21E8 




0804 






260F 






41E0 


AF8E 


=007C86 


41F0 


162A 




E650 


8326 


=005026 


4300 


2E06 




41F0 


B100 


=007F08 


41F0 


B16C 


=007F78 


41F0 


B1F2 


=007F02 


41E0 


AEDO 


=007PF4 


C330 


0040 




4230 


B41E 


=00813A 


C430 


0020 




2137 




=004E2E 


05R4 






4330 


B626 


=00834E 


26 R1 






4300 


FF98 


=004CC6 



41P0 


B65A 


=00838C 


0000 


4DB4 




0000 


4F9A 




41E0 


AF5E 


=007C9E 


41E0 


AF5A 


=007C9E 


41F0 


B38A 


=0080D2 


24B2 






7340 


200C 




G54B 






2383 




=004T56 


C840 


OOFF 




089B 






2791 






41F0 


8196 


=004EF4 


41E0 


AFC8 


=007T-2A 


41E0 


AEF4 


=007C5A 


E6 50 


8248 


=004FB2 


£600 


801A 


=004^8? 


4000 


21E8 




7300 


200C 




260F 






41^0 


AF1C 


=007C98 


41F0 


162A 




26 50 


822E 


=004FB2 


4300 


2~8C 




4030 


B63E 


=00844S 



4748 


BAL 


R14,*'EBUF 


i;7U9 


BAL 


R14,CDENS 


4750 


BAL 


R14,CWRIt- 


4751 


STH 


R11,LENSAV 


4752 


LA 


R0,T4.1E1 


4753 


STH 


R0,DEVIN™*2 


4754 


IS 


R0,R4 


4755 


AIS 


R0,15 


4756 


EAL 


R14,CGC 


4757 


BAL 


R15,TI.1E? 


U75I? 


LA 


R5,T4.E008 


4759 


3 


T1R09 


4760 


T4.1E1 PAL 


R15, RESTORE 


4761 


BAL 


R15,SELCHK 


4762 


BAL 


E15,*-ELEND 


4763 


BAL 


F14,SENSTA1 


4764 


THI 


R3,X'40' 


4765 


BNZ 


STAT.ER 


4756 


NHI 


R3,X'20' 


4757 


BN2 


T4.2AA 


4768 


CLR 


R11,P4 


4769 


BE 


PASS 


4770 


AIS 


R11,1 


4771 


3 


T4100 


4772 


* 




4773 


* NOW THAT WE 


HAVE DONE WRITES 


4774 


* 




4775 


T4.2AA BAL 


R15,L00PT0P 


4776 


DAC 


T4.002 


4777 


DAC 


TST4.EHD 


4778 


BAL 


R14,CST0P 


4779 


BAL 


R14,CST0P 


4780 


BAL 


E15,PEVMT 


4781 


LIS 


R11,2 


4782 


LHL 


R4,BYTES+SVALU1 


4^83 


CLP. 


R4,R11 


4784 


BNL 


T4.0 2C 


4785 


LHI 


R4,X'FF' 


4786 


T4.02C LR 


E9,R11 


4787 


SIS 


89,1 


4788 


BAL 


R15,SELV?D 


4789 


BAL 


R14,REBUF 


4790 


BAL 


R14,CREAD 


4731 


LA 


E5,T4.E00U 


4792 


LA 


R0,?4.2D1 


47 9 3 


STH 


R0,DE\ f INT+2 


4794 


LHL 


RCBYTES + SVALU1 


4795 


AIS 


"0,15 


4796 


BAL 


R14,CG0?EAD 


4797 


BAL 


R15,TIMEF 


4798 


LA 


R5,T4. ^004 


4799 


B 


T1R10 


4 SCO 


T4.2D1 STH 


R11,LEN^AV 



SET UP WRITE ADDRESSES 
OUTPUT DENSITY COMMAND 
PUT INTERFACE IN WRITE MODE 

INTERRUPT ADDRESS 

TIME VALUE 

INCREASE R01 

GIVE SELCH THE GO 

WAIT FOR SELCH INTERRUPT R01 

SELCH WRITE INCREMENTING RECORDS 

TIMED OUT DUTING SELCH *** WHITE 

RESTORE R1,R2,PSW 

CHECK ENDING STATUS 

CHECK ENDING ADDRESS 

NO MOTION STATUS? 



EOT SET 

PASS TO NEXT SEQUENCE 

COMPARE WITH MAX 

IF NOT EQUAL RESTART OUTPUT 

INCRFBFNT BYTE COUNT 



PROCEED LIMIT 
STOP SELCH 

REWID MAG TAPE FIRST 

LOAD MINIMUM RECORD LENGTH 

GET BYTES VALUE 



SET BYTE OUTPUT TO MAXIMUM 

ADJUST FOR SELCH ADDRESS 

SET UP SELCH FOR READ 

3SET UP SELCH READ ADDRESSES 

PUT INTERFACE INTO READ MODE 

SELCH READ INCREMENTING RECORDS 

INTEPPUPT ADDRESS 

TIMVAL 

INCRFASE R01 

GIVE SELCH T HE GO 

'WAIT FOR SELCH INTERRUPT R01 

SELCH PEAD INCREMFNTIN REC0PDR01 

TIMED OUT DURING SELCH *** READ 

SAVE RECORD LENGTH 



MTD47480 
MTD47490 
MTD47500 
<fTnn75io 
MT>t(7520 
M n, D47530 
M""D47540 
M T D4' 7 550 
MTD47^60 
MTD47570 
MTD47580 
MTD47^90 
M T D47600 
MTD47610 
M"'D47620 
MTD47630 
MTD47640 
MTD47650 
HTD47««0 
M"Ti47670 
M-"D47680 
MTD47690 
M" , D47700 
WToa77lO 
MTD47720 
MTD47730 
M'"D47740 
MTDH7750 
M'"D47760 
MfD47770 
M^D47780 
MTD47790 
MTD47S00 
MTD47810 
MTD47820 
M"' , D47830 
MTD47840 
M^D47850 
«c^D47R60 
«(TT)4'7 8' , '0 
f^D47880 
>f")47R90 
MTD47900 
MT047910 
ifT-T)it7Q20 
M T D47930 
MTD47940 
M m D47950 
HTi)U7qf;o 
MTD47Q70 
M""1I»7 Q 8 
»T"T)U7QQ0 
«T>48000 
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'"EST 4 



004D8C 
0041190 
004D94 
004D93 
004D9C 
004DA0 
004PA4 

004DA8 
004DAA 
0Q4DAE 
004D30 



004DB4 
004D38 
00 4DBC 
004DC0 
004DC4 
004DC8 
004DCC 
004DD0 
004DD2 

*004DD4 
004DD6 
004DD8 
004DDA 
004DDC 

*004DE0 
004DE2 
004DE6 
004DEA 
004DEE 
004DF2 
004DF6 
004DFA 
OOUDFE 
004E02 
004E04 
004S06 
004S0A 
004E0E 
0Q4E12 
004P16 
004EU 
004E1E 
004E22 
004E26 
00452A 
004E2E 
004F32 
004E3S 



41 fO 3078 
41F0 B0E4 
41^0 B15A 
41F0 3376 
C430 0020 
4230 FD8S 
41F0 8136 

0534 

4330 35A0 
2631 
4300 FFA2 



=007F08 
=007F78 
=007^02 
=008112 

=004?2C 
=004F5F 



=00834F 
=004F56 



41 FO 


B5D4 


=00838C 


0000 


4E42 




0000 


4F9A 




41E0 


AEDA 


=007C9E 


41E0 


AED6 


=007C9F 


41F0 


B306 


=0080D2 


7340 


200C 




24B2 






0543 






2382 




=004DD8 


2442 






0394 






2791 






C390 


0001 




2133 




=004DE6 


41E0 


AF02 


=007CE8 


41F0 


80D5 


=004BC0 


41E0 


AFOC 


=007CFA 


41E0 


ADSO 


=007BD2 


41F0 


AE8A 


=007C80 


H650 


81F2 


=004FEC 


5500 


8018 


=004E16 


4000 


21F8 




0804 






26 OF 






41 SO 


AE7C 


=007C86 


41="0 


162?. 




£550 


81 DA 


=004FEC 


4300 


2E06 




41F0 


aprir 


=007F08 


41*0 


305A 


=007F78 


41F0 


30S0 


=007F02 


41E0 


A DBF 


=0C7EE4 


"3 30 


004C 




'4230 


330C 


=00813* 


C4 30 


0020 




4 2 30 


FCF6 


=004 D 2C 


05B4 







'4301 


BAL 


R15,HEST0FE 


4802 


HAL 


?15,SFLCHK 


4803 


BAL 


?15,SEL£ND 


4304 


SAL 


c . 15,3TATCHK 


4805 


SHI 


P3,X'20' 


4806 


3SZ 


T4.NEXT 


4 = 07 


BAL 


?15,T4.SCHK 


4803 


* 




4309 


CL? 


P. 11,34 


4310 


32 


PASS 


48 1 1 


A IS 


?. 1 1 , 1 


4812 


B 


T4.02C 


4814 


* WRITE AID 


READ DECREMENTIN 


4315 


* 




4816 


T4.002 BAL 


P15,L00PT0P 


431 - ? 


DAC 


■"4.005 


4818 


DAC 


TST4.END 


4819 


BAL 


?.14,CST0P 


4 320 


BAL 


R14,CST0P 


4821 


BAL 


R15,REW»T 


4822 


LHL 


R4,BYTES+$VALU 


4323 


LIS 


P.11,2 


4d24 


CLR 


R4,R11 


4825 


BNL 


T4.002A 


4826 


LIS 


14,2 


4827 


T4.002A LP. 


R9,R4 


4828 


SIS 


F.9,1 


4829 


THI 


R9,X*0001' 


4830 


BNZ 


T4.002AA 


4331 


BAL 


R14,CWR0DBY 


4332 


T4.002AA BAL 


R15,SELVWRT 


4333 


BAL 


R14,WRB'JF 


4834 


BAL 


R14,CDENS 


4335 


EAL 


R14,CWRITE 


4336 


LA 


R5,T4.E002 


4337 


LA 


R0,?4.002C 


4833 


STH 


R0,DEVINT+2 


4339 


LR 


30, R4 


4840 


»IS 


30,15 


4841 


HAL 


R14,CS0 


4342 


BAL 


R15,TIMEE 


4843 


LA 


S5,T4.E002 


4 34 4 


B 


T1R09 


4 3HS 


T4.002C 5AL 


3 15, RESTORE 


4345 


BAL 


R15,SELCHK 


4847 


3AL 


R15,SELEND 


4848 


EAL 


R1fc,SENSTA1 


4849 


TKI 


R3,X*40" 


4350 


BNZ 


STAT.ER 


4S51 


SHI 


?3,X'20" 


4352 


BNZ 


T4.IIEXT 


4353 


CL? 


R11,°4 



5EST0RP R1,i 



pcy 



CHECK ENDING STATUS 
CHECK ENDING ADDRESS 
CHECK IN^SRF'CS STATES 
IS EOT SET 

PASS TO NEXT SEQUENCE 
CHECK DATA READ SITH SELCF 

COMPARE WITH MAX 
OTHERWISE END TE^T 
INCREMENT END O p BYT r 
IF NOT EQUAL RESTART OUTPUT 

LENGTHS USING SFLCH 

CLEAR PELCH FIRS'" O 1 ^ 

REWIND TAPE 

MINIMUM RECORD LENGTH 
CHECK 

MODIFY BYTE OUTP'JT 

GET BYTE VALUE 

ADJUST FOR SELC" ADDRESSES 

IS ID AN OD? BYTE 

NO 

ISSUE OD 3YT* CND 

SET UP WRITE B'IF'EP 
DENSITY COMMAND 



DECREMENTING RECORDS. 
INTERRUPT ADDRESS 

TIHVAL 
INCREASE 



. (SELCH) 



R01 



WAIT FOR INTERRUPT 
SELCH WRITE DECREMENTING RECORDS. 
TIMED CUT DURING SELCH *** WRITE 
RESTORE R1,?.2,?SV 



SENSE STATUS 

IS TERR STATUS S~T? 

DETERMINE ERRO' 

END OF TAPE 

REWIND MAG TAPE 

FINISHED 



"■"rmspiO 


■<-"T>l»aO20 


HTT)tiq030 


M"-D48040 


^""nUSO^O 


H'"D4R060 


"""D48070 


v "(48080 


f"D48090 


M^D4fi100 


MTnfjpl 1Q 


V TD48120 


^■"Du.,-140 


"•"DU8150 


M-"nu8i<;0 


"■"T) 1*8170 


»""T)agiqo 


M""D48 190 


M' P D48200 


»t")UO210 


*'"D48?20 


MTD48230 


MTr,(,g2£K3 


W"T>UR250 


"""D48260 


W '"D482' 7 


"■"DU8280 


M m D48290 


MTD48300 


M""D48310 


WTT)£t(!320 


i" D48330 


M""D48340 


" T D43 350 


" m D48?60 


M'"D483"'0 


M""D48 380 


*'"T)[(5 390 


M'"D48a0O 


YTD48M0 


"■"D43420 


V"T)U8U30 


y? mT )i»»uitO 


"'"D4S450 


wTi)yi3 tie 


WTT)U 5470 


""Duet 80 


»""5UJUO0 


V-Tl^ti QC^ 


y")!!^, -1 


M'"D48 C 20 


V"T)U £. 3*"> 
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34E38 
3G4E3C 
3Qu?3F 



004K42 
004E48 
004E4C 
004E50 
004F54 
0Q4E58 
00UE5C 
004E60 
004E52 
•004S64 
004265 
0G4E68 
004E6A 
004E6C 
004E70 
004E74 
004E78 
004F7C 
004E80 
004E84 
004E86 
004E88 
004E8C 
004E90 
004P94 
004E98 
004E9C 
004EA0 
004EA4 
00UEA8 
004EAC 
004EBO 
004EB4 
004EB6 
004E3A 
004EBC 



4220 B512 

2741 

4300 EF96 



=00834E 
=004EDe 



41^0 


B546 


=00838C 


0000 


4F9A 




0000 


4F9A 




41E0 


AF4A 


=007CSE 


41E0 


AE46 


=007C9F 


41F0 


3276 


=008CD2 


7340 


200C 




2432 






054B 






2382 




=D04 r 6P 


2442 






0894 






2791 






41E0 


8084 


=004EF4 


41E0 


AEB6 


=007D2A 


41S0 


ADE2 


=007C5A 


E650 


81CC 


=005048 


E600 


8014 


=004F94 


4000 


21E8 




0804 






2 C 0F 






41E0 


AEOC 


=007C98 


41F0 


16 2A 




4300 


2E3C 




4040 


BSB2 


=00844A 


41F0 


AF6C 


=007E08 


41F0 


AFD8 


=007E78 


41F0 


B05E 


=007F02 


41F0 


B26A 


=008112 


C430 


0020 




4230 


FC7C 


=004E2C 


41F0 


80AA 


=004F5E 


05B4 






4220 


B494 


=0C834E 


2741 






4300 


FFA8 


=004F68 



004ECO 
004EC4 
004EC8 



0000 4EC0 

DOOO B5CC =008490 

E6«0 B308 =0O8°D0 

5060 B608 =00?fcf'4 



4854 
4355 
4S55 
4 3 57 
4353 
4359 
4 360 
4361 
4862 
4863 
4864 
4355 
4366 
4367 
4368 
4869 
4370 
4371 
4872 
4373 
4874 
4375 
4376 
4877 
4378 
4879 
4880 
4881 
4882 
4S83 
4834 
4885 
4886 
4387 
4888 
4889 
4890 
4891 
4892 
4893 
4394 
4895 
4896 
4897 
4898 
4899 
4900 
4901 

4903 
4904 
4905 
4906 



BP PASS 
SIS B4,1 

B T4.002A 

* 

* COMPLETED WRITES, NOW TRY READS 



NO, CONTINUE 

DECREMENT RECORD LE""TH 



T4.005 



T4.005A 



T4.005C 



B \"L 

DAC 

DAC 

BAL 

BAL 

BAL 

LHL 

LIS 

CLR 

3NL 

LIS 

LR 

SIS 

BAL 

BAL 

BAL 

LA 

LA 

STH 

LR 

AIS 

BAL 

BAL 

p 

STH 

BAL 

BAL 

BAL 

BAL 

NHI 

BNZ 

BAL 

CLR 

BP 

SIS 

B 



R15, 
TST4 
TST" 
R14, 
514, 
515, 
R4,B 
511, 
R4,R 
T4.0 
?4,2 
R9,F. 
59,1 
R15, 
514, 
514, 
R5,T 
RO,T 
RO,D 
RO,P 
R0,1 
R14, 
R15, 
T1R1 
R4,L 
P15, 
R15, 
R15, 
R15, 
R3,X 
T4.N 
R15, 
E11 , 
PASS 
R4,1 
T4.0 



.OOP^OP 

END 

END 
CSTOP 
CSTCP 
BEVMT 

YTES+SVALU1 
2 

11 
05A 



******************* 



STOP SELCH 

REWIND TAPE 

MINIMUM 

IS BYTES VALUE OK 

YES 

SET IT TO THE MINIMUM 

ADJUST FOR SELCH ADD? 

SELVRD SET UP FOR READ 

REBUF SET SELCH ADDRESSES 

CREAD ISSUE COMMAND 

4.E0C9 SELCH READ DECREMENTING RECORDS 

4.005C INTERRUPT ADDRESS 

EVINT+2 SAVE INTO 'I'ABLE 

4 TIMVAL 

5 INCREASE SOME R01 
CGOHEAD COMMAND TO READ 
TIMER ALLOW TIME 

TIMED OUT DURING SELCH *** R^SD 
ENSAV 

RESTORE RESTORE R1,R2,PSW 

SELCHK CHECK SELCH STATUS 

SELEND CHECK SELCH ENDING ADDFESS 

STATCHK CHECK DRIVE STATUS 

•20' END OF """APE 
EXT 

T4.SCHK CHECK LENGTH 

P.4 FINISHED 

SEXT MODULE 

DECREASE LENGTH 

05A CONTINUE 

************************************ 



* HERE WE APE TO SETUP VAPIABLE LENGTH SELCH RECORD c 

* R4 = ADDRESS OF PATTERN R11 = BYTE COUNT 

* 

*************************************************** *i 



SELVWRT 



EQU 
STM 
LA 
STA 



R0,?EGSAVE 
S6,WRTBUF 

56,W?UF 



SAVE WORKING REGISTERS 

LOAD ADDRESS OF WRITF BUFFER 

STORE THE ADDRESS 



MTD43540 
MTD48^0 
MTD4R^60 
M' I 'D485">0 
MTmsSSO 
MTT)48590 
MTD4R600 
M' T, D48610 
MTD48620 
MTD48630 
^"048640 
M^D48 fi 50 
M^D48660 
MTD48670 
MTD48680 
MTD48 fi 90 
MTD48700 
MTD48710 
M T D48720 
M T D48730 
M m D48740 
M^D48750 
^""048760 
MTD48770 
MTD48780 
MTD48790 
M T D48800 
M""D48810 
M" , D48820 
M^D48330 
MTD48340 
>''' , D48850 

MTT)488SO 

M^D48870 
, f m D483R0 
M"'D48890 
MTf)H89nO 
MTD48910 
M"'D48920 
M^D48°30 
MTD48940 
M""D489S0 
MTD48960 
MTD48970 
"TD48980 
MTD48990 
MTD49C00 
M^D49010 

M"'D49030 
MT")U9040 
M"-D49050 

MTT)itQ060 
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OQUZCC 
004ECK 
004FD0 
004ED4 
004FD6 
004ED8 
*004PDA 
004FDC 
004EE0 
004EE2 
004EE6 
004EEA 
004EEE 
004EF2 



0042F4 
Q04EF8 
004EFE 
004F02 
004F04 
004F08 
004F0C 
004F10 



004F12 
004F14 

004F16 
004F1C 
004F22 

*004F24 
004F26 
004F28 
004F2C 

•004F30 
004F32 

*004F34 
004F36 
004E38 
004F3C 

004F3E 
00iiFH2 

004F4S 



2460 

2470 

D267 RAFC 

2671 

2661 

0579 

2225 

£650 3AF0 

9A59 

5060 B5F2 

4070 B560 

3100 35A2 

41F0 ADAC 

030F 



=008900 



=004FD0 
=00S9D0 

=0084DP 
=008 44 A 
=008490 
=007C9F 



0000 4EF4 

DOOO B598 =008490 

E610 4001 89D0 

5010 B5DA =0084DC 

0A19 

5010 B5D0 =0084D8 

41F0 AFOC =007E18 

D100 B580 =008490 

030F 



0000 


4F12 




2470 






2420 






D367 


4001 


89D0 


D384 


4200 


0000 


0568 






21 3D 




=004F3F 


2671 






C720 


0001 




4300 


B4DE 


=00840F 


2133 




=004F36 


C -7B 






2^02 




=004F38 


057A 






4230 


FFDA 


=004F16 



030F 

4060 B5BA =008^FC 

U080 35BS =008UFF 

^070 B4CA =008U1U 



4907 
4908 
4909 
4910 
4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4925 

4928 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4943 
4944 
4945 
4946 
4947 
4948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4958 
4959 



LIS H6,0 

LIS R7,X , 0* 

SELV.2 STB R6,WRTBUF(R7) 

A IS R7,1 

AIS R6,1 

CLAR R7,R9 

PSP SELV.2 

LA R6,WRT3UF 

AAR R6,R9 

STA B6,ENDBUF 

STH R7,LENSSV 

LM R0,REGSAVE 

EAL R14,CST0P 

BR R15 



LOAD TEST PATTERN 

ZERO OUT INDEX COUNTER 

STORE THIS PATTERN 

INCREMENT WRITE BUFFE" LLBAL 

INCREMENT PATTERS 

WRITE BUFFER FULL? 

NO! STORE SD55E SORE 

LOAD BEGINNING ADDR AGAIN 

CALCULATE ENDING ADDRESS 

STORE IT 

STORE RECORD LENGTH "00 

RESTORE REGISTERS 

PUT SELCH IN KNOW STATE 

RETURN TO CALLER 



******************************************************* 



* WE COSE HERE TO SET UP READ 

* VARIABLE LENGTH RECORDS R11 



BUFFER FOR 

= RECORD LENGTH 



******************************************************* 



SELVRD 



EQU 

ST" 

LA 

STA 

AAR 

STA 

BAL 

L* 

BR 



R0,RSGSAVE 

R1,READBTTF 

R1,BDBUF 

P1,R9 

R1,ENDBUF 

R15,CLRBUF 

RO,REGSAVE 

R15 



SAVE WORKING RFGISTFRS 
LOAD ADDRESS OF READ BUFFER 
STORE IT 

CALCULATE BUFFER SIZE 
STORE ENDING ADDRESS 
CLEAR OUT BUFFER 
RESTORE REGISTERS 
RETURN TO CALLER 



******************************************************* 



T4.CHK 



T4.CHKA 



T4.CHKB 
T4.CHKC 



T4.ERR 



FQ1I 

LIS 

LIS 

L3 

LB 

CLR 

BNE 

AIS 

XHI 

LH 

3NZ 

CLAR 

p 

CLAR 
BNE 

3R 

STH 
STH 
STH 



R7,0 
R2,0 

R6,READBUF(R7) 

K8,0(R4,R2) 

R6,R8 

T4.ERR 

R7,1 

R2,1 

R0,DECFLG 

T4.CHKB 

E7 , R 1 1 

T4.CHKC 

R7,R10 

T4.CHKA 

R15 

R6,WST0RE 
R8,RST0RF 

R7, INDEX 



INITIALIZE BUFFER INDEX. 



EXPECTED DATA 
COKPARE THE TWO 



TOGGLE R2 

LOOK IF DECREKEVTING RECS 

INCREHENTING COHPARF 

DECREMENTING COMPARE 

3RANCH TO CALLER 



«C'D49070 
*TD49080 
HTD49090 
T"D(»9100 
"■"D49110 
if!-T)U9120 
!T , 0H9130 
H^D49140 
MTD49150 
1TD4 9160 
f T D49170 
w^D49180 
B^D49190 

MT04Q500 

"TD49210 
H^T)49220 
MTD49230 
M'"D49240 
1TD49250 

¥TT)£j9260 
MTD49280 

M n 'D49300 
«^D49310 
KTD49320 
fTD49330 
VTD49340 
MTD49350 
1*^49360 
STDU9370 
lfTD49380 
•fTD49390 
f^D.49400 
y , D49410 
»f'D49420 
H'»D49430 

HTD49450 
KTD49460 
JTTDU9U70 
STD49480 
MTD49490 
VD49500 
HTD49^10 
1TD49520 
>f , D49530 
3TD49540 
HTD49550 
MTD49560 
MTD49570 
KTD49580 
1TD49590 
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004F4A 
004F4E 
004F52 
004F56 
00UF5A 



004F5F. 
004F60 
0O4F62 
004F68 
004F6C 
♦004F6E 
G04F70 
004F72 
004F74 
004F76 
004F78 

004F7A 
004F7E 
004F82 
004F36 
004FSA 
0G4F8E 
004F92 
004F96 

004F9A 
004F9E 
004FA2 
004FA6 
004FAA 
004FAE 

004FB2 
004FBA 
004FC2 
004FCA 
004FD2 
004FD4 
004FDC 
004FE4 
004FEA 
004FEC 
004FF4 
004FFC 
005004 
00500C 
00500E 
005016 
00501F 



41F0 2A3C 

4120 2CC4 

E6F0 35S8 

E6S0 363C =00e596 

4300 B35E =0082CC 



0000 


4F5F 




2470 






2430 






0367 


4001 


89P0 


C430 


OOFF 




0536 






2136 




=004F7A 


2631 






0579 






033F 






2671 






220B 




=004F62 


4030 


357E 


=0084FC 


4060 


B57C 


=0084FE 


4070 


B48E 


=008414 


41F0 


2ABC 




41F.0 


2CC4 




E6F0 


35E8 





S6E0 B622 =0085B8 

4300 E332 =0082CC 

41F0 2836 

4800 B468 =00840A 

C300 OOOE 

4330 133C 

41F0 ADAA =007P58 

4300 FA7A =004A2C 



5345 
4144 
4D45 
5245 

onoA 

494S 
5449 
4F52 
ODOA 
5345 
4954 
454D 
2052 
ODOA 
4445 
5449 
4F52 



4C43 4820 5245 
2049 4E43 5245 
4554 494E 4720 
434F 5244 5320 

4352 454D 454f, 
4E47 2052 4543 
4453 2F2E 

4C43 4820 5752 
4520 4445 4352 
U54F 54U9 4E47 
4543 4F52 4453 

4352 454D 454E 
4E47 2052 4543 
4453 2E2F 



4960 






BAL 


R15,IENA'SC 


4961 






BAL 


R14,T1FER0F.A 


496? 






LA 


?15,KESS3.0 


4953 






LA 


?14,C0STMSG 


4964 






B 


2RR0RX 


4965 


* 








4 96 6 


************** 


*************** 


4967 


T4 


.SCHK 


EQ'J 


* 


4968 






LIS 


37,0 


4969 






LIS 


53, 


4970 


T4. 


.SCHKA 


LB 


R6,F.EADBl*F(R7) 


4971 






SHI 


E3,X*FF* 


4972 






CLH 


?3,R6 


4973 






BNE 


T4.SERR 


4974 






AIS 


33,1 


4975 






CLAR 


R7,R9 


4976 






BER 


?15 


4977 






AIS 


F.7,1 


4978 






ES 


T4.SCHKA 


4979 


* 








4980 


T4. 


.SERB 


STH 


R3,WST0RE 


4981 






STH 


R6,RST0E" 


4982 






STH 


P7, INDEX 


4983 






BAL 


P15,LENASC 


4984 






BAL 


?14,T1EER0RA 


4985 






LA 


R15,MESS3.0 


4986 






LA 


R14,SELMSG 


4987 






B 


ERROP.X 


4988 


* 








4989 


TST4.END 


BAL 


R15,7ST.DRIV 


4990 






LH 


R0,DRIVSAV1 


4991 






THI 


P.0,X'E* 


4992 






BZ 


TSTEND 


4993 






BAL 


R15,IT.B1 


4994 






c 


TST4.2 


4996 


T4. 


,E004 


DC 


C'SELCH READ I) 



CONVERT 
DATA 

SUSPECTED ERROR WITH CONTROLLER 



************************* 

ZERO OUT POINTER 
ZERO PATTERN' 
COMPARE DA ""A 
CLEAR UPPER HALF 

BRANCH I? ERROR 
INCREMENT PATTERN 
COMPARE LENGTH COUNT 
RETURN TO CALLER 
INCRFMENT POINTER 
AND CONTINUE COMPARES 

STORE DATA WRITTEN 
AND STORE IT TOO 
BYTE LOCATION 

DATAS AND DRIVE 

SUSPECTED ERROR WITH SELCH 
OUTPUT MESSAGE 

CHECK FOR OTHER DRIVES 

CHECK FLAG 

IS IT SET 

NO, END TEST 

INIT TEST FOR OTHER DRIVE 

BEGIN TEST 4 



4997 T4.E005 DC 



4998 T4.E002 DC 



4999 T4.E006 DC 



C INCREMENTING RECORDS..* ,X'0D9A' 



C'SELCH WRITE DECREMENTING RECORDS* , X' ODOA * 



C* DECREMENTING RECORDS.. •/X'ODOA' 



MTD4Q600 
M' ,, D49610 
MTD49*?0 
MTD4°630 
MTD49640 
MTD49^50 
MT049660 
HTI49670 
<f"T)49*80 
MTP49*90 
MTD497Q0 
VT0uq710 
MTD49720 
MTD49730 
MTD49740 
MTD49750 
MTD49' T 60 
MTD49770 
T r, D49 7fl0 
MTD497Q0 
y?D49800 
MTD49810 
MTD49820 
MTT149830 
M'"D49840 
M' ,, D49P50 
MTD49860 
M"'D49870 
w^r)498O0 
MT>49890 
M q, D49900 
MTD49910 
»TD49920 
M n 'D49930 
!(TD49940 

MTD49960 



M""D49970 



M" , D49980 



yTT)Uqg90 
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005024 


OCOA 








005026 


5345 


4C43 


4820 


5752 


00502E 


4954 


4520 


494E 


4352 


005036 


454D 


U54E 


5449 


4E47 


00503E 


2052 


4543 


4P52 


4453 


005046 


ODOA 








0C5048 


5345 


4C43 


4820 


5245 


005050 


4144 


2044 


4543 


5245 


005058 


4D45 


4E5U 


494F 


4720 


005060 


5245 


434F 


5244 


5320 


005068 


ODOA 









5000 T4.E008 DC C'SFLCK SElTE INCREMENTING KECOaDS ' , X" ODOA ' "TD50O0O 



5001 T4.E009 DC C'SELCH PEAD DECBEIENT'IMG RECORDS' ,V ' ODOA ' V^OOIO 
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TEST 5 



5003 
5004 
5005 
5006 
5007 
500B 
5003 
5010 
5011 
5012 
5013 
5014 
5015 
5016 
5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 



****************************** 
TEST 5 SKIP FUNCTIONS 



********************* 

* 
* 



* PURPOSE: TO CHECK OUT THE DRIVES ABILITY TO POSITION* 

* TAPE AND THE FORMATTERS ABILITY TO RECOGNIZE * 

* 'EOF* AND ' IBG". * 

* * 

* TEST SPEC: THE TEST OUTPUTS TWO FILES, EACH WITH TWO* 



PATTERNS. THE TEST 
STARTS ISSUING THE 



* RECORDS OF DIFFERENT DATA 

* THEN REWINDS THE TAPE AND 

* FOLLOWING COMMANDS: * 

* SKIP FORWARD BLOCK 

* SKIP FORWARD FILE * 

* SKIP BACKWARD BLOCK * 

* SKIP BACKWARD FILE * 

* CHECKING THE DATA AND STATUS BYTE FOR CORRECT * 

* POSITIONING. * 

* * 

* ERRORS: * 

* * 

* OPTIONS: * 

* DRIVE, TRMODE, SELCH, AND BYTES. * 

* * 
******************************************************* 



MTD50030 
"•TD50040 
M^D50050 
MTD50060 
1TD50070 
M T D50080 
M™D50090 
ITD^OIOO 
1^050110 
1 T D50120 
MTD50130 

fTi)501U0 
MTD50150 
MTD50160 
WTD50170 
M T D50180 
MTD50190 
M ,,, D50200 
M^D50210 
MTD50220 
T , D50230 
MTD50240 
HT , D=i0250 
ATD50260 
MTD50270 



00506A 
00506E 



005072 
005078 
00507C 
005080 
00508U 
005088 
00508C 
005090 
005094 
005096 



00509C 
0050A0 
0050A2 
0050?. 4 



0000 506A 
41F0 ACDC 
41F0 9F46 



=007T4A 
=0O6FR8 



41F0 


B316 


=00838C 


0000 


53B0 




0000 


53B0 




41E0 


AC1A 


=007C9E 


41E0 


AC16 


=P07C9E 


41F0 


B046 


=0080D2 


41F0 


B014 


=0080A4 


41E0 


AB3E 


=007BD2 


T330 


2124 




4230 


8258 


=005304 



7360 200C 

2761 

0S56 

4840 3382 



=0 8 42 S 



5029 
5030 
5031 
5032 
5033 
5034 
5035 
5036 
5037 
5038 
5039 
5040 
5041 
5042 
5043 
5044 
5045 
5046 
5047 
5048 
5049 
5050 
5051 



TEST5 EQU * 

BAL R15,TESTINIT 
BAL R15,SEL.5 



INIT TESTING 

CHECK ONLINE OPTION 



* HERE WE SETUP TAPE FOR CHECKOUTS 



TST5.1 BAL R15,L00PT0P 

DAC TST5.END 

DAC TST5.END 

BAL R14,CST0P 

BAL R14,CSTCP 

BAL R15,REWMT 

BAL R15,WRTENB 

BAL P14,CDENS 

LKL R3,TRH0DE+$VALU1 

BNZ TST5.5 



PROCEED LIMIT 
STOP SELCH 
STOP SELCH 

REWIND TAPE IF NEEDFD 
CHECK FOR WRITES ENABLED 
OUTPUT DENSITY COMMAND 
WHAT IS THE TRANSFER MODE? 
BRANCH IF SELCH 



* OTHERWISE SETUP THRU DATA WRITES 

* 

LHL R6,3YTES+$VALU1 

SIS R6,1 

LDAR P5,R6 

LH R4,TFSTPAT+4 



LOAD RECORD COUNT 

ADJUST FOR ADDRESSES 

LOAD REC LENGTH INTO WORK REG 

LOAD TEST PATTERN 



MTD50290 
MTD50300 

M T D50320 
MTD50330 
M^D50340 
fTD50350 
fTD50360 
MTD50370 
M"'D503«0 
MTD50390 
MTD50400 
MTD50410 
»f'D50420 
M n, D50430 
MTD50440 
M' T 'D50450 
YTD50460 
HTD50470 
M^D50480 
MTD50490 
M" , D50500 
M' T 'D50510 
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TEST S 



0050A8 
0050AC 
0050AE 
0050B2 
0050E6 
0050BA 
OOSOBK 
0050CO 
0050C4 
0050C3 

u \j O \J-^ n. 

0050CE 
0050D2 
0050D6 
*0C50DA 
0050DC 
0050EO 
0050E4 



0050E8 
0050EC 
0050F0 
0050F4 
0050F8 
0050FA 
OO^OFE 
005102 
005106 
00510A 
00510E 
005110 
005114 
005118 

♦00511C 
00511E 

*005122 
005124 

005128 
0C512C 
005130 
005134 

005138 
00513C 
005140 
005144 
005148 
00514A 
C0514E 
005152 



41F0 


B1E2 


=00828E 


0856 






4840 


B37C 


=00842E 


41F0 


B1D8 


=00828F 


41E0 


ABB2 


=007C6C 


4840 


B372 


=008430 


0856 






41F0 


B1CA 


=00828E 


4340 


B35E 


=008426 


0856 






41F0 


B1C0 


— r\ AC OO T? 

— V/ V W £. \J 1. 


41S0 


AB9A 


=007C6C 


41 SO 


AB06 


=007BDC 


C430 


0020 




2333 




=0050E0 


41F0 


AFF2 


=0080D2 


41F0 


B02E 


=008112 


41F0 


AFSA 


=0080D2 



41E0 


A 37 A 


=007C66 


41F0 


8134 


=005224 


41E0 


AB66 


=007C5A 


41E0 


AB2A 


=007C22 


9913 






4530 


B330 


=00842E 


4330 


S0C4 


=0051C6 


4030 


B3F8 


=0084FE 


4800 


B324 


=00842E 


4000 


B3EE 


=0084FC 


2402 






4000 


B2FE 


=008412 


41E0 


AAC4 


=007BDC 


C330 


0020 




2334 




=005124 


S6 50 


82A6 


=0053C8 


2303 




=005128 


E650 


82DE 


=005406 


41E0 


800C 


=005138 


E6F0 


8448 


=005578 


E6E0 


B462 


=008596 


4300 


B194 


=0082CC 


D000 


B8 54 


=008990 


41F0 


B22E 


=00836E 


41E0 


804A 


=00518F 


41F0 


B226 


=00836 E 


2403 






ue 10 


B2BA 


=008408 


S620 


842C 


=00557E 


41F0 


1680 





5052 




PAL 


R15,DWRITE 


5053 




LDAR 


R5,R6 


5054 




LH 


R4,TFSTPAT+8 


5055 




BAL 


E15,EWEITE 


5056 




BAL 


R14,CWRE0F 


5057 




LH 


R4,TESTPAT+10 


5058 




LDAR 


B5,R6 


5059 




BAL 


S15,DWRITE 


506 




LH 


R4,TESTPAT 


5061 




LDAR 


P5,R6 


5062 




BAL 


P15,DWRITE 


5063 




BAL 


R14,CWRE0F 


5064 




BAL 


R14,SENSTA 


5065 




NHI 


R3,X'20* 


5066 




BZ 


T5.1B 


5067 




BAL 


B15,REWHT 


5068 


T5.13 


BAL 


315,STATCKK 


5069 


T5.1A 


BAL 


R15,REWMT 


5070 


* 






5071 


* LET'S 


CHECK 


FORWARD SPACE 


5072 


* 






5073 




BAL 


R14,CSKFB 


5074 




BAL 


H15,T5.CHK1 


5075 




BAL 


R14,CREAD 


5076 




BAL 


R14,SENSTA3 


5077 




RHR 


R1,R3 


5076 




CLH 


R3,TESTPAT+8 


5079 




BE 


T5.2F 


5080 




STH 


R3,RST0RE 


5081 




LH 


R0,TESTPAT+8 


5082 




STH 


R0,WSTORE 


5083 




LIS 


R0,2 


5084 




STH 


R0,RECFLG2 


5085 




BAL 


R14,SENSTA 


5086 




THI 


R3,X'20' 


5087 




"Z 


T5P.02 


5088 




LA 


R5,T5.E000 


5089 




n 


T5R02.1 


5090 


T5E02 


LA 


R5,T5.EO0OA 


5091 


* 






5092 


T5E02.1 


BAL 


F14,T5EPR0RA 


5093 




LA 


R15,T5ERKSG0 


5094 




LA 


314,C0NTMSG 


5095 




B 


ERRORX 


5096 


* 






5097 


T5ERROEA 


STK 


R0,ERRSAVE 


5098 




BAL 


R15,L0OP2 


5099 




BAL 


R14,RECNUM 


5100 




BAL 


E15,L0CF2 


5101 




LIS 


P0,3 


5102 




LH 


R1 ,DRIVSAV 


5103 




LA 


R2,T5ERMSGC+6 


5104 




BAL 


R15,HEX?SC 



WRITE RECORD 1 (OF FILE 1) 
RELOAD LENGTH OF REC. 
LOAD ANOTHER TEST PATTERN 
WRITE RECORD 2 (OF FILE 1) 
WRITE FILE HARK 1 
LOAD DIFFERENT PATTERN 
RELOAD REC LENGTH 
WRITE RECORD 1 (OF FILE 2) 
LOAD LAST PATTERN 
LOAD AGAIN REC LENGTH 
WRITE RECORD 2 (OF FILE 2) 
WRITE FILE SARK 2 
TAKE A STATUS CHECK 
AND ZERO IN ON EOT 
IF ZERO CONTINUE ON 
OTHERWISE REWIND M.t. 
CHECK FOR ERRORS 
REWIND MAG TAPE 



COMMAND SKIP FORWARD BLOCK 

CHECK OUT BLOCK STATUS 

OUTPUT A READ COMMAND 

WAIT FOR BUSY TO DROP 

AND BEAD A BYTE OF DATA 

COMPARE DATA FOE 2ND REC0RD(33) 

CONTINUE IF GOOD 

STORE BAD DATA 

LOAD TEST DATA 

AND STORE FOP ERROR 

EECORD NUHBER2 

EXPECTED RECORD 

GET STATUS 

SITUATED AT BOT« 

NO SKIP FORWARD RECORD OCCURRED 

SKIP FORWARD REC, POSITON ON WRONG 
POSITIONED ON WRONG PECO"D 
RECORDS, AND DATA 

SUSPECTED ERROR WITH CONTROLLER 



SAVE REGISTERS 

OUTPUT DESCPIPTION YSO 

DETERMINE EXPECTED RECORD 

OUTPUT PENDING MESSAGES 

3DIGITS 

DRIVE ADDRESS 



MTD50"=20 
MTD50530 
M cp DS0540 
MTD50550 
YTD50560 
M^D50570 
M""D505R0 
»!TD50590 
M m D50600 
MT>D50*10 

MTp50620 
"■"D50630 
M^D50«40 
"TD50650 
MTD50660 
M rp D50670 

M^Dsoeso 

MTD50690 
M^DSO^OO 
""•DSC? 10 
MTD50720 
M""D50730 
M m D50740 
M^D50750 
M" , D50760 
M rp D50770 

M^D50790 
MTD50800 
MTD50810 
M' T, D50820 
M^D50830 

W'dsoruo 

MTD50850 
MTD50860 
1^050870 
MTD50880 
MTD50890 
M T D50900 
MTD50910 
MTD50920 

M^Dsogso 

MTD50940 
1Tr)50950 
M' I 'D50960 
¥'"050970 
MTD50980 
MTD50990 
<? T D51000 
MTD51010 
MTD51020 
M^D51030 
MTD51040 
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005156 
0C5158 
005 15C 
005160 
005164 
005168 
00516C 
0C5170 
005174 
005178 
00517C 
0C518O 
005184 
005188 
00518C 

00518E 
005192 

•005196 
005193 

*00519C 
00519E 

*0051A2 
0051A4 

♦0051A8 
0051AA 
0051 AC 
0051B0 
0051B2 
0051B4 
0051B6 
0051B8 
0051BA 

♦0051BC 
0051 BE 
0051C2 

*0051C4 



0051C6 
0051CA 
0051CE 
0051D2 
0051D6 
0051DA 
0.0 51 DC 
0051E0 
0051EU 

*0051ES 
0051EA 

*0051EE 
0051F0 



24C^ 






4810 


B2B6 


=008412 


S620 


8434 


=005594 


41F0 


1680 




4810 


B2A8 


=008410 


E620 


S43E 


= 0055*?. 


41~0 


1680 




4S10 


3383 


=0084FC 


E520 


8445 


=0055BD 


41F0 


1680 




4810 


B37E 


=0084FE 


E620 


844D 


=0C55D1 


41F0 


1680 




D100 


3804 


=008990 


030E 






4830 


B36C 


=0084FE 


4530 


B294 


= 00842.' 


233E 




=0051B2 


4530 


3292 


=00842E 


233D 




=0051B6 


4530 


B28E 


=008430 


23 ?C 




=0051BA 


4530 


B27E 


=008426 


213B 




=0051BE 


2404 






4000 


B260 


=008410 


030E 






2401 






2204 




=0051AC 


2402 






2206 




=0051AC 


2403 






2208 




=0051AC 


E650 


8392 


=005554 


2405 






220C 




=0051AC 


41E0 


A9D0 


=007B9A 


41F0 


AF04 


=0080D2 


41E0 


AA82 


=007C54 


C330 


0002 




4230 


802A 


=005204 


2402 






4000 


31E8 


=0083C8 


41E0 


A9F8 


=007BDC 


C330 


0020 




2134 




=0051F0 


E6 50 


8284 


=005472 


2303 




=0051F4 


E650 


8244 


=005438 



5105 




IIS 


RC,4 


5106 




LH 


R1,F.ECFLG2 


5107 




IA 


P2,T5EF.MSG1 + 16 


5108 




BAL 


R15,HEXASC 


5109 




LH 


R1 ,RECFLG1 


5110 




LA 


F2,T5ERKSG2+16 


5111 




BAL 


R15,HEXASC 


5112 




LH 


R1,WST0RE 


5113 




LA 


R2,? C ERMSG3+13 


5114 




BAL 


R15,HEXASC 


5115 




LK 


R1,P.ST0RE 


5116 




LA 


R2,T5ERSSG4+13 


5117 




BAL 


R15,HEXASC 


5118 




LI 


RO,ERRSAVE 


5119 




BR 


P14 


5120 


* 






5121 


RECNUB 


LH 


R3,RST03E 


5122 




CLH 


R3,TESTPAT+4 


5123 




3E 


PEC1 


5124 




CLH 


R3,TESTPAT+8 


5125 




BE 


REC2 


5126 




CLH 


R3,TESTPAT+10 


5127 




BE 


REC3 


5128 




CLH 


R3,TESTPAT 


5129 




BKE 


REC5 


5130 




LIS 


R0,4 


c 131 


RECOUT 


STH 


R0,RECFLG1 


5132 




BR 


R14 


5133 


REC1 


LIS 


R0,1 


5134 




P3 


RECOUT 


5135 


REC2 


LIS 


R0,2 


5136 




BS 


RECOUT 


5137 


REC3 


LIS 


R0,3 


5138 




B 


RECOUT 


5139 


REC5 


LA 


R5,T5.E007 


5140 




LIS 


R0,5 


5141 




B 


RECOUT 


5142 


* LET'S 


CHECK 


FORWARD SPACE F: 


5143 


* 






5144 


T5.2F 


BAL 


R14,CCLEAR 


5145 




BAL 


R15,REWKT 


5146 




BAL 


R14,CSKFF 


5147 




THI 


R3,X'02' 


5148 




BNZ 


T5.2E 


5149 




LIS 


R0,2 


5150 




STH 


RCSTATGD 


5151 




BAL 


R14,SENSTA 


5152 




THI 


R3,X'20' 


5153 




BNZ 


T5R01 


5154 




LA 


E5,T5.E001A 


5155 




B 


T5P01.5 


5156 


T5R01 


LA 


R5,T5.E001 


5157 


* 







DIGITS TO CONVERT 
EXPECTED RECORD 



ACTUAL RECORD 
DATA WRITTEN 



RECORD 

YES 

RECORD 

YES 

RECORD 



1? 



2? 



3? 



RECORD 4? 

TAPE IS OUT OF LIMITS 

REC0RD4 

RETURN 
RECORD 1. 

RECORD 2. 

RECORD 3. 

TAPE IS OUT OF SPECIFIED RECORDS 



BARK 



CLEAR INTERFACE 

WAIT FOR IT 

SKIP FORWARD A FILE 

IS EOF SET? 

YES! CONTINUE Off 

EXPECTED STATUS 



SKIP FOR« REC, POSTION WRONG 

NO SKIP FORWARD FILE OCCURRED 
POSITIONED ON WRONG FILE 



KTD51050 
MTD51060 
YTD51070 
MTD51080 
MT51090 
HTD51100 
TTMIIO 
MTD51120 
¥■"0511^0 
"TD51140 
MTD51150 
*TD511"0 
*TD51170 
BTD51180 
MTD51190 
1TD51200 
MTD51210 
fTD51220 
Hi , D51230 
fTD51240 
MTD512S0 
ni , D51260 
BTD51270 
STD51280 
«^D51290 
1TD51300 
KTD51310 
MTD51320 
MTD51330 
1'"D51340 
MTD51350 

wtd5136o 

M^D^ 1 37 
HTD51380 
^051390 
M^D51400 
1i , D51410 
B^D51420 
"TD51430 
^TT)51440 
H^D51450 
MTD51460 
1'"D51470 

»TTT)S1480 

B^D51490 
UTD51500 
«Tn51510 
"TD51520 
MTD51530 
KTD51540 
'f'DBI^SO 
«fD51560 
1TD51570 
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C051F4 
0051F8 
0051FC 
C05200 

005204 
C05208 
0C5 2OC 
005210 
005214 
005215 
C0521A 
00521C 
005220 



005224 
005228 
00522C 
00522E 
005232 
005234 
005238 
00523C 
005240 
005244 



005248 
00524C 
005250 
005254 



005258 
00525C 
005260 
005264 
005258 
00526C 
00526E 
005 27 2 
*C05274 
005276 
00527A 
00 5 27 E 



41 EO 


8B50 


=005148 


E6F0 


9686 


=006882 


E6F.0 


B396 


=008596 


4300 


B0C8 


=0082CC 


41F0 


AA52 


=007C5A 


41E0 


AA16 


=007C22 


7350 


B220 


=008430 


4050 


32E8 


=0084FC 


9913 






4030 


B2E4 


=0084FE 


0535 






4330 


8028 


=005248 


4300 


FFCC 


=0051F0 



0000 


5224 




41E0 


AA96 


=007CBE 


41E0 


AAC6 


=007CF2 


243E 






7430 


B216 


=008448 


02 3F 






E650 


8306 


=00553E 


41E0 


3BCE 




E6F0 


F150 


=004390 


E6E0 


B352 


=008596 


4300 


BO 8 4 


=0082CC 



41E0 A94E 

41F0 AE82 

41E0 AAOO 

41E0 A9FC 



41E0 AA18 

41E0 AA14 

41E0 AA02 

41F0 >9F2 

41E0 A9B6 
9913 

7350 B1BE 
535 
233C 

4030 B284 

4050 327E 

E550 8220 



=007E9A 
=0080D2 
=007C54 
=007C54 



=007C74 
=007C74 
=007C66 
=007C5A 
=007C22 

=008430 

--0C528C 
=0084FE 
=0084FC 
=0054A2 



5158 
5159 
5160 
5161 
5162 
5163 
5164 
5165 
5166 
5167 
5163 
5159 
5170 
5171 
5172 
5173 
5174 
5175 
5176 

5178 
5179 
5180 
5181 
5132 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 
5202 
5203 
5204 
5205 
5205 
5207 
5206 
5209 
5210 



T5B01.5 BAL R14,T7ERR0PA 

LA R15,T7FR*SG1 

LA R14,C0NTMSG 

B ERSORX 

* 

T5.2E BAL R14,CREAD 

BAL R14,SENSTA3 

LHL R5,TESTPAT+10 

STH R5,WST0"E 

PHR R1,R3 

STH R3,SST0P.E 

CLR R3,35 

BE T5.3A 

B T5R01 



THIS ROUTINE CHECKS THAT BLOCK 
WHEN THE TAPE IS POSITIONED ON 



T5.CHK1 



EQU 

BAL 

BAL 

LIS 

TBT 

BNZR 

LA 

BAL 

LA 

LA 

B 



R14,CN0P3 

B14,BEDE 

B3,X'B' 

R3,SNSHW 

E15 

P.5,T5.E006 

P14,T2ERR0RA 

R15,T2ERMSG0 

R14,C0NTMSG 

EERORX 



DRIVE AND STATUS 
SUSPECTED ERROR WITH CONT 



LET'S READ A HW TO CHECK 

WAIT FOR BUSY 

LOAD THIRD PATTEPN(A5) 

STORE TEST PATTERN FOR USE 

READ IN A HALFWORD 

STORE FOR ERROR ( ?) 

COMPARE DATA FOR 3Rn RECORD 

IF NOT EQUAL OUTPUT ERROR 



STATUS SETS 
AN IRG 



HALFWORD STATUS =3 

READ AND STORE HALWORD 

LOAD OFFSET FOE TEST 

TEST FOR BLOCK FLAG 

BRANCH BACK TO CALLER IF SET 

NO ISG WAS WRITTEN 

DRIVE AND STATUS HALFWORD 

SUSPECTED ERROR WITH CONTROLLER 
ERROR MESSAGE OUTPUT 



* HERE WE ARE GOING TO SET UP FOR BACKSPACE OPERATION 



T5.3A 



BAL 
BAL 
BAL 
BAL 



R14,CCLEAR 
R15,SESM? 
R14,CSKFF 
B14,CSKFF 



* LET'S CHECK BACKSPACE A FILE 

BAL E14,CSKBF 

BAL R14,CS'<BF 

BAL E14,CSKFE 

BAL R14,CPEAD 

BAL R14,SENSTA3 

EHE E1,B3 

LHL B5,TEST?AT+10 

CLR R3,R5 

BE T5.3E 

STH 53,RST0PE 

STH E5,WST0RE 

LA R5,T5.E002 



CLEAR INTERFACE 
REWIND SAG TAPE AND wait 
SKIP FORWARD A FILE 
AND ANOTHER SKIP 



SKIP BACKWARDS A FILE 

OUTPUT ANOTHER COMMAND 

LET'S POSITION THE TAPF 

OUTPUT BEAD COMMAND 

WAIT FOR DATA TO FILTR 

DATA THAT IS WRITTEN ON ^KVT 

EXPECTED DA^A 

COMPARE DATA 

AND IF EQUAL BRANCH ON 

OTHERWISE STORE DATA 

AND STORE IT FOR POS. ERROR 

NO SKIP BACKWARD FILE OCCURRED 



M^DSISSO 
*TD51590 
*TD51<;00 
>«' T, D51510 
M^DSI^O 
MT'D51 S 30 
VD51640 
M' n D51'S50 
MTD51660 
W^D51670 
MTD51S80 
MTD5T=90 
M T D51700 
MTD51710 
MTD51720 
MTr>51"*30 
MTD51740 
"TD51750 
M^D51750 

MT'D51 - '80 
MTD51790 
M^DSIPOO 
MTD51810 
MTD51820 
M^OSI^O 
M n, D51840 
MTDS1850 
MTD51860 
S' r D51870 
MTD51880 

M^osisgo 

MTD51900 
T"D51910 

WT D c;-|920 

MTD51930 
ifTD51940 
MTD51950 
^■"1)51960 
MTD51970 
MTD51980 
MTD51990 
M*D52000 
1^052010 
w™D52020 
M m D52030 
M^D52040 
M' T 'D52050 

MTric2o*;o 

MTD52070 
TTD52080 
M^D52090 
MTD52100 
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005262 
005284 

005288 



00528C 
005290 
005294 
005298 
00529C 
0052AO 
0052A4 
0052A8 
0052AC 
0052AE 
0052B2 
*0052B4 
0052B6 
0052BA 

0052BE 
0052C2 
0052C4 
0052C8 



0052CC 
0052D0 
0052D4 
0052D8 
0052DC 
0052E0 
0C52E4 
0052E8 
0052EC 
0052F0 
0052F4 
0052F8 
0052FC 
005300 



005 304 
►0C530(? 
00530A 
00530E 
005312 

005316 
00531A 
00531E 



2403 






4000 


318A 


=008412 


4300 


r E9C 


=005128 


41E0 


ASOA 


=0C7F9? 


41E0 


A9E6 


=007C7? 


41E0 


A9E2 


=007C7A 


U1E0 


A9DE 


=007C7A 


41F0 


AE72 


=008112 


41F0 


FF80 


=005224 


41E0 


A9B2 


=007C5A 


41FJ0 


A976 


=007C22 


9913 






7350 


317C 


=00842E 


0535 






233C 




=0052CC 


40 30 


3244 


=0084FE 


4050 


323E 


=0084FC 


E650 


8210 


=0054D2 


2402 






4000 


314A 


=008412 


4300 


FE5C 


=005128 


41 SO 


A984 


=007C54 


41E0 


A980 


=007C54 


41E0 


A9A2 


=007C7A 


41E0 


A998 


=007C74 


41E0 


A994 


=007C74 


C430 


0020 




4230 


B066 


=00834E 


E65C 


8 21 A 


=005 506 


C800 


0020 




4000 


B0D4 


=0083C8 


41E0 


28AE 




E6F0 


2A4C 




E6E0 


B296 


=008596 


4300 


AFC8 


=0082CC 


7330 


21CP 




2137 




=005316 


E650 


B2C6 


=0085D4 


41F0 


305C 


=00836E 


4300 


1358 




=:6 40 


3110 


=00842A 


41E0 


8028 


=005346 


E540 


B10C 


=00842F 



5211 


* 






5212 




LIS 


PO,3 


5213 




3TF 


RO,RECFL(52 


5214 


* 






5215 




B 


T5R02.1 


5216 


* LET'S 


CHECK 


OUT BACKSPACE A 


5217 


* 






5218 


T5.3E 


BAL 


R14,CCLEAR 


5219 




BAL 


R14,CSKBE 


5220 




BAL 


R14,CSKBB 


5221 




BAL 


314,CSKBB 


5222 




BAL 


R15,~TATCHK 


5223 




BAL 


R15,T5.CHK1 


5224 




BAL 


R14,CREAB 


5225 




BAL 


R14,SENSTA3 


5226 




RHR 


R1 ,R3 


5227 




LHL 


R5,TESTPAT+8 


5228 




CLE 


R3,R5 


5229 




PJ 


T5.4 


5230 




STH 


R3,RST0RE 


5231 




STH 


R5,WST0RE 


5232 


* 






5233 




LA 


R5,T5.E003 


5234 




LIS 


P.0,2 


5235 




STH 


RCRECFLG2 


5236 




B 


T5R02.1 


5237 


* LET'S 


COMPLICATE THINGS A BI 


5238 


* 






5239 


T5.4 


PAL 


R14,CSKFF 


5240 




BAL 


R14,CSKFF 


5241 




BAL 


R14,CSKBB 


5242 




BAL 


R14,CSKBF 


5243 




BAL 


R14,CSKBF 


5244 




KHI 


R3,X'20" 


5245 




BNZ 


PASS 


5246 




LA 


R5,T5.EG04 


5247 




LHI 


R0,X'20' 


5248 




STH 


RO/STATGD 


5249 




BAL 


R14,T0ERR0RB 


5250 




LA. 


R15,KESSAGE1 


5251 




LA 


R14,C0NTKSG 


5252 




B ■ 


ERRORX 


5 253 


* COME I 


4ERE FOR A SELCH SETUP 


5254 


* 






5255 


TST5.5 


LHL 


P.3,SELCH + $VALU1 


5255 




BNZ 


T5.SOO0 


5257 




LA 


R5,NOSELCH 


5258 




BAL 


R15,L00P2 


5259 




B 


ABORT 


526 


* 






5261 


T5.S000 


LA 


R4,TFSTPAT+4 


5262 




BAL 


R14,T5.SWRT 


5263 




LA 


?.4 ,TESTPAT+8 



POSITIONED ON WRONG RECORD 
EXPECTED REC 2 



RECORD 



CLEAR TO ENABLE NMTN 
SKIP BACKWARDS A BLOCK 
POSITION TAPE AGAIN 
BACKSPACE ON' 1, SORE TINE 
CHECK FOR ERRORS 
CHECK BLOCK STATUS 
LET'S READ AGAIN 
WAIT FOR DATA TO 
READ IT 
EXPECTED DATA 
COMPARE DATA AN 1 ) 
IF EQUAL NEXT SEQUENCE 
IF NOT STORE THE DATA 
AND STORE 

NO SKIP BACKWARD RECORD OCCURRED 

EXPECTED RECORD 2 



SKIP FORWARD A FILE 

SKIP FORWARD ANOTHER FILE 

SKIP BACKWARDS A RECORD 

SKIP BACKWARDS A FILE 

SKIP BACKWARDS ANOTHER FILE 

LET'S CHECK TO SEE IF WE 

ARE AT 30T AND IF SO END TEST 

NO 'BOT' FOUND AFTER BACKWARD COWMAN^ 

EXPECTED BOT STATUS 

DRIVE AND STATUS 

SUSPECTED ERROR with CONTROLLER 



LOAD SELCH ADDRESS 
CONTINUE IF ADDRESSED 

OTHERWISE OUTPUT HSG. 
AND ABORT TESTING 

LOAD DATA PATTERN 

GO AND WRITE A RECOFT) 

LOAD 2ND PATTERN 



MTD52110 
<f , D52120 
•^052130 
»TDS2140 
HTD52150 
W'?D52160 
HTD52170 
M T D52190 
*TD52190 
HT^52200 
K^D52210 
MTD52220 
1TD52230 
MTD^2240 
M^D52250 
STD52260 
« T D52270 
STD52290 
""'052290 
N' I 'D52300 
wtt)c;2310 
IT'52320 
MTD52330 
1T"D52340 
"? ""^52350 
*! m D52360 
Y' T 'D52370 
1 m D52380 
f" , D52390 
«TD52400 
YTD52410 
MTD52U20 
mtt)52430 
!i T D52440 
STD524 e ;0 
MTD52460 
YTD52470 
>? , "D524,80 
f ,T, D52490 
M"">52500 
•?" , D52510 
M'"D52520 
MTD52530 
•ITDS2540 
1 m D52550 
M'" 1)52*60 
MTD52570 
VMTD52580 
Htt)52590 
M T D52*00 
MTD52610 
""'D52620 
MTD52630 
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TEST 5 








005322 


41K0 


8020 


=005346 


005326 


41E0 


A942 


=007C6C 


00532A 


E6 40 


3102 


=003430 


00532E 


41F0 


8014 


=005346 


005332 


5640 


BOFO 


=008426 


C05336 


41E0 


800C 


=005346 


00533A 


41E0 


A92E 


=0C7C6C 


00533E 


41F0 


ADDO 


=008112 


005312 


4300 


FD9E 


=0050E4 




0000 


5345 




005315 


40F0 


3556 


=0088A0 


00534A 


41F0 


AAEA 


=007F38 


00534E 


41E0 


A848 


=007B9A 


005352 


41E0 


A87C 


=007BD2 


005 355 


4150 


A9A0 


=007CFA 


00535A 


73 AO 


200C 




00535S 


C3A0 


0001 




*005362 


2333 




=005368 


005364 


4150 


A980 


=007CE8 


005368 


41 SO 


A914 


=007C80 


00536C 


41^0 


AAAO 


=007F10 


005370 


E650 


81B4 


=005528 


005374 


S600 


8014 


=00538C 


005378 ■ 


4000 


21E8 




00537C 


080A 






00537E 


260F 






005380 


41E0 


A902 


=007C86 


00 538 4 


41 FO 


162A 




005388 


4300 


2^06 




00538C 


41F0 


AA78 


=007E08 


005390 


41E0 


A388 


=007C4C 


005394 


C430 


0020 




*005398 


2333 




=00539E 


00539A 


41F0 


AD34 


=0080D2 


00539E 


41F0 


AAD6 


=007F78 


0053A2 


41F0 


AB5C 


=007F02 


0053A6 


41E0 


A83A 


=007BE4 


0053AA 


48E0 


B4F2 


=0088AO 


0053AE 


030E 






005330 


41^0 


2836 




0053B4 


4800 


3052 


=00840A 


0053B8 


C300 


OOOE 




00533C 


4330 


133C 




0053CO 


41^0 


A994 


=007D58 


0053C4 


4300 


7CAA 


=005072 



5264 




BAI 


?1U,Tr. .SWBT 


5265 




BAL 


R14,CWRE0F 


5266 




LA 


?.i-,TESTPAT+10 


5267 




BAL 


R14,T5.SWRT 


5263 




LA 


R4,T"STPAT 


5259 




BAL 


R14,T5.SWRT 


5270 




BAL 


P14,CWRF.0F 


5 271 




BAL 


?.15,STATCHK 


5272 




3 


T5.1* 


5273 


* 






5274 


T5.SWRT 


EQU 


* 


5275 




STH 


?14,SP15SAV 


5276 




BAL 


?15,SZLSETK 


527-7 




BAL 


?14,CCLFAR 


527 3 




BAL 


R14,CDSNS 


5279 




BAL 


R14,*RBUF 


5280 




LHL 


?10,BYTES+$VALU1 


5281 




THI 


R10,X'0001 • 


5282 




BZ 


T5.SW1 


5283 




BAL 


R14,CWR0DBY 


5284 


T5.SW1 


BAL 


R14,CWRITE 


5285 




BAL 


R15,REST0RE1 


5286 




LA 


R5,T5.E005 


5287 




LA 


P0,T5.5B1 


5288 




STH 


R0,DEVINT+2 


5289 




LR 


R0,R10 


5290 




AIS 


R0,15 


5291 




BAL 


R1U,CG0 


5292 




BAL 


R15, TIMER 


5293 




B 


T1R09 


5294 


T5.5B1 


BAL 


P15, RESTORE 


5295 




BAL 


R14,SENSTA2 


5296 




NHI 


P^X^O" 


5297 




BZ 


T5.5C 


5293 




EAL 


R15,REWKT 


5299 


T5.5C 


BAL 


?15,SELCHK 


5300 




BAL 


R15,SELEND 


5301 




BAL 


314,SSNSTA1 


5302 




LH 


R14,SR15SAV 


5303 




PR 


514 


5304 


* 






5305 


* 






5306 


TST5.END 


BAL 


P15,TST.DRIV 


5307 




LH 


?,0,DPIVSAV1 


5308 




THI 


?0,X'S' 


5309 




3Z 


TSTEND 


5310 




BAL 


?15,IT.B1 


5311 




3 


TST5.1 



OUTPUT RECORD 

WHITE AN END OF FILE ## 

LOAD 3RD PATTERN 

OUTPUT RECORD 

LOAD LAST PATTERS 

OUTPUT LAST RECORD 

OUTPUT END OF FILE 

CHECK INTERFACE STATUS 

GO AND CHECK SKIP FUNCTIONS 



SAVE R1U 

GO AND SET UP SELCH 
INITIALIZE INTERFACE 
OUTPUT DENSITY COMMAND 
LOAD WRITE ADDRESSES 

IS IT ODD VALUE? 

NO 

ISSUE ODD BYTE COMMAND 

PUT INTERFACE IN WRITE MODE 

SKIP COHMANDS... 
INTERRUPT ADDRESS 

TIMVAL 

INCREASE SLIGHTLY R01 

GIVE SELCH THE GO 

WAIT FOR SELCH INTERRUPT 

TIMED OUT DURING SELCH *** WRITE 

RESTORE 31,R2,PSW 

GET SELCH STATUS 

ZERO IN ON EOT 

BYPASS IF NOT SET 

OTHERWISE REWIND TAPE 

CHECK ENDING STATUS 

CHECK ENDING ADDRESS 

HAKE SURE TAPE 

RESTORE R14 

RETURN TO CALLER 



CHECK FOR CTHER DRIVES 

CHECK FLAG 

IS IT SET 

NO, END TEST 

INIT TEST FOR OTHER DRIVES 

TEST 5 



M" , D52640 
MTD52650 
"^052660 
"■"052670 
MTD52680 
MTD52690 

MTI)S2"'00 

MTD52710 
MTD52720 
NTD52730 
M' T 'D52''U0 
M""D52750 
"""D52760 
M q, 052"77O 
MTD52780 
W"D52790 
9TD52800 
M n "D52810 
M?D52820 
M T D52830 
M q, D52840 
M-"D52850 
MTD52860 
MTD52870 
MTD52880 
M T D52890 
MTD52900 
M^D52910 
MTD52920 
MTD52930 
MTD52940 
M^D52O50 
M' n D52960 
MTD52970 
KTD52980 
MTD52990 
M"'D53000 
MTD53010 
MTD53020 
M T D53030 
MTD53040 
M" , D53050 
MTD53060 
MTD53070 
MTD53080 
MTD53090 
M^D53100 
"•TD53110 



HI3H PERFORM ANCE( 6 25 0) MA GTAP- 

!h:3T 5 



0053Ci 


4E4F 


2053 


4B49 


5020 


005370 


464F 


5257 


4152 


4420 


00 S3:- 6 


5245 


434F 


5244 


204F 


0053EO 


4343 


5552 


5245 


4420 


00 5 3E3 


8D0A 








00 5 3EA 


504F 


5349 


5449 


4F4" 


0053.-2 


4544 


204F 


4E20 


5752 


0053? A. 


4F4E 


4720 


5245 


434F 


005402 


5244 








005^0a 


ODOA 








005405 


534B 


4950 


2046 


4F52 


005U0?: 


5741 


5244 


2052 


4543 


0051*15 


4F52 


4420 






005U1-. 


SDOA 








00541C 


504F 


5349 


5449 


4F4F. 


00542" 


4544 


204F 


4F20 


5752 


00^42C 


4?4E 


4720 


5245 


434F 


005-34 


5244 








005436 


ODOA 








0051.3S 


4E4F 


2053 


4B49 


5020 


005440 


464F 


5257 


4152 


4420 


00544? 


4649 


4C45 


204F 


4343 


005150 


5552 


5245 


4420 




005456 


8D0A 








005453 


504F 


5349 


5449 


4F4E 


005460 


4544 


204F 


4F20 


5752 


005463 


4F4E 


4720 


4649 


4C45 


005470 


ODOA 








005472 


534B 


4.950 


2046 


4F52 


00547A 


5741 


5244 


2046 


494C 


005482 


4520 








005464 


8D0A 








005486 


504F 


5349 


5449 


4F4E 


00548E 


4544 


204F 


4E20 


5752 


005496 


4F4E 


4720 


5245 


434F 


00549E 


5244 








0054A0 


ODOA 








0054A2 


5343 


4950 


2042 


4143 


0054AA 


4B57 


4152 


4420 


4649 


005452 


4C45 








0054B4 


8D0A 








0054B6 


504F 


5349 


5449 


4F4E 


005UBE 


4544 


204F 


4E20 


5752 


0054C6 


4F4E 


4720 


5245 


434F 


0054CE 


5244 








0054DO 


ODOA 








0054D2 


534B 


4950 


2042 


4143 


0054DA 


4B57 


4152 


4420 


5245 


0054E2 


4 34F 


5244 






0054E6 


3D0A 








0054E8 


504F 


5349 


5449 


4F4F 


0054FO 


4544 


204F 


4E20 


5752 


0054F8 


4F4E 


4720 


5252 


4^43 
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5313 T5.E0OO DC C'NO SKIP FORWARD RECORD OCCURRED' ,X ' 8D0 A ' 



5314 



DC C'POSITIONED ON WRONG RECORD ' ,X ' ODOA • 



5315 T5.E000A DC C'SKIP FORWARD RECORD ' ,X ■ 8D0A' 



5315 



DC C POSITIONED ON WRONG RECORD ' ,X ■ ODOA ■ 



5317 T5.S001 DC C'NO SKIP FORWARD FILE OCCURRED • ,X ' 8D0 A • 



5318 



PC C'POSITIONED ON WRONG FILE' ,X" ODOA • 



5319 T5.E001A DC C'SKIP FORWARD FILE ■ ,X* 8D0A • 



5320 



DC C'POSITIONED ON WRONG RECORD • ,X ' ODOA * 



5321 T5.E002 DC C'SKIP BACKWARD FILE • ,X ' SDOA ' 



5322 



DC C'POSITIONED ON WRONG RECORD ' ,X ' ODOA ' 



5323 T5.E003 DC C'SKIP BACKWARD RECORD ' ,X* 8D0 A ' 



5324 



" ; * DC C'POSITIONED ON WRONG RPFCORD* ,X ' ODOA ' 



MTD53130 



"TD53140 



MTD53150 



HTD53160 



w m n5317Q 



**"D53180 



^"•053190 



"•"D53200 



»! ,,, D53210 



1^053220 



1TD53230 



MT D53240 
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TEST 5 



005500 


4F52 


4420 






005504 


ODOA 








005506 


'494E 


434F 


5252 


4 54 3 


00550E 


5420 


5354 


4154 


5553 


005516 


2D4E 


4F20 


2242 


4F54 


00551E 


2220 


464F 


554F 


4420 


005526 


ODOA 








005528 


53 45 


4C43 


4820 


534B 


005530 


4950 


2043 


4F4D 


4D41 


005538 


4^44 


5320 






00553C 


ODOA 








00553E 


4952 


4720 


5741 


5320 


005546 


4E4F 


5420 


5752 


4954 


00554K 


5445 


4E20 






005552 


ODOA 








005554 


5441 


5045 


2048 


4153 


00555C 


2045 


5843 


4545 


4445 


005564 


4420 


5752 


4954 


5445 


00556C 


4E20 


5245 


434F 


5244 


005574 


5320 








005576 


ODOA 








005578 


4452 


4956 


4520 


2A2A 


005580 


2A20 








005582 


8D0A 








005584 


4558 


5045 


4354 


4544 


00558C 


2052 


4543 


4F52 


443D 


005594 


2A2A 


2A2A 






005598 


8D0A 








00559A 


4143 


5455 


414C 


2052 


0055A2 


4543 


4F52 


4420 


203D 


0055AA 


2A2A 


2A2A 






0055AE 


8D0A 








0055B0 


4441 


5441 


2057 


5249 


0055B8 


5454 


454E 


3D2A 


2A2A 


0055C0 


2A20 








0055C2 


8D0A 








0055C4 


4441 


5441 


2052 


4541 


0055CC 


4420 


2020 


3D2A 


2A2A 


0055D4 


2A20 








005535 


ODOA 









5325 T5.E004 DC C'IN'CORRECT STAT T !S-NO "BOT" FTJ'iD ' , v« ODO A * 



5326 T5.E005 DC C'SELCH SKIP C08«ANDS' ,X 'ODOA ' 



5327 T5.E006 DC C'IRG WAS NOT WRITTEN" ,X ' ODO A ' 



5323 T5.E007 DC C'TAPE HAS EXCEEDED WRITTEN RECORDS ' ,X • ODOA ' 



5329 T5ERMSG0 DC C'DRIVE "♦'/X'SDOA' 



5330 T5ERMSG1 DC C'EXPECTED RECOPD=**** ' ,X' 8D0A ' 



5331 T5ERHSG2 DC C'ACTUAL RECORD =****' ,X'8D0A* 



5332 T5ERMSG3 DC C'DATA WRITTEN=***** ,X' 8D0A. ■ 



5333 T5ERMSC-4 DC C'DATA READ =****' ,X ' ODOA ' 



*' P D53250 



Htt>«;3260 



1JTH53270 



fTT)53280 



1"'D53290 



H m D53300 



M m D^3310 



MTD53320 



"•^53330 
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5335 
5336 
5337 
5338 
5330 
5340 
5341 
5342 
5343 
5344 
5345 
5346 
5 347 
5343 
5349 
5350 
5351 
5352 
5353 



******************************************************* 

* TE3T 6 BACKWARDS READ * 



PURPOSE: TO CHECK OUT THE TAPE'S ABILITY TO 
A TAPE WHILE THE TAPE IS MOVING BACKWARDS. 



READ 



* TEST SPEC: THE TEST OUTPUTS A RECORD TO THE TAPE. * 

* INSTEAD OF REWINDING THE TAPE AND THEN * 

* READING IT, THE TEST ISSUES A READ * 

* BACKWARDS CO v MAND AND READS IN THE DATA * 

* ON THE TAPE. THE TEST VERIFIES THE ACTION * 

* WITH A DATA COMPARE AND STATUS CHECK. * 

* * 

* ERRORS: * 

* * 

* OPTIONS: * 

* DRIVE, TPMODE, SELCH, DATA, AND BYTES. * 

* * 
******************************************************* 



1TD53350 
1TD53360 
1TD53370 
>? m p^3380 
HTD53390 
MTD53400 
1*153(10 
1^053420 
1TD53430 
MTD53440 
>!' T 'D53450 
1TD53460 
M* T 'D53470 
MTD53480 
WTD53490 
"5^053500 
1TD53510 
*"'DF3520 
"TTJ53530 



0055D8 
0055DC 



0055E0 
0055E4 
0055E8 
0055EC 
0055F0 
0055F4 
0055F8 
0055FC 
005600 



005604 
005608 
*00560C 
00560F 
005612 
005616 
00561 A 
00561C 



41F0 A76E 
41F0 99D8 



=D07D4A 
=006FE8 



41F0 ADA8 =00838C 

0000 57F0 

0000 57F0 

11E0 A6AE =007C9E 

41E0 A5AA =007C9E 

41F0 AAD? =008002 

41F0 AAA8 =0080A4 

7330 2124 

4230 80B8 =0056BC 



4840 2036 

4040 AE18 =008424 

2135 =005616 

4840 AE1C =00842E 

4Q40 AEOE =008424 

7350 200C 

2751 

41F0 AC6E =00828E 



5355 
5356 
5357 
5358 
5359 



TEST6 



BAL 
BAL 



F.15,TESTINIT 
?.15,SEL.5 



INIT TESTING 

CHECK ONLINE OPTION 



******************************************************* 

* * 

* LET'S FIND OUT WHAT KIND OF TRANSFER HODE * 



5360 * * 

5361 ******************************************************* 



5362 TST6.1 

5363 

5364 

5365 

5366 

5367 

5363 

5369 

5370 

5371 

5372 

5373 

5374 

5375 

5376 

5377 

5378 

5379 

5380 

5381 T601A 

5362 

5383 



BAL R15,L00PT0P 

DAC TST6.END 

DAC TST6.END 

BAL ?.14,CST0P 

BAL P1U,CST0P 

BAL R15,REWHT 

BAL ?.15,VRTENB 

LHL R3,TBN0DE+$VALU1 

BNZ TST6.3 



PROCEED LIMIT 

STOP SELCH 

REWIND TAPE IF NECESSARY 
CHECK FOR WRITE ENABLED 
LOAD FLAG FOR SELCH TRANSFER 
BRANCH IF ONE TO SELCH "ODE 



******************************************************* 

* * 

* OTHERWISE THIS IS GOING TO BE DONE WITH DATA "RITES * 

* ## * 
******************************************************* 



LH R4,DATA+$VALU1 

STH R4,DATAPAT 

BNZ T601A 

LH ?4,TESTPAT+8 

STH R«,DATAPAT 

LHL R5,BYTES+$VALtJ1 

SIS ?,5,1 

PAL R15,DWRITE 



USER SPECIFIED DATA PATTFRN 

STORE I" 

YES, SO USE IT 

LOAD PATTERN 

LOAD RECORD LENGTH 

OUTPUT RECORD 



HTD "53550 
f T D53560 
T'"D53570 
S T D53580 

1TD53600 
fTD53610 
KTD53«20 
WTD53630 
1' 1 'D53540 
STD53650 
^"■053660 
1TD53670 
1TD53680 
»J?D53 fi 90 
•ITDSS^OO 
1^D53710 
KTD53720 
*"'D53730 
Y' T, D53740 
1TD53750 
W'"D53760 
«TD53770 
1TD53780 
1T"D53790 

n^D^3eoo 

"fTD53«10 
•"?*^D53820 
»5'7'ri53830 



HIGH PERFORNAKCF(6250)*AGTAPE DIAGNOSTIC 06-263R01 M95A 13 PAGE 119 08:34:07 12/23/83 
TSST 6 



005520 
005624 
005S2A 
00562? 
005632 
005634 
005636 
005638 
00563C 

005640 
005644 
005648 
00564C 
005550 
005652 
'005654 
005656 



00565A 
00565E 
005662 
005668 
00566C 

♦005670 
005672 

*005674 
005676 
005678 
00567C 
005682 

♦005684 
005686 
005688 
00568C 
00568E 

♦005692 

005694 
00569A 
00569C 
005SA0 
0056*4 
0056A8 
0056AC 
0056B0 
0056B4 
0056F.8 



41F0 AAEE =008112 

"560 4001 89D0 

5060 AEAE =0084DC 

7350 200C 

2751 

0875 

0*56 

5050 AE9C =008408 

41F0 A7D8 =007E18 



41E0 


81C4 


=005808 


41E0 


A5DA 


=007C22 


41E0 


A5D6 


=007C22 


D915 


0000 




26*2 






2772 






2286 




=005648 


41E0 


A58A 


=007BE4 



E640 


ADC6 


=008424 


5880 


AE76 


=0084D8 


E660 


4001 


89D0 


7350 


200C 




C350 


0001 




2333 




=005676 


2420 






2302 




=005678 


2421 






D376 


0000 




D334 


4200 


COOO 


0573 






2138 




=005694 


0568 






4330 


ACC2 


=00834E 


2661 






C720 


0001 




220D 




=005678 


S650 


4001 


8 9 DO 


0565 






4060 


AD74 


=008414 


E650 


816A 


=00580E 


4030 


»E54 


=0084FC 


4070 


AE52 


=0084FE 


41F0 


2CC4 




E6F0 


35F6 




S6E0 


AEDE 


=008596 


4300 


AC10 


=0082CC 



5384 






BAL 


R15,STATCHK 


5385 






LA 


E6,READBUF 


5386 






ST A 


R6,RPBUF 


5337 






LHL 


R5,BYTES+$VALU1 


5388 






SIS 


R5,1 


5389 






IE 


R7,R5 


5390 






AAH 


R5,R6 


5391 






STA 


R5,ENDBUF 


5392 






BAL 


R15,CLRBUF 


5393 


* 








5394 






BAL 


R14,CFDBSCK 


5395 






BAL 


R14,SENSTA3 


5396 


T6 


. 1DB 


BAL 


R14,SENSTA3 


5397 






RH 


R1,0(R6) 


5398 






AIS 


R6,2 


5399 






SIS 


R7,2 


5400 






BNL 


T6.1DB 


5401 






BAL 


R14,SENSTA1 


5402 


* 








5403 


* 


LET'S 


SEE WHAT WE READ 


5404 


* 








5405 






LA 


R4,DATAPAT 


5406 






LDA 


R8,ENDBUF 


5407 






LA 


R6,READBUF 


5408 






LHL 


R5,BYTES+$VALU1 


5409 






THI 


R5,X'0001' 


5410 






BZ 


T6.002A 


5411 






LIS 


R2,0 


5412 






B 


T6.2B 


5413 


T6 


.002A 


LIS 


R2,1 


5414 


T6. 


• 2B 


L3 


R7,0(E6) 


5415 






LB 


R3,0(R4,P2) 


5416 






CLP 


R7,53 


5417 






BNE 


T6.2C 


5418 






CLR 


R6,R8 


5419 






EE 


PASS 


5420 






AIS 


K6,1 


5421 






XHI 


R2,1 


5422 






B 


T6.2B 


5423 


* 








5424 


T6, 


. 2C 


LA 


R5,READBUF 


5425 






SB. 


R6,R5 


5426 






STH 


R6, INDEX 


5427 






LA 


R5,T6.E002 


5428 






STH 


R3,WST0FE 


5429 






STH 


R7,RST0RF 


5430 






BAL 


R14,T1ERR0FA 


5431 






LA 


R15,MESSG3A 


5432 






LA 


P.14,C0KTKSG 


5433 






H 


ERRORX 


5434 


+ 








5435 


*+****+***+***#***********#***i 


5436 


* 









CHECK INTERFACE STATES 

LOAD ADDRESS OF READ BUFFER 

STORE ADDRESS 

LOAD RECORD LENGTH AGAIN 

ADJUST FOR SFLCH ADDRESSES 

LOAD INTO R7 

CALCULATE ENDING ADDRESS 

STORE THIS ADDRESS 

CLEAR BUFFER 

PUT INF= INTO READ BACKWARDS KOT)E 
WAIT FOR BUSY TO DROP 
CHECK STATUS 
READ INTO READBUF 
DECRENENT BUFFER ADDRESS 
DECREMENT BYTE COUNT 
CONTINUE UNTIL FINISHED 
LOOK FOE NS n, N OF 



LOAD ENDING BUF ADDRESS 
LOAD ADDRESS OF READ DATA 
SEE IF BYTES IS ODD 

BYTE ALLOCATION IS EVEN 

CLEAP INDEX R2 FOR ODD BYTE COHPARFS 

SET TOGGLE INDEX R2 FOR EVEN BYTES 

LOAD DATA 

DATA WRITTEN 

COMPARE THE TWO 

INCORRECT DATA COMPARE ON READ BSCK"A 

HAVE WE COMPLETED SPECIFIED BUFFER 

YES, GO ON 

INCREMENT BUFFER ADDRESS 

TOGGLE R2 FOR CORREC"' BYTE 

CONTINUE COHPARE IF NOT FQUAL 

GET ADDRESS OF REABHF 

FIGURE BYTE LOCATION 

SAVE IT 

READ BACKWARD.. 

STORE WRITE DATA 

STORE READ DATA 

DATA 

BEGINNING OF SESSAG* 

SUSPECTED ERROR WITH CONTROLLER 



""'D53840 
f' T 'D53 t i50 
"1T')53960 
»f "^53870 
1TD53S30 
MTD53890 
1^53900 

T!" D53910 
Y"'D53920 
MTD53930 

MTD53950 
yTT>53950 
Y^D53970 
MTD53980 
f' T 'D53990 
H'"D54000 
MTD54010 
WTD54020 
Y" , D54030 
MTi)54040 
MTD54050 
, f'D54060 
M^D54070 
<f'D54030 
Y q 'D54090 
*"'D54100 
ITD^IIO 

HTD54120 
MTD54130 
""'D54140 
KTD54150 
MTD54160 
W" , D54170 
N m D54180 
•TD54190 
M" , D54200 
M ' T 'D54210 
ktd^4220 
MTD54230 
wT0C[)24O 
MTD542 c ;0 
M^D5U260 
""'D54270 
V^D54280 
<f^T)5U?90 
*! -"954300 
KT5^4310 
vTnc432Q 
V ' , 'D54330 
MTD54340 
MTD54350 
MTD54360 



HIGH PERFORMAN"(6250)}'AGTAPE DIAGNOSTIC 06-263R0 1 M95A 1 3 PAGE 120 08:34:07 12/23/83 
TEST 6 



0056BC 
0056C0 
0056C4 
0056C8 
0056CC 
0056P0 
0056D4 
0056D8 
0056DC 

♦0056EO 
0056E2 
0056E6 
0C56EA 
0056ES 
0056F2 
0056F6 
0056F8 
0056FA 
0056FE 
005702 
005706 
00570A 
00570E 
005712 
005716 

*00571A 
00571C 



005720 
005724 
005728 
00572C 
005730 
005734 
005738 
00573C 
005740 
005742 
005744 
005748 
00574C 
005750 
005754 
005758 
00575C 
005760 
*00576u 
0C5766 



41F0 


6C?A 


=0057BA 


41 SO 


A 5 DA 


=007C9F 


41E0 


A5D6 


=007C9F 


41E0 


A4CE 


=007E9A 


41E0 


A 5 02 


=007ED2 


41E0 


A626 


=007CFA 


41F0 


A 7 3 8 


=007F10 


73A0 


200C 




C3A0 


0001 




2333 




=0056E6 


41E0 


A602 


=007CE8 


41E0 


A596 


=007C80 


E650 


8132 


=005820 


5600 


8014 


=005706 


4000 


21E8 




080A 






260F 






41E0 


A 58 8 


=007C86 


41F0 


152A 




4300 


2E06 




41F0 


A6FE 


=007F08 


41F0 


A76A 


=007E78 


41F0 


A7F0 


=007F02 


41F0 


A9FC 


=008112 


C430 


0020 




2333 




=005720 


41E0 


A554 


=007C74 



73 AO 


200C 




41F0 


A918 


=008040 


41E0 


A46E 


=007P9A 


41E0 


A5PA 


=007D2A 


41E0 


80D4 


=005808 


E650 


8106 


=00583F 


S600 


8014 


=005750 


4000 


21E8 




080 A 






260F 






41E0 


A550 


=007C98 


41F0 


162A 




4300 


2E8C 




41F0 


A6B4 


=007E08 


41F0 


A720 


=007E78 


41F0 


A7A6 


=007F02 


41F0 


A9B2 


=008112 


C430 


0020 




2333 




=00576A 


41E0 


A50A 


=007C74 



5437 
5438 
5439 
5440 
5441 
5442 
5443 
5444 
5445 
5446 
5447 
5448 
5449 
5450 
5451 
5452 
5453 
5454 
5455 
5456 
5457 
5458 
5459 
5460 
5461 
5462 
5463 
5464 
5465 
5466 
5467 
546S 
5469 
5470 
5471 
5472 
5473 
5474 
5475 
5475 
5477 
5478 
5479 
5480 
5481 
5482 
5483 
5484 
5485 
5486 
5487 
5488 
5489 



* COME HERE IF TRX0DE=1 FOR SELCH TRANSFERS * 

* * 
******************************************************* 



TST6.3 BAL E15,SELINCW 

BAL R14,CST0P 

BAL R14,CST0P 

PAL R14,CCLE?R 

EAL R14,CDENS 

BAL R14,fcRBUF 

BAL R15,REST0RE1 

LHL R10,BYTES+$YALU1 

THI RlOrX'OOOV 

BZ T6.3B 

EAL R14,CWR0DBY 

T6.39. Q AL R14,CWRITE 

LA R5,T6.E003 

LA R0,T6.3A1 

STH RCDEVINT+2 

LP R0,R10 

AIS BO, 15 

3AL R14,CG0 

BAL R15, TIMER 

B T1R09 

T6.3A1 BAL R15, RESTORE 

BAL R15,SELCHK 

BAL R15,SELEND 

BAL R15,STATCHK 

KKI RS/X^O" 

B2 T6.3AA 

BAL R14,CSKBF 

* 

* LET'S READ IT BACK VIA SELCH 

* 

T6.3AA LHL E10,BYTES+$VALU1 

3AL R15,SELSETR 

BAL R14,CCLEAR 

EAL R14,REBUF 

3AL R14,CRDBACK 

LA R5,T6.E004 

LA R0,T6.3C1 

STH R0,DEVINT+2 

LR R0,R10 

AIS R0,15 

BAL R14,CG0READ 

BAL R15, TIMER 

B T1R10 

T6.3C1 BAL R15, RESTORE 

BAL R15,SELCKK 

BAL R15,SELEND 

BAL R15,STATCHK 

JfHI R3,X'20' 

EZ T6.3CA 

BAL P14,CSICRF 



GO SET UP SELCH 



ISSUE COMMAND CLEAR 
OUTPUT DENSITY COMMAND 

ENABLE INT 

GET BYTES VALUE 



PUT INTERFACE IN WRITE MODE 
READ BACKWARD.. (SELCH WRITE) 
INTERRUPT ADDRESS 

TIMVAL 

INCREASE SO?.E R01 

GIVE SELCH THE GO 

WAIT R01 

TIMED OUT DURING SELCH *** WRITE 

RESTORE R1H2,PSW 

CHECK ENDING STATUS 

CHECK ENDING ADDRESS 

CHECK INTERFACE STATUS 

IS EOT SET 

REWIND HAG TAPE TO FILE MARK 



LOAD COUNTER 

GO SET UP READ BUFFER 

CLEAR INTERFACE 

SET UP READ ADDRESSES 

PUT INF INTO READ BACKWARDS 

READ BACKWARD.. (SELCH READ) 

INTERRUPT ADDRESS 

STORED HE^E 

TIWVAL 

INCREASF R01 

GIVE SELCH ""HE GO 

WAIT FOP INTERRUPT R01 

TIMED OUT DURING SELCH *** READ 

RESTORE R1,R2,PSW 

CHECK ENDING STATUS 

CHECK ENDING ADDRESS 

CHECK INF. STATUS 

IS EOT SET 

NO, CONTINUE 

ELSE REWIND MAG TAPE TO FIL* 1 MARK 



MTD54370 
•C"!) 54 38 
MTD54390 
MTD54UO0 

MTD54420 
MTD54430 
M' T, D544U0 
M'"D54450 
MTD54460 
MTr ) 544'70 
MTD54480 
MTD54490 
MTD54500 
MTr>5U510 
MTD54520 
MTD54530 
yTD54 c; 40 
M"'D54550 
MTD54560 
MTD54570 
M m D54580 
M T D54590 
MTD54600 
XTOS4610 
M n, D54'=;20 
!f'D54630 
MTD54640 
M'"D54«50 

M^Dsaseo 

MTD54670 
MTD54680 
M^D54690 
Mi , D54700 
M' P D54710 
M' T 'D54720 
"■^054730 
Ml , D54"740 
MTD54750 
""'D54760 
MTD54770 
"TD54780 
"•PD54790 
M' n D54800 
WTD54P 10 
MTT)54820 
mtf)5U830 
w^D54840 
H^D54850 
Mi-DStflfiO 

y , D54070 
M"D54880 
Mn, D54890 



HIGH PESF0E»ANCF(62S0)KAGTAPE DIAGNOSTIC 06-263R01 M95A 1 3 FAGE 121 08:34:07 12/23/83 
TEST 5 



00576A 
00576E 
005772 
005776 
00577A 
00577C 
00577E 
0OS784 
005788 
00578C 

•00578E 
005790 
005792 

"005794 
005796 

00579A 
00579E 
0057A2 
0057A5 
0057AA 
0057AE 
0057B2 
0057B6 



41F0 


A530 


=007C9E 


41E0 


A52C 


=0C7C9E 


E650 


AD62 


=008408 


7360 


200C 




2761 






2470 






0387 


4001 


89D0 


C480 


OOFF 




D336 


3244 


=008SD0 


0538 






2136 




=00579A 


2571 






2761 






228B 




=00577E 


"300 


losa 


=00834E 


4030 


AD5E 


=0084FC 


4080 


AD5C 


=0084FE 


4070 


AC6E 


=008414 


E650 


8094 


=00583F 


41E0 


2CC4 




F.6F0 


35F6 




26S0 


ADEO 


=008596 


1*300 


AB12 


=0082CC 



5490 
5491 
5492 
5493 
5494 
5495 
5495 
5497 
5498 
5499 
5500 
5501 
5502 
5503 
5504 
5505 
5506 
5507 
5508 
5509 
5510 
5511 
5512 
5513 
5514 
5515 
5516 
5517 
5518 
5519 
5520 
5521 
5522 
5523 



* LET'S CHECK THE DATA NOW (BUFFER IS BACKWARDS) 



T6.3CA 3AL ?14,CST0P 

BAL R14,CST0P 

LA R5,£NDBUF 

LHL R6,BYTES+$VAL0i 

SIS R6,1 

LIS "7,0 

T6.3E LB R8,EEADBUF(R7) 

N'KI R8,X'FF' 

L3 R3,WRTBUF(R6) 

CLR R3,P8 

BNE T6P.04 

AIS R7,1 

SIS R6,1 

BNL T6.3E 

B PASS 
* 

T6H04 STH P3.HST0RE 

STH E8,PST0RE 

STH R7, INDEX 

LA R5,T6.E004 

BAL R14,T1ERR0SA 

LA R15,KESSG3A 

LA R14,C0NTMSG 

B ERROPX 



STOP SELCH 

LOAD ENDING ADDRESS OF READ BCF 
LOAD RECORD LENGTH 

ZER0=START PATTERN 
LOAD A BYTE TO COMPARE 
CL^AE HPPEP HALF 

COMPARE WITH DATA 

ERROR IF NOT EQUAL 

INCREMENT PATTERN 

DECREKENT 3UFFER 

KEEP COMPARING UNTIL ZERO 

BRANCH TO END OF TEST 

STORE WRITE DATA 
STORE READ DATA 

READ BACKWARD.. (SELCH READ) 

DATAS 

BEGGINING OF MESSAGE BODY 



******************************************************* 

* * 

* COME HERE TO SET UP WRITE BUFFER * 

* WITH INCREMENTAL DATA * 

* * 
******************************************************* 



*TD54900 
1TD54910 
HTD54920 
»f'D549 : '0 
MTD54940 
f^D54950 
f"'D54960 
?! '"054970 
MTDS4980 
HTD54990 
M^D -55000 
?f , D55010 
lfi , D55020 
>!TD55030 
MTD55040 
«^D55050 
MTD55060 
MTD5^070 
•TD55080 
f"'D55090 
XTD55100 
^05*110 
TPD55120 
MTD55130 
w"D55mo 
MTD55150 
MTD55160 
"5TD55170 
"rDSMSO 
»T'D55190 
1TD55200 
f n, D55210 
YTD5=,220 
^055230 



0057BA 
0057BE 
0057C2 
0057C6 
0057CA 
0057CC 
0057D0 
0057D2 
0057D4 
0057D8 
0057DA 
0C57DS 
0057B0 
0057E2 
*0057E4 
0057E6 
0057EA 



0000 


57BA 




7320 


2108 




DOOO 


ACCE 


=008490 


E610 


320A 


=0089D0 


7350 


200C 




2751 






5010 


AD04 


=0084D4 


0821 






0A25 






5020 


^DOO 


=0084D8 


2430 






D231 


0000 




2631 






2611 






05 35 






2225 




=0057DA 


D100 


ACA5 


=008490 


41E0 


A430 


=007C9E 



5525 SELINCW EQU * 

5526 LHL R2 ,SELCH+$VALU1 

5527 STH R0,REGSAVE 

5528 LA R1,WRTBUF 

5529 LHL R5 ,3 YTES+SVALU1 

5530 SIS R5,1 

5531 STA R1,WBUF 

5532 LR R2,R1 

5533 AAS R2,35 

5534 STA R2,ENDBUF 

5535 LIS 33,0 

5536 SELI.1 STB R3,0(R1) 

5537 AIS R3,1 

5538 AIS 31,1 

5539 CLR P.3,35 

5540 P. 3? SSLI.1 

5541 L» R0,RFG3AVE 

5542 BAL 314,CST0P 



LOAD SELCH ADDRESS 

STOPE WORKING REGISTERS 

LOAD ADDRESS OF WRITE BUFFER 

LOAD BYTE COUNT 

ADJUST FOP 3ELCH ADDRESS 

STORE START ADDRESS 

LET'S FIND ENDING 

ADDRESS OF BUFFER 

AND STORE IT 

PATTERN WILL START WITH 

ZEROS. STORE IT 

INCREMENT PATTERN 

INCREMENT LBAL 

HAVE WF STORE ALL? 

NO! CONTINUE STUFFING 

RESTORE REGISTERS 

PUT SELCH IV KNOW STATE 



r^D55250 
VTD55260 
•5TD55270 
WTD55280 
1TD55290 
W'*D55300 
"TD55310 
WTD55320 
>!TD5 C 330 
M" , D55340 
^055350 
"T-D55360 

>TD553R0 
w m D55390 
«^D5S400 
1 !TD55410 
MTD5^420 



HI~H ?ER703MANCEC?250)MASTAPE DIAGNOSTIC 6-263R0 1 M95A 1 3 PAGE 122 08:34:07 12/23/83 
TEST 5 



0057EE 


030F 






5543 
5544 


* 






3~a 


S15 


0357FO 


41F0 


28 3? 




5545 


TST6, 


.END 


BAL 


?.15,TST.D5IV 


0057F4 


4800 


AC 12 


= 008 40?. 


5546 








LH 


?0,DP,IVSAV1 


0057FS 


C300 


OOOE 




5547 








THI 


F.O/X'E* 


0057FC 


4330 


133C 




5543 








BZ 


T3TEKD 


005800 


41F0 


A554 


=007D58 


5549 








RAL 


515,IT.B1 


005804 


4300 


FDD8 


=0055EO 


5550 
5551 
5552 


* 






5 


TSTS.1 










* 


S 


U B 


SOU 


TINE C 










5553 


* 










005808 


DE10 


A8D0 


=0083PC 


5554 


CRDBACK 


oc 


P1,RDBACK 


00580C 


03 OE 






5555 








BR 


514 



00580E 


52 45 


4144 


2042 


4143 


005816 


4357 


4152 


442E 


2F20 


00581E 


ODOA 








005820 


5245 


4144 


2042 


4143 


005828 


4B57 


4152 


442E 


2E28 


005830 


5345 


4C43 


4820 


5752 


005638 


4954 


4529 






00583C 


ODOA 








00583E 


5345 


4C43 


4820 


5245 


005846 


4144 


2042 


4143 


4B57 


0Q534F 


4152 


442E 


2E20 




005354 


OOOA 









RETURN TO CALLER 1TD55430 

VTD5544C 
CHECK FOR OTHER DRIVES *tt)c;5450 

CHECK FLAG 1T>554<;0 

IS IT SET w' T 'D55470 

NO, END TEST in>S5U80 

INIT TEST FOR OTHER DRIVES MTD55490 

WTD55500 

"Tn55 ,; 10 

R D B A C K H^D55520 

'ii'D55^30 
READ BACKWARDS M' r D55 K 40 

RETURN *TT)*?"0 



5557 T6.E002 DC C'EEAD BACKWARD. .' ,X* ODOA • YTD5557C 

5558 T6.E003 DC C'READ BACKWARD. . (SELCH WRITE )' ,X • ODOA ■ T"D55580 

5559 T6.E004 DC C'SELCH READ BACKWARD. .' ,X' ODOA* M^D55590 
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5561 
5562 
5563 
5554 
5565 
5565 
5567 
5568 
5569 
5570 
5571 
5572 
5573 
5574 
5575 
5576 
5577 
5578 
5579 
5580 
5581 
5582 
5583 
5584 



******************************************************* 

* TEST 7 INTERRRUPT CIRCUITRY * 

* * 

* PURPOSE: TO EXERCISE THE TAPE SYSTEM UNDER INTERRUPT* 

* CONTROL UTILIZING THE ALREADY TESTED OPERATIONS. * 



TEST SPEC 
OF THE TH 
CIRCUITRY 
ASSOCIATE 
ENABLES T 
UTILIZING 
READ, SEW 
SIGNALS C 
COHPLEXIT 
EXERCISES 

ERRORS: 



: THIS TEST STARTS OUTPUT WITH A CHECK 
REE STATES OR MODES OF THE INTERRUPT 

(DISARM, DISABLE AND ENABLE) AND THE 
D LOGIC ON THE INTERFACE. IT THEN 
HE LOGIC AND EXERCISES INTERRUPTS 

BASIC MAG TAPE COMMANDS (WHITE, 
IND AND SKIP) AND THEIR ASSOCIATED 
3USY AND NMTN), BUILDING UP THE 

OF THE OPERATION UNTIL THE PROGRAM 

THE ENTIRE SYSTEM. 



T 'T 



* OPTIONS: * 

* DRIVE, T3M0DE, SELCH, FILES, RECORDS, BYTES, AND * 

* DATA. * 

* * 
******************************************************* 



M^D55610 
M^D55^20 
MTD55630 
M^D55640 
M^T>55650 
MTD55660 
W""D^5670 
M^D55680 
MTD55690 
K^D55700 
»f"D55710 
M^D55720 
MTD55730 
VD55740 
MTDS^SO 
MTD55760 
"""D55770 
M" , D55780 
MTD55790 
M' T, D55800 
MTD55810 

MTP55830 
VD55S40 





0000 


5856 




5586 


005856 


41F0 


A4F0 


=007P4A 


5587 


00585A 


41F0 


975A 


=006FB8 


5588 

5589 


00585E 


41F0 


AB2A 


=00838C 


5590 


005864 


0000 


58AC 




5591 


005868 


0000 


62D4 




5592 


00586C 


41F0 


A834 


=0080A4 


5593 

5594 


005870 


41F0 


8A3A 


=0062AE 


5595 


005874 


08C1 






5596 


005876 


91C1 






5597 


005878 


CACO 


OODO 




5598 
5599 


00587C 


7330 


0A54 




5600 


005680 


95F3 






5601 
5602 
5603 
5504 


005882 


E650 


8A70 


=0062F6 


5505 


005886 


4050 


AB9A 


=008424 


5506 


00588A 


41 EO 


A30C 


=00739A 


5607 


O0588E 


41E0 


A340 


=007FD2 


5508 


005892 


41E0 


A 4 34 


=007CCA 


5609 



EQU 


* 




SAL 


R15,TESTIHIT 


INIT TEST 


BAL 


R15,SEL.5 


CHECK ONLINE OPTION 


BAL 


R15,L00PT0P 




DAC 


T7.002 


NEXT SEQUENCE 


DAC 


TST7.END 




PAL 


R15,WRTENE 


ARE WRITES ENABLED? 



TEST7 



TST7.1 



BAL R15,INTRSET 
LDAR R12,R1 
SLHLS 512,1 
AHI E12,X'D0' 
* R12 CONTAINS INTERRUPT TABLE LOC 
LHL R3,PSW3 
IPS?. ? 1 4 , D 3 



SET INTERRUPT TABLES 
RELOCATE DEVICE ADDRESS 
DOUBLE I" 
ADD IN OFFSET 

PSW=70F0 

SET UF "OR 10 INTFRRPUPTS 



FIRST CHECK IS FOR AN INTERRUPT WHi: 



DISARMED 



LA 


?.5,T7.E000 


STK 


R5,DATA?AT 


RAL 


R14,CCLEAR 


SAL 


R14,CDENS 


PAL 


R14,CDISARM 



INTERRUPT WAS GENERATED WHILE DISAR*E 

SAVE ERROR MSG ADDRESS 

CLEAR INTERFACE BEFORE C WRITE 

DENSITY COMMAND 

MAKE SURE INTERFACE DISARMED 



MT'D55860 
M T D55R70 
M^P55880 
T"D5*890 
MTD55900 
"^055910 
M"'D55920 
M^D5^9?n 
yr-D55940 
H' T 'D55950 

M^D55970 
M^D5S980 
wn, D55990 
wtt)56000 
»");<; 010 
*' T, D56020 
M m P56930 
VTD55040 

-TDS6050 
M" n D56060 
"^1)^6070 
M" , D55080 
"TD56090 
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005896 
0058SA 
00589 E 
0058A2 
0058A4 
005SA8 



0058AC 
O058E0 
0058B4 
0058B8 
O058BC 
0058CO 



0058C4 
0058C8 
0058CC 
005800 
0058D4 
0058D8 
0058DA 



0058DE 
0058E2 
0058S6 
0058EA 
0058EE 
0058F2 
0058F4 



0058F8 
0058FC 
005900 
005904 
005908 
00590C 

005910 
005914 
005918 



S630 8076 =005910 

4030 21E6 

4S40 AB8C =0084?F 

245A 

41F0 A9F8 =0082A0 

4300 AAA2 =00834F 



41F0 AADC =00838C 

0000 58C4 

0000 62D4 

3550 8A5E =006313 

41S0 A410 =007CD0 

4300 AA8A =00834E 



41F0 AAC4 

0000 592A 

0000 62D4 

5650 3A68 

4050 AB4C 
2430 

4030 21E6 



=00838C 



=00633C 
=008424 



41E0 A2B8 =007B9A 

'41E0 A2EC =007ED2 

41E0 A3EC =007CD6 

S630 3022 =005910 

4030 21E6 

245A 

41F0 A9A8 =0082A0 



"650 8A64 =006360 

E630 AA45 =00834F 

4030 21E6 

41E0 A3C8 =007CDO 

C830 7FFF 

41E0 839E 



4950 AB10 
7330 0A52 
95E3 



=005CAE 



=008424 



5510 
5511 
5512 
5 5 13 
5614 
5615 
5616 
5617 
5518 
5519 
5520 
5621 
5622 
5623 
5624 
5625 
5626 
5527 
5623 
5529 
5630 
5631 
5632 
5633 
5634 
5635 
5536 
5637 
5633 
5639 
5640 
5541 
5642 
5643 
5644 
5645 
5646 
5547 
5648 
5649 
5650 
5651 
5652 
5653 
5654 
5655 
5656 
5657 
5658 
5659 
5660 
5561 
5562 



T7.002 



T7.003 



LA 

STH 

LH 

LIS 

BAL 



R3,TST7.0FB 

F3,DEVINT 

R4,TESTPAT+8 

P5, 10 

R15,DW.0 

PASS 



LOAD ERROR ADDRESS IF INTF, 

STORE IT 

LOAD A PATTERN 

OUTPUT A RECORD 



WE GOT HERE IF NO INTERRUPTS OCCURRED LET'S 
SEE IF AN INTERRUPT WAS QUEUED THO! 



NEXT SEQUENCE 



BAL 


R15,L00PT0P 


DAC 


T7.003 


DAC 


TST7.END 


LA 


R5,T7.E001 


BAL 


R14,CENBLE 


B 


PASS 



INTERRUPT WAS QUEUED WHILE DISARMED 
WE'LL ENABLE INTERRUPTS 

AND SEE WHAT HAPPENS 



NOTHING HAPPENS SO LET'S CHECK OUT 
INTERRUPTS JUST DISABLED 



3AL 



R15,LO0PTOF 



DAC 


TST7.2 


DAC 


TST7.END 


LA 


R5,T7.E002 


STH 


R5,DATAFAT 


LIS 


33,0 


STK 


R3,DE¥INT 



PROCEED LIMIT 

INTERRUPT WAS GENERATED WHILE DISABLE 

SAVE ERROR MSG ADDRESS 

LOAD ZEROS 

AND ZERO OUT HANDLER 



YOU WILL RECEIVE A F4 ERROR IF AN INTERRUPT 
HAPPENS AS I OUTPUT A DISABLE COMMAND 



BAL 


R14,CCLEAR 


BAL 


?14,CDENS 


SAL 


R14,CDISBLF 


LA 


R3,TST7.0ER 


STH 


R3,DEVINT 


LIS 


E5,10 


BAL 


315,DW.0 



CLEAR INTERFACE BEFORE C WRITE 

DENSITY COMMAND 

OUTPUT DISABLE COMMAND 

LOAD ERROR LOC. 

AND STORE INTO TABLE 

OUTPUT A RECORD 



NOTHINGS HAPPENED SO LET'S SEE IF IT QUEUED 
AN INTERRUPT WHEN WE ENABLED LOGIC 



LA 


R5,T7.F003 


LA 


R3,PASS 


STH 


R3,DEVINT 


BAL 


R14,CENBLE 


LHI 


R3,X'7FFF' 


BAL 


R14,TIM0TJT 



TST7.0ER LH R5,DATAFAT 
TST7.1FR LHL R3,PSW2 
FPSP 514, ?3 



NO INTERRUPT WAS QUEUED WHILE DISABLE 

LOAD CONTINUE ADDRESS 

FOR INTERRUPT INTO TABLE 

ENABLE INTERRUPTS 

LOAD COUNTER 

WAIT FOR INTERRUPT 

GET ERROR MSG ADDR 

PSW = 30F0 

DISABLE 10 INTERRUPTS 



^"056100 

MTD56120 
MTD56130 
MTr)5Ki40 
MTD56150 
M T 'D56160 

M' 1M )56190 
M^D56?00 
"TD56210 
M' T, D56?20 
MT056230 
MTD56240 
VT055250 
M" , D56?60 
vt'T)5"527Q 

WTt)56280 
MTD?6?90 
"TD56300 

"•"dssho 

M m D56320 
MTD56330 
MTD56340 
"Tr)S6350 
"•"'D56360 
Y'"D56370 
vm D56380 

M^osesgo 

M"r)56400 

MTD56410 
M' r D56420 
MTD56430 
«T-O55mj0 
Y^D56450 
MTD56460 
MTD56470 
MTD56480 
MTD56490 
«f m D56500 
M""D5«510 
M" , D55520 
, fTD56530 
y^D56540 

MTQ56560 
"f"'D55570 
MTD55580 
M'"D56590 
v"'!)56*00 
•f"D56M0 
*"'D56520 
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00591A 
005915 
005922 
005926 



00592A 
005930 
005934 
005938 
00593C 
005940 
005944 
005946 
00594A 
00594E 
005950 
005954 
005956 
00595C 
005960 
005964 
005968 



00596C 
005970 
005972 
005976 
00597A 



00597E 
005984 
005988 
00596C 
00t-°90 
005994 
005998 
♦00599A 
00599C 
QC5 9A0 
00 5 9 A 4 
0059A8 
0C5?».C 



41E0 S42A =005T48 

E6F0 8^60 =006882 

S6E0 AC70 =008596 

4300 A9A2 =0082CC 



41F0 


AA5E 


=008380 


0000 


597E 




0000 


62D4 




41E0 


A25E 


=007B9A 


41E0 


A292 


=007ED2 


7330 


0A54 




95E3 






E6 30 


8022 


=00596C 


4030 


21E6 




245A 






4840 


AADC 


=008430 


41E0 


A378 


=007CD0 


41E0 


A324 


=007C80 


C830 


7FFF 




41E0 


834A 


=005CAF 


E650 


8A1C 


=006 384 


4300 


FFA8 


=005914 



7330 0A52 
95E3 

41E0 A354 

41F0 A92E 

4300 A9D0 



=007CCA 
=0082A8 
=00834F 



41F0 AAOA =00838C 

0000 59CA 

0000 59CA 

41E0 A20A =007E9A 

41E0 A23E =007BD2 

7330 0A54 

95E3 

245A 

E530 801C =0059EC 

4030 21E6 

41E0 A328 =007CD0 

41E0 A2D4 =007C80 

C830 7FFF 



5663 
5664 
5665 
5666 
566^ 
566S 
5669 
5670 
5671 
5672 
5673 
5674 
5675 
5576 
5677 
5678 
5679 
5680 
5681 
5682 
5683 
5684 
5685 
5686 
5687 
5688 
5639 
5690 
5691 
5692 
5693 
5694 
5695 
5695 
5697 
5698 
5699 
5700 
5701 
5702 
5703 
5704 
5705 
5706 
570" 
5708 
5709 
5710 
5711 
5712 
5713 
5714 
5715 



TST7.2 



DW.1A 



"7.005 



FAL 


R14,T7ERR0RA 


LA 


R15,T7EEMSG1 


IA 


R14,C0NTMSG 


B 


FFROPX 


T -'E COME HEBE VIA IN 


SF HILL CHECK CUI I 


## 




BAL 


R15,L00PTC? 


DAC 


T7.005 


DAC 


TST7.END 


BAL 


R14,CCLEAR 


BAL 


E14,CDENS 


LHL 


R3,PSW3 


EPSE 


R14,R3 


LA 


33,DH.1A 


STH 


R3,DFVINT 


LIS 


P.5,10 


LH 


R4,TESTPAT+10 


BAL 


R14,CENBLE 


BAL 


R14 r CWRITE 


LHI 


R3,X'7FFF' 


BAL 


R14,TIK0UT 


LA 


R5,T7.E004 


c 


TST7.1ER 



DRIVE AND STATUS 

SUSPFCTED EBROR ON CONTROLLER 



PROCEED LIBIT 

CLEAR INTERFACE 

DENSITY COMMAND 

PSW = 70F0 

ENABLE PROCESSOR INTERRUPTS 

LOAD ADDRESS FOE INTERRUPT 

STORE IN TABLE 

LOAD TEST PATTERN 

ENABLE INTERRUPTS 

PUT INTERFACE IN WRITE MODE 

LOAD COUNTER 

WAIT FOE INTERRUPT 

NO INTERRUPT WAS GENERATED WHILE ENAB 

AND BRANCH TO EERO 1 ' 



SOUTHING INTERRUPTED TO GET HERE 



LHL 


R3,PSW2 


EPSR 


R14,R3 


BAL 


R14,CDISARK 


BAL 


R15,DW.1 


13 


PASS 



RESTORE USER SET 
DISARM ANY INTRPT. 
AND OUTPUT A RECORD 



AT THIS POINT THE SAG TAPE HAS THREE 
RECORDS. LET'S NOW CHECKOUT EACH SIGNAL 
CAPABLE OF TRIGGERING AN INTERRUPT 

LET'S EXERCISE BUSY FIRS? ON WRITE COMMAND 



PROCEED LIMIT 

CLEAR INTERFACE BEFO"E WRIT? 

DENSITY COMMAND 

SET UP ENABLE FO" 

PROC. INTERRUPTS 

LOAD RECORD LENGTH 

LOAD ADDRESS OF NEXT PAPT 

STORE IT IN TA3LE 

ENABLE INTERFACE INTERRUPTS 

PUT INF. IN WRITE MODE 

LOAD COUNTER 



BAL 


E15,L00PT0P 


DAC 


T7.3B 


DAC 


T7.3B 


BAL 


R14,CCLEAP 


BAL 


R14,CDENS 


LHL 


E3,PSW3 


EPSR 


E14,R3 


LHI 


R5,10 


LA 


R3,T7.3A 


STH 


E3,DEVIST 


BAL 


E14,CENBLE 


BAL 


R14,CWRITE 


LHI 


R3,X'7FFF' 



M""D56630 
M T D56640 
* r,, D56650 
H m D56660 
M^D56670 

"* q 'n56690 
^D56700 
M' T 'D5fi710 
, f , D56720 
H^D e i6730 
M'"D56740 
>T'D56750 
T'DSSTeO 
MTD56770 
f^D56780 
"'"D56790 

MTD56810 
M^D56820 
f^^SSO 
f^D56840 

M^osesso 

MTD56860 
M^D'5i e :870 
'^56880 
MTD56890 
MTD56900 
MTD56910 
*TD56920 
MTD56930 
M" , D'^9«0 
MTD56950 
T"D56960 
Ki , n56970 

x^Dsegso 
M^DS^ggo 

M T D57000 
V-D57010 
M"'D57020 
MTD57030 
M" ! 'D57040 
VTD57050 
'»T' T )57060 
MTD57O70 
M T D57080 
""'D57090 
M^D57100 
M^D57110 
VT-D57120 
MTD57130 
MTD5"M40 
MTD57150 
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0059BO 
0059B4 
0059B8 

C0593C 
0059C0 
0059C2 
0059C6 



0059CA 
0059D0 
0059D4 
0059D8 
0059DC 
0059E0 
0059E4 
0059E6 
0059EA 
0059EE 
0059F2 
0059F6 
0059FA 

0059FE 
005A02 
005A04 



005A08 
005AOC 
005A10 
005A14 
005A18 
005A1A 
*005A1E 
005A20 
005*24 
005A28 
005A2C 
005A30 



005A34 
005A38 
005A3C 
005A40 
005A44 
005A46 
005A4A 



41E0 82FA =005CAE 
E550 8A60 =006418 
a300 FF58 =005914 

7330 0A52 

95E3 

41 SO A304 =007CCA 

41F0 A3DE =008?'S 



41F0 A9BE =00838C 

0000 5A34 

0000 5A62 

E630 8022 =0059FE 

4030 21E6 

7330 0A54 

95F3 

"1E0 A2E6 =007CD0 

C800 003C 

41E0 A2A0 =007C92 

41F0 162A 

E650 89B0 =0063A* 

4300 FF16 =005914 

7330 0S52 

95F3 

D100 AF48 =008950 



E630 A942 =0O834E 

4030 21E6 

41E0 A2BC =007CD0 

7330 0A54 

95E3 

C300 0100 

245A 

41E0 A236 =007C5A 

41'0 162A 

41^0 A1B0 =007PDC 

E650 89B2 =0063E2 

4300 FFEO =005914 



41F0 A954 =00838C 

0000 5A62 

0000 62D4 

7330 0A52 

95E3 

D100 AF06 =008950 

41E0 A27C =007CCA 



5715 
5717 
5713 
5719 
5720 
5721 
5722 
5723 
5724 
5725 
5726 
5727 
5728 
5729 
5730 
5731 
5732 
5733 
5734 
5735 
5735 
5737 
5733 
5739 
5740 
5741 
5742 
5743 
5744 
5745 
5746 
5747 
5748 
5749 
5750 
5751 
5752 
5753 
5754 
5755 
5755 
5757 
5758 
5759 
5760 
5761 
5762 
5763 
5764 

575 5 
5765 
5767 

576 8 



T7.3A 



T7.3B 



T7.3C 



TST7.3B 



BAL R14,TIK0UT 

LA R5,T7.E008 

B TST7.1ER 

LHL F.3,PSS2 

EPSR R14,E3 

BAL R14,CDISARM 

BAL R1S,DW.1 



WAIT FOR INTERRUPT 

NO INTERRUPT GENERATED 0?! 'BUSY' /WRIT 

BRANCH TO ERROR IF WE GET HERE 

RESTORE USER PSW 
AND REGISTERS 
DISARM INF. INTS. 
OUTPUT A RECORD 



LET'S CHECK NKTN OS A REWIND COMMAND 



EAL 


R15,LO0PTOP 


DAC 


TST7.3B 


DAC 


TST7.4 


LA 


R3,T7.3C 


STH 


R3,DEVINT 


LHL 


R3,PSW3 


EPSR 


R14,P3 


BAL 


R14,CENBLE 


LHI 


R0,X'3C 


BAL 


R14,CREW 


BAL 


R15, TIBER 


LA 


R5,T7.E006 


P 


TST7.1ER 


LHL 


R3,PSW2 


EPSR 


R14,R3 


LM 


RO,RSAVE 



NEXT SEQUENCE ON PASS 

PROCEED LIMIT 

SET UP NMTN INTERRUPT 

HANDLER TABLE 

PSW = 70F0 

10 INTERRUPTS ENABLFD 

ENABLE INF. INTERRUPTS 

LOAD TIMER 

GIVE REWIND COMMAND 

WAIT FOR NHTN TO SET 

NO INTERRUPT GENERATED ON 'NMTN'/RW C 

BRANCH TO ERROR IF TIMEOUT 

PSW = 30E0 

DISABLE INTR. 
RESTORE REGISTERS 



LET'S CHECK BUSY ON A READ COMMAND 



LA 


R3,PASS 


STH 


R3,DFVINT 


BAL 


R14,CENBLE 


LHL 


R3,PSW3 


EPSR 


E14,R3 


LHI 


H0,X*100' 


LHI 


P5,10 


BAL 


R14,CREAD 


BAL 


R15, TIMER 


BAL 


R14,SFNSTA 


LA 


R5,T7.E007 


n 


TST7. 1ER 



LOAD ADDRESS OF NEXT ROUTINE 

STORE IT FOR HANDLER 

ENABLE INF. INTERRUPTS 

PSW = 70F0 

ENABLE 10 INTERRUPTS 

LOAD TIMER 

LOAD RECORD LENGTH 

PUT INTERFACE IN READ 

WAIT FOR INTERRUPT 

CHECK STATUS 

NO INTERRUPT GENERATED ON BUSY A^TER 

AND BRANCH TO ERRO* 



OTHERWISE WE FSD AN INTERRUPT TO COME HERE 



EAL 

DAC 

DAC 

LHL 

EPSR 

LM 

BAL 



R15,LOOPT0P 

TST7.4 

TST7.END 

R3,PSW2 

P14,R3 

RO,FSAVE 

R14,CDISARM 



NEXT SEQUENCE 

RESET PSW TO 30F0 

RESTORE FEGISTER.S 
D!S.»P¥ INTERRUPTS 



YTD57160 
W TD5"M70 
"TD57180 
*TD57190 
MTD57200 
K ' ,, D5'??10 

"' I 'D5T240 

mt D 57 2 50 

MTD57260 

MTD57270 

MTD57280 

MTD57290 

M^D57300 

HTD57310 

M^D57?20 

MTDS^in 

mtt)573U0 

«!' ,, D57350 

^""057360 

^■"DSTSTO 

MTD573R0 

M" , D57390 

WTTJ57400 

YTn57mo 

MTD57420 

HTT157U30 

VTD57440 

ijTn57450 

MTD57460 

¥■"057470 

* m D c ;7480 

1^057490 

*TD57500 

wt^-'MO 

MTD57520 

XTD57530 

MTD57540 

MTD57550 

XTD57560 

KTD57570 

M^D57580 

VTD57590 

M"*r>57S00 

MTD5T510 

T , D57620 

MTD57630 

MTD57640 

MTT)S7650 

*"'D57660 

"'''D57670 

"*^D57680 
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0C5A4E 
005A52 
005A56 
005A58 
005A5A 
005A5F 



005A62 
005*68 
005A6C 
005A70 
005A74 
005A78 

005A7C 
005A80 
005A82 
005A86 
005A8A 
"005A8E 
005A90 
005A94 
005*98 
005A9C 
005AA0 
005AA2 
005AA6 

005AAA 
005AAE 
005AE0 
005AB4 
005AB8 
005ABA 
005ABE 
005AC2 
005AC4 
005AC6 
005ACA 
005ACC 
005A^0 
005ADU 
005AD8 
005ADC 
O05AE0 
0C5AE4 



005AE3 



41E0 A1D0 =007C22 

D910 AA9A =0084F0 

2752 

2285 =0C5A4E 

41F0 A<SB4 =008112 

4300 A8EC =00834F 



41F0 


A926 


=00838C 


0000 


5B38 




0000 


62D4 




41S0 


A126 


=007B9A 


41E0 


A15A 


=007BD2 


41F0 


A656 


=0080D2 


7330 


0A54 




95E3 






41E0 


A24A 


=007CD0 


E630 


8020 


=005AAA 


4030 


21E6 




2456 






41E0 


A1EC 


=007C80 


C830 


7FFF 




41E0 


8212 


=005CAE 


7330 


0A52 




95E3 






E6 50 


8972 


=006418 


4300 


FE6A 


=005914 


7330 


0A54 




9SE3 






E630 


8034 


=005AE8 


403C 


0000 




2464 






41E0 


A20C 


=007CCA 


D810 


A96E 


=008430 


2762 






2334 




=005ACC 


41E0 


A158 


=007C22 


2206 




=005ABE 


41^0 


A200 


=C07CD0 


^810 


A°5C 


=008430 


C830 


7FFF 




41E0 


81D2 


=005CAE 


41^0 


AOFC 


=007PDC 


E650 


8AA8 


=00658C 


4300 


FE2C 


=005914 


0000 


5AE8 




7 3 30 


0A54 





57G9 


T7. 


3BC 


EAL 


R14,SENSTA3 


5770 






EH 


R1 ,TSTBUF 


5771 






SIS 


RS,2 


5772 






BNLS 


T7.3BC 


5773 






BAL 


R15,STATCHK 


5774 






B 


PASS 


5775 


* 








5776 


* 




THE j 


WRITE, READ AND 


5777 


* 




WORKING TO GET HERE 


5778 


* 




WRITES AND HEADS NO 


5779 


* 








5780 


TST7.4 


BAL 


R15,L00PT0P 


5781 






DAC 


TST7.5 


5762 






DAC 


TST7.END 


5783 






BAL 


R14,CCLE»R 


5784 






EAL 


R14,CDFHS 


5785 






BAL 


R15,REWMT 


5786 


*WJ 


;*ll 


WRITE ] 


FIRST 


5787 






LHL 


R3,PSH3 


5788 






EPSE 


R14,E3 


5789 






BAL 


R14.CENBLE 


5790 






LA 


R3,TST7.iiA 


5791 






STK 


R3,DEVIKT 


5792 






LKI 


R5,6 


5793 






BAL 


R14,CKRITE 


5794 






LHI 


R3,X'7FFF' 


5795 






BAL 


?14,TIM0UT 


5796 






LHL 


R3,PS»2 


5797 






EPSR 


R14,E3 


5798 






LA 


R5,T7.E008 


5799 






fi 


TST7.1ER 


5800 


* 








5801 


TST7.4A 


LHL 


R3,PSH3 


5802 






FPSR 


R14,R3 


5803 






LA 


R3,T7.4C 


5804 






STH 


R3,0(R12) 


5805 






LIS 


R6,4 


5806 






BAL 


R14,CDISAEM 


5807 


T7. 


4G 


WH 


R1,TFSTPAT+10 


58C8 






SIS 


R6,2 


5809 






BZ3 


T7.4H 


5810 






BAL 


E14,SENSTA3 


5811 






BS 


T7.4G 


5812 


T7. 


4H 


BAL 


R14,CENBLE 


5813 


T7. 


4D 


WH 


? 1 ,TFSTPAT + 10 


5814 






LHI 


R3,X'7FFF* 


5815 






BAL 


R14,TIH0UT 


5Q16 






EAL 


R14,SFNSTA 


5817 






LA 


P.E,T7.E012 


5818 






B 


TST^ • IF? 


5819 


* 








5820 


T7. 


UC 


EQU 


* 


5821 






LHL 


R3,P"V3 



SENSE INTERFACE STAT'JS 

DECREMENT BYTE COUN"" 
CONTINUE UNTIL FINISKE' 
CHECK INTERFACE STATES 
AND CONTINUE ON 

COKKANDS ARE 
TRY THE ACTUAL 



NEXT SEQUENCE 

CLEAR INTERFACE BEFORE WRITE 

DENSITY COMMAND 

REWIND SAG TAPE TO FILE HARK 

ENABLE 10 INTERRUPTS 

WITH PSW = 70F0 

ENABLE INF INTERRUPTS 

LOAD ADDRESS OF NEX"" STEP 

STORE IN HANDLER 

LOAD RECORD LENGTH 

GIVE THE WRITE COMMi^D 

LOAD COUNTER 

WAIT FOR INTERRUPT 

LOAD DISABLE PSW 

AND REGISTER SE ,p F 

NO INTPPT GENRT AFTE^ C VP.ITE 



RESTORE USER'S PSW 

AND REGISTERS 

LOAD LOC TEST 

STORE IN HANDLER 

LOAD COUNT FOR FIRS" BYTFS 

MUST BE DONE DISARMED 

OUTPUT BYTES 

DECREMENT COUNT 

BRANCH IF DONE 

OTHERWISE CHECK FOR V.'SY 

AND OUTPUT SOME MORE 

REENABLS INTERRUPTS 

OUTPUT DA^A 

LOAD COUNTER 

WAIT FOR INTERRUPT 

CHECK STATUS 

NO INTERRUPT OCCURRED ON WRttf 



RESET PSW WITH 



M' I 'D57690 
M" , 057700 
'«^D57710 
MTD57720 
T'D57' 7 30 
MTD57740 
M' r n57''50 
f' 1, D57-'60 
M'"D57770 
MTD57780 
M"'r> c ;7790 
fTD«5780O 
w^D57810 
MTD57R20 
M"'D57830 
M"'T> e :7840 
MTD57850 
y n, D57R60 
M" , D^787C 
MTD57880 
MTD57890 
MTD57900 
MTD57910 
M T D57920 
MTD57930 
vf -"nc;7940 
M""D57950 
MTD57960 
M^D57970 
5jTn*7930 
M^D57990 
MTD58000 
ytt) "58010 
M T D58020 
M^D58030 
M'"D c; 8040 
M^D58050 
YT'D580fi0 
MTD58070 
f^D58080 
Ytt)59090 
M^D58100 
MTr>58110 
YT5591 jo 
^058130 
MTD58140 

"'■''D58160 
MTD58170 
"""0^8 1 ?C 
'" P T>58-\9Q 
M' ?, D58200 
"^DF. 8 2 1 
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005AEC 


95E3 






5322 




EPSR 


R14,R3 


005AEE 


2751 






5823 




SIS 


P.5,1 


005AFO 


4230 


FFDC 


=005AD0 


5824 




g,f!7 


T7.4D 


005AF4 


E630 


8 1 A 


=005P12 


5325 




LA 


R3,T7.4E 


005AF8 


403C 


0000 




5826 




STH 


P.3,0(R12) 


005AFC 


C800 


007 r 




5827 




LHI 


%0,Y'7F' 


005B00 


41F0 


1 5 2 A 




5828 




BAL 


B15, TIMER 


005B04 


7330 


0«52 




5829 




LHL 


R3,PSW2 


005B03 


95F3 






5830 




EPSR 


514, E3 


005B0A 


E650 


8940 


=006U4F 


5831 


T7.UF 


LA 


R5,T7.E00A 


005B0E 


4300 


FE02 


=005914 


5832 
5833 


* 


B 


TST7.1EP 




0000 


5312 




5834 


T7.4E 


EQU 


* 


005B12 


7330 


0A5U 




5835 




LHL 


P3,PSW3 


005B16 


95S3 






5836 




EPSR 


R14,R3 


005B18 


D100 


AF34 


=008950 


5837 




LH 


RO,RSAVE 


005B1C 


41E0 


AOBC 


=007BDC 


5838 




BAL 


R14,SENSTA 


005B20 


C430 


0010 




5839 




NHI 


R3,X'10' 


*005B24 


223D 




=005E0A 


5840 




FZ 


T7.4F 


005B26 


C430 


ooco 




5841 




NHI 


R3,X'C0' 


005B2A 


4330 


A820 


=00834E 


5842 




BZ 


PASS 


005B2E 


7330 


0A52 




5843 




LHL 


R3,PSW2 


005B32 


95F3 






5844 




EPSE 


R14,P3 


005B34 


4300 


A606 


=00813E 


5845 

5846 


* 


D 


SNS.ERR 










5847 


* 


LET'S 


CHECKOUT BU 










5 84 3 


* 


REWIND AND READ 










5849 


* 






005B38 


41F0 


A850 


=00838C 


5850 


TST7.5 


BAL 


R15,L00PT0P 


005B3C 


0000 


5CCC 




5851 




DAC 


TST7.7 


005340 


0000 


62D4 




5852 




DAC 


TST7.END 


005BU4 


E6 30 


8020 


=005B68 


5853 




LA 


S3,TST7.5A 


005B48 


4030 


21E6 




5854 




STH 


33,DEVINT 


005B4C 


E630 


1C9 r 




5355 




LA 


R3,$XI32 


005B50 


40 3G 


0000 




5856 




STK 


R3,0(R12) 


005B54 


C800 


003C 




5857 




LHI 


RO/X'SC 


005E58 


41E0 


A136 


=007C92 


5858 




BAL 


R14,CREW 


005B5C 


41F0 


1.6 2 A 




5859 




BAL 


315,TinER 


005B60 


E650 


8846 


=0063AA 


5860 




LA 


R5,T7.E006 


005B64 


4300 


FDAC 


=005914 


5861 




B 


TST7.1ER 










5862 


*NHTN ON 


BEHIND BROUGHT US 


005E68 


7330 


OS 5 4 




5863 


TST7.5A 


LHL 


R3,PSW3 


005B6C 


95E3 






5864 




EPSR 


R14,R3 


005B6E 


0100 


A DDF 


=008950 


5365 




LI 


RO,RSAVF 


005B72 


41-:0 


A 066 


=007BDC 


5855 




BAL 


514,SENSTA 


005B76 


C430 


OOCO 




5357 




NHt 


RS^'CO* 


00537 A 


42 30 


A594 


=008112 


5853 




BSZ 


STATCHK 


005B7E 


E630 


8020 


=005FA2 


5869 




LA 


?3,TST7.5P 


005382 


4030 


21E6 




5^70 




STH 


R3,DEVINT 


005B86 


E6 60 


4001 


89D0 


5871 




LA 


R5,READBUF 


005B8C 


2450 






5872 




LIS 


S5,0 


005B8E 


C800 


07FF 




5873 




LHI 


R0,X*7FF' 


005B92 


41E0 


ACC4 


=007C5A 


5874 




BAL 


R14,CREAD 



USFS REGISTERS 

DECREMENT RECORD COT'NT 

CONTINUE OUTPUT UNTIL LESS THE? 

LOAD NMTN INT. TEST LOC 

STORE IT 

TIME VALUE 

WAIT FOR NMTN INTRPT. 

OTHERWISE DISARM PROC. 

INTERRUPTS 

NO INTERRUPT GENRT ON NMTN/WD 



RESET PS» AND 

USER SET 

RESTORE REGISTERS 

LOAD STATUS 

ZERO IN ON NMTN BIT 

OTHERWISE ERROR 

WAS IT AN ERROR? 

NO! CONTINUE TESTING 

RESTORE WORKING PSW 

AND REGISTERS AND 

GO AND CHECKOUT WHY 



SY AND NHTN WITH A 
OPERATION 



NEXT SEQUENCE ON PASS 

PROCEED LIMIT 

LOAD ADDR OF NEXT STEP 

AND STORE INTO INTR. TABLF 

LOAD INTERRUPT HANDLER ADDR. 

STORE IN TABLE 

LOAD TIBER 

GIVE REWIND COMMAND 

WAIT FOR NHTN INTERRUPT 

NO INRTPT GENRT FRO* NTMN/C REW 



RESTORE PSW AND 
WORKING REGISTERS 
RESTORE REGISTERS 
LOAD INTERFACE STATUS 
ZERO IN ON ERR BITS 
CHECK IT OUT IF ERRORS 
LOAD ADDR OF NEXT STEP 
STORE IT IN TABLE 
LOAD ADDRESS OF STORAGE 

LOAD TIMER 

PUT INF IN READ XOD^ 



M T D58?20 
M T D58230 
MTD58240 
MTD58250 
MTD^8260 
M.TDS8270 
M.TD58280 
MTD58290 
M.^D5P300 
MTD5°310 
MT>58 320 
MTD58330 
f T 'D58340 

I^D^^O 
"TD58370 
M'nr)58380 
KTD58390 
^TD58400 
MTD58410 
MTD58420 
HTD58430 
1TD58440 
1TD58450 
MTD58460 
MTD58470 
MTD58480 
f^D58490 
MTD58500 
^058510 
M.TD58520 
1TD58530 
M' T, D5R t; 40 
M-"D58550 
« m D58560 
mtd^8 c; 70 
WTD58580 
YTD58590 
fTD58600 
HTD58610 
NTD58S20 
MTD58630 
WTD^8640 
M.TD58650 
MTD58660 
MT-D58*;70 
W*D58680 
TTD5869C 
T"D58700 
M.TD58710 
MTD58720 
MT D58730 
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TEST 7 











5375 


* 












W'"D53750 










5376 


* 




SHOULD GET A BUSY 


INT" 


■:p.supt WHEN FIFO HAS 


K'"T)58760 










5877 


* 




PASSED DATA TFFU 






Y'"D58770 










5873 


* 












*T?)5878C 


005B96 


41F0 


162A 




5879 






BAL 


R15,TI?iER 




WAIT FOR INTERRUPT 


vim) *8790 


00559A 


E650 


8344 


=0063E2 


5880 






T J 


R5,T7.E007 




NO 3USY INTRPT ON C "FAD 


f^D58800 


005B9E 


4300 


FD72 


=005914 


5881 


TST7.5AB 


B 


TST7.1ER 




ERROR IF WE GET 


WTI)59R10 










5382 


* 












M T D58R20 


005BA2 


5810 


ADAE 


=008954 


5883 


TST7.5B 


L 


R1,PSAVE+4 




RESTORE R1 


« T D58830 


0O53A6 


5820 


ADAE 


=008958 


5884 






L 


R2,PSAVE+8 




RESTORE R2 


"TD58840 


005BAA 


7330 


0A54 




58R5 






LHL 


R3,PSW3 




SET UP PSH FOR 


1^D58850 


005BAE 


95E3 






5886 






EP3R 


R14,R3 




NEXT INTERRUPT 


M^D^SP-^O 


005BB0 


35 30 


8018 


=005ECC 


5387 






LA 


R3,T7.5C 




LOAD ADDR. OF NEXT STEP 


fTTi58870 


005BB4 


40 3C 


0000 




5833 






STH 


R3,0(R12) 




STORE INTO TABLE 


1^058880 


005BB8 


D916 


0000 




5889 


T7. 


5 


P.H 


R1,0(R6) 




STAR'" READS 


"» T 'D58890 


OOSBBC 


C830 


7FFF 




5890 






LHI 


R3,X'7FFF' 




LOAD COUNTER 


MTDS8900 


005BC0 


41E0 


80EA 


=005CAF 


5891 






BAL 


R14,TIH0UT 




WAIT FOR INTERRUPT 


HTD58910 


005BC4 


E650 


88EE 


=0064P6 


5892 






LA 


P5,T7.E00D 




NO INTRPT GENRT ON 3USY AFTER RD 


, T T, D58920 


005BC8 


4300 


FFD2 


=005B9F 


5893 






B 


TST7.5AB 




ERROR IF NO INTERRUPT 


MTD58930 










5894 


* 




BUSY 


SHOULD INTERRUPT 


EVERY TIflE DURING READS 


>f , D58940 




0000 


5BCC 




5895 


T7. 


5C 


EQU 


* 






VTD58950 


005BCC 


7330 


0A54 




5396 






LHL 


R3,PSW3 




RESTORE REGISTER SE"" AND PROC INTERRU 


!f"D58960 


005BD0 


95E3 






5897 






EPSR 


R14,R3 






1TD58970 


005BD2 


41E0 


A006 


=007BDC 


5893 






BAL 


R14,SENSTA 




CHECK STATUS 


MfD58980 


005BD6 


C330 


0014 




5399 






THI 


R3,X'14' 




NMTN INTERRUPT? 


"f'DBsggo 


005BDA 


4230 


802C 


=005C0A 


5900 






BNZ 


T7.5E 




YES! GO AND FLAG IT 


1 T D59000 


005BDE 


2662 






5901 






AIS 


R6,2 




INCPEHENT STORAGE LOC 


ktt)59010 


005BE0 


2652 






5902 






AIS 


R5,2 




DECREMENT BYTES COUV m 


M^D59020 


005BE2 


C550 


0010 




5903 






CLHI 


R5,X'10' 




IS P5 AT TOTAL? 


fi"D59030 


005BE6 


4230 


FFCE 


=005PB8 


5904 






3NE 


T7.5 




AND READ 


XTT)59040 










5905 


* CHECK 


FOR NMTN INTERPUPT 






"TD59050 


005BEA 


E630 


8014 


=005C02 


5906 






LA 


R3,T7.5EE 




LOAD INTERRUPT LOC 


«TD59060 


005BEE 


403C 


0000 




5907 






STH 


R3,0(R12) 




STORE IN TABLE 


^■"^59070 


005BF2 


5800 


A82A 


=008420 


5908 






L 


RO,BASF 




LOAD TIMER COUNT 


MTD59080 


005BF6 


4 1 FO 


162A 




5909 






BAL 


R15, TIKES 




AND WAIT FOR IT 


"^059090 


005BFA 


E650 


88E6 


=0064F4 


5910 


T7. 


, 5CA 


LA 


R5,T7.E00E 




NO INTRPT GENRT ON N«TN AFTFP RD 


WTD59100 


005BFE 


4300 


FF9C 


=005B9E 


5911 






p. 


TST7.5AB 




ERROR OUTPUT 


TTD59110 










5912 


♦COME HERE ON 


NMTN INTFPT. 


AFT 


ER READS 


^059120 


005C02 


5810 


AD4E 


=008954 


5913 


T7. 


.5EE 


L 


R1,RSAVE+4 




RESTORE R1 


MTD59130 


005C05 


5820 


AD4E 


=008958 


5914 






T 


R2.RSAVE+8 




RESTORE R2 


N T D59110 




0000 


5C0A 




5915 


T7. 


. 5E 


EQ"J 


* 






" m D59150 


005COA 


7330 


0A54 




5916 






LHL 


R3,PSW3 




RESET PStf AND 


Y""D59160 


005C0E 


95E3 






5917 






EPSB 


R14,R3 




USER SFT 


»TD59170 


005C10 


41E0 


9FC8 


=007EDC 


5913 






BAL 


R14,SENSTA 




LOAD STATUS 


•r-Dsgiso 


005C14 


C4 30 


0010 




5 919 






Vt[T 


»3,X'10' 




'«AS IT NKTN? 


WT D59190 


'005C18 


2133 




=005C1E 


5920 






BNZ 


T7.5DAT 




YES! CONTINUE ON 


N^D59200 


005C1A 


4300 


FFDC 


=0C5PFA 


5921 






3 


T7.5CA 




NO! ERROR! 


WTD59210 










5922 


♦COME HE 


RE TO 


VERIFY DATA 






«"'D59220 




0000 


5C1E 




5923 


T7, 


.5DAT 


PI IT 

*. ^ " 


* 






*' 1, D59230 


005C1E 


41F0 


A4F0 


=008112 


5924 






BAL 


R15,STATCHK 




CHECK STATUS FIRST 


>f n, D59240 


005C22 


E530 


1C9E 




5925 






LA 


R3,$XI32 




LOAD INT. HANDLER ADD? 


MTD59250 


005C2S 


4 3C 


0000 




5925 






STH 


R3,0(R12) 




STORE IN TABLE 


YTD59260 


005C2A 


2470 






5927 






LIS 


R7,0 




ZERO INDEX REGISTER 


MTD59270 
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005C2C 
005C30 
005C34 
005C3A 

"005C3C 
005C3E 
005C40 
005C44 

♦005C45 
005C48 



005C4C 
005C50 
005C54 
005C58 
005C5C 
005C60 
005C64 
005C68 



005C6C 
005C70 
005C74 



005C78 
005C7C 
005C80 
005C84 



005C88 
005C8C 
005C8E 
0G5C92 
005C96 
005C9A 
005C9E 
005CA2 
005CA6 
C05CAA 



005CAE 
005CE2 
005CB6 



3640 A800 =008U3C 

7364 0000 

7387 4001 89DC 

0568 



2138 
0575 

4330 8028 
2672 
220B 
4300 8020 

0000 5C4C 

4060 A8AC 

4080 A8AA 

4070 A7BC 

£650 8966 

41E0 2CC4 

E6F0 35F6 

S6E0 A92E 

4300 A660 



E630 8018 
4030 21S6 
C800 003C 



41E0 9FFE 

41F0 162A 

E650 888F 

4300 FC8C 



=005C4C 

=005C6C 

=005C30 
=005C6C 



=0084FC 
=0084FE 
=008414 
=0065C2 



=008596 
=0082CC 



=005C88 



=007C7A 

=006512 

=005914 



7330 


0A54 




95E3 






D100 


ACBE 


=008950 


E630 


A6B8 


=00834E 


4030 


21E6 




C800 


003C 




41E0 


9FC4 


=007C66 


41F0 


162A 




E650 


88A6 


=006550 


4300 


FC66 


=005914 


40E0 


AC9A 


=00894C 


41F0 


1A8C 




48E0 


AC92 


=00894C 



5923 




LA 


R4,TESTPAT+10 


5929 


T7.5DA 


LHL 


R6,0(R4) 


5930 




LHL 


E3,PEADBUF(R7) 


5931 




clr 


R6,R8 


5932 




BSE 


T7.5ERR 


5933 




CLR 


R7,R5 


5934 




3E 


TST7.6 


5935 




AIS 


R7,2 


5936 




S 


T7.5DA 


5937 




5 


TST7.6 


5938 


* 






5939 


T7.5ERR 


EQD 


* 


5940 




STH 


R6,WST0RE 


5941 




STH 


R8,RST0RE 


5942 




STH 


57, INDEX 


5943 




LA 


R5,T7.E012A 


5944 




BAL 


314,T1ERR0FA 


5945 




LA 


315,MESSG3A 


5945 




LA 


R14,C0NTMSG 


5947 




B 


ERRORX 


5943 


* 






5949 


* 






5950 


* 






5951 


* 


LET'S 


CHECK OUT IHTE 


5952 


* 






5953 


TST7.6 


LA 


R3,TST7.6A 


5954 




STH 


33,DEVINT 


5955 




LHI 


R0,X'3C 


5956 


* 






5957 


* 


LET'S 


SKIP BACKWARDS 


5953 


* 






5959 




3AL 


R14,CSKBB 


5960 




BAL 


R15, TIMER 


5 961 




LA 


R5,T7.E010 


5962 




3 


TST7.1ER 


5963 


* 






5954 


* 


LET'S 


SKIP FORWARD N 


5965 


* 






5966 


TST7.6A 


LHL 


R3,PSW3 


5967 




EPSB 


R14,E3 


5963 




LM 


50,RSAVE 


5969 




LA 


R3,PASS 


5970 




STH 


R3,DEVINT 


5971 




LHI 


R0,X'3C 


5972 




BAL 


R14,CSKFE 


5973 




3AL 


R15, TIMER 


5974 




LA 


R5,T7.E011 


5975 




H 


TST7.1FR 


5976 


* 






5977 


* 






5978 


TIMOUT 


STH 


P14,R15SAVE 


5979 




PAL 


R15,TSTBPK 


5930 




LH 


P.14,R15?AVE 



COMPARE THE TWO 

COMPLETED ALL BY^ES 
JUMP OUT IF EQUIVALENT 
INCREMENT ADDRESS INDEX 
CONTINUE 



SAVE WRITS DATA 

AND SAVE IT 

BYTE LOCATION 

COMPARES UNDER WRITE-READ IN* 

DATA 

SUSPECTED ERROR WITH CONTROLLER 



AND STORE IT 
LOAD TIFER 



OUTPUT COMMAND FOR SKIP 

TIME OUT ON SKIP 

NO INTPPT GENR ON NMTN FR SKIP BACK 

OUTPUT ERROR IF NO I»TR. 



RESTORE PSW AND 

REGISTFRS 

RESTORE REGISTERS 

LOAD ADDR OF NEXT TEST 

STORE IN HANDLER 

LOAD TIMER 

GIVE SKI? COtfMA»JD 

WAIT FOR INTERRUPT 

NO INTPPT GENRT ON NXTN FROM SKI ^OR 



SAVE R14 

CHECK FOP BREAK DEPRESSION 

RESTORE ^14 



M T D C 59280 
M ,p D59290 
MTD59300 
>«' ,, D59310 
MTD59320 
11-559330 
M'"D59340 
M-T1593SO 
f"D59360 
M ' T 'D59370 
MTr)^9380 

M^osgsgo 

M C,, D59400 
M*D59410 
MTT)59420 
MTD59430 
w , D59440 
M m D69450 
w m D59460 
MTD59470 
MTD59480 
MTD59490 
MTD59500 
MTD59510 
M*D59520 
«f*>n59530 
*TD59540 
MTD59550 
MT059560 
MTD59570 
M*D59580 
*' I, D59590 
M*DS9«00 
MTD59610 
MTD59620 
M*D59630 
MTD59640 
M T D59650 
MTD59660 
HTD59670 
MTD59680 
"TD59690 
MTD59700 
MTD59710 
MTD59720 
WTD59730 
M""D59 7 40 
HTD59750 
M' T 'D59760 
MT>S9"770 

M'P T 1S9790 
M*D59800 
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005CBA 

*005CBC 

005CBE 



0O5CC0 
005CC4 
005CC6 
005CCA 

*005CCE 
005CD0 
005CD4 
005CD8 
005CDC 
005CEO 
005CE4 
005CE8 
005CEC 
005CF0 
005CF4 
005CF8 
005CFC 
005D00 
005D04 
005006 

*005D0A 
005D0C 
005D10 
005D12 
005D16 
005D18 
0O5D1C 
005D20 
005D24 
005D28 
005D2C 
005D30 

005D34 
005D33 

005D?r 

005D40 
005P44 

005D48 
005D4C 
005D50 
005D54 
005D58 



2731 
2037 
030E 



=005CAE 



0000 


5CC0 




7330 


0A52 




95E3 






4810 


A7 3E 


=008408 


4840 


2036 




2133 




=005CD4 


4840 


A75C 


=008430 


4040 


A74C 


=008424 


7300 


2124 




4230 


82E6 


=005FC6 


41F0 


A6A8 


=00838C 


0000 


5E3A 




0000 


62D4 




41E0 


9FDA 


=007CCA 


41F0 


A3DE 


=0080D? 


7370 


20B4 




7350 


20FA 




41E0 


9E9A 


=00759A 


7380 


200C 




2781 






C380 


0001 




2133 




=005D10 


41E0 


9FD8 


=007CE8 


0858 






7330 


0A54 




95*3 






E530 


805A 


=005D76 


4030 


21E6 




41E0 


9FAC 


=007CD0 


41E0 


9EAA 


=007PD2 


41E0 


9F54 


=007C80 


C830 


7FFF 




41F0 


FF7A 


=005CAF 


S550 


86E0 


=006418 


41E0 


800C 


=005D48 


?6F0 


8B42 


=006882 


E6E0 


A852 


=008596 


4300 


A584 


=0082CC 


D000 


AC44 


=008990 


41F0 


A61E 


=00836F 


4310 


A6B4 


=008408 


41E0 


9E84 


=007FDC 


2403 







5981 
5982 
5983 
5984 
59S5 
5986 
5937 
5938 
5989 
5990 
5991 
5992 
5993 
5994 
5995 
5996 
5997 
599B 
5999 
6000 
6001 
6002 
6003 
6004 
6005 
6006 
6007 
6003 
6009 
6010 
6011 
5012 
6013 
6014 
6015 
6015 
6017 
6018 
6019 
6020 
6021 
6022 
6023 
6024 
5025 
6026 
6027 
6023 
6029 
6030 
5031 
6032 
6033 



tst: 



TST7.70 



T7.7D 
T7.7A 



T7.007 



T7E04 



SIS R3,1 

BNZ TIWOUT 
BR P14 



DECREMENT TIME VALUE 
VAIT FOR INTERRUPT 
RETURN TO ERROR 



LET'S PUT IT ALL TOGETHER NOW AND 
EXERCISE THE INTERRUPTS OF THE INF. 



EQU 

LHL 

EPSR 

LK 

LH 

BNZ 

LH 

STH 

LHL 

BNZ 

BAL 

DAC 

DAC 

BAL 

BAL 

LHL 

LHL 

BAL 

LHL 

SIS 

THI 

BNZ 

BAL 

LR 

LHL 

EPSR 

LA 

STH 

PAL 

BAL 

BAL 

LHI 

EAL 

LA 
BAL 
LA 
LA 



T7ERR0RA STH 
BAL 
LH 

BAL 
LIS 



R3,PSW2 

R14,-B3 

R1,DPIVSAV 

R4,DATA+$VALU1 

TST7.70 

R4,TESTPAT+10 

R4,DATAPAT 

E0,TRKODE+$VALU1 

TST7.S 

R15,L00PT0P 

TST7.7B 

TST7.END 

F14,CDISAP.H 

R15,REWMT 

R7,FILES+$VALU1 

96,BEC0RDS+$VALU1 

R14,CCLEAR 

R8,BYTES+$VALU1 

P8,1 

R8,X'0001 • 

T7.007 

R14,CSR0DBY 

F5,R8 

E3,PSW3 

R14,R3 

R3,T7.DHRT 

E3,DEVINT 

R14,CENBLE 

R14,CDENS 

R14,CWRITE 

R3,X*7FFF' 

E14,TIM0UT 

35,T7.E008 
R14,T7ERE0RA 
R15,T7ER ,, SG1 
R14,C0NTKSG 

ERRORX 

RCEEESAVE 

R15,L00P2 

R1,DRIVSAV 

R14,SENSTA 

E0,3 



LET'S CLEAR EVERYTHING 

FIRS" 7 " 

RESTORE R1 

SEE IF USER SPECIFIED DATA PATTERN 

ELSE USE TEST PATTERN 

LOOK AT TRANSFER TYPE 
SELCK TRANSFERS 
ADDRESS CALCULATION 



DISARM INTERRUPTS FIRST 
REWIND MAG TAPE 
LOAD FILE COUNT 
LOAD RECORD COUNT 
CLEAP INTERFACE 
LOAD PECORD LENGTH 

IS BYTES AN ODD VALUE? 

IF NOT, NO COMMAND IS NECESSARY 

ISSUE WRT ODD BYTE COMMAND 

LOAD INTO TEMPORARY REGISTER 

PSW = 70FO 

ENABLE PROC. 10 INTR. 

LOAD ADDR OF WRITE ROUTINE 

STORE IT IN HANDLER 

ENAELE INF. INTERRUPTS 

DENSITY COMMAND 

GIVE INF. WRITE COMMAND 

LOAD COUNTER 

WAIT FOR INTERRUPT 

IN INTRPT GENRT AFTER C WRITE 
DRIVE AND STATUS 

SUSPECTED ERROR WITH CONTROLLER 



SAVE RO AND UP 
OUTPUT 1ST MSG? 
R1 = DRIVE ADDRESS 
GET CURRENT STATUS 
CONVERT 3 DIGITS 



fTT)59810 
V>D59820 
MTD59830 
M'"D59840 
MTD59850 
M^D59860 
M' r D59870 

wr,, D59890 
wtt)59<>00 

WTD59910 
M"'D59920 
HTD59930 
MTD59940 
M^D^gSO 
^^T)59960 
M m D59970 
HT059980 
vP05qq90 
MTD60000 
MTD60010 
M^D^OO^O 
MTD60030 
MTD60040 
"TD60050 
"TDeOO^O 
MTD60070 
M^DSOOSO 
•^^060090 
MTD60100 
MTD60110 
M"*D6 0120 
M^D60130 
MTD60140 
M^D60150 
MTD60160 
MTD60170 
MT06O18O 
"»TDfi0190 
MTD60200 
MTD60210 
WTI560220 
MTD60230 
MTD60240 
MTD60250 
WTD60260 
1^060270 
MTD60280 
M' I 'D60290 
M np D60300 
MTD60310 
MTD60320 
MTD60330 
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005D5A 
005D5E 
005D62 
005D64 
005D68 
005D6C 
005D70 
005D74 



005D7 6 
005P7A 
005D7C 
005D80 
005D84 
005D88 

*005D8C 
005DSE 
005D90 
005D94 
0C5D96 
005D98 
005D9A 
005P9E 
005PA0 
005CA4 
005DA6 
005DAA 

*005DAC 
005DB0 
005DB4 
005DB8 



005DBC 
005DC0 
005DC2 
*0D5DC4 
005DC6 
005DCA 
005DCE 
005DD2 
005DD6 
005DDA 



005DDE 
005DE2 
005BEU 



E620 8B2A 
41F0 1680 
2402 

4810 A65C 
E520 8B29 
41F0 1680 
D100 AC1C 
030E 



=006888 



=0083C4 
=006895 

=008990 



0000 


5D76 




7330 


0A54 




95E3 






E630 


803C 


=005DBC 


40 3C 


0000 




7300 


200C 




C500 


0004 




218D 




=005TA6 


2454 






41E0 


9F36 


=007CCA 


9814 






27A2 






2334 




=005TAO 


41E0 


9E84 


=007C22 


2205 




=0C5D94 


41E0 


9E7E 


=007C22 


2754 






41E0 


9F26 


=007CD0 


9814 






CS30 


7FFF 




41E0 


FEFA 


=005CAF 


E5 50 


87D4 


=00658C 


4300 


FF7C 


=005D38 


0000 


5DBC 




7330 


0A54 




95F3 






2752 






228D 




=005DAA 


F630 


8014 


=005DDE 


403C 


0000 




5800 


A64E 


=008420 


41F0 


162A 




F650 


8674 


=00644F 


4300 


FF5A 


=005D38 



0000 5DDE 
7330 0A54 
95F3 
D100 AB68 



=008950 



6034 
5035 
5036 
5037 
5038 
6039 
6040 
6041 
5C42 
5043 
6044 
6045 
6046 
6047 
6048 
6049 
6050 
6051 
6052 
6053 
6054 
5055 
6056 
6057 
6058 
6059 
6060 
5061 
6052 
6063 
6064 
6065 
6066 
5067 
6068 
6069 
5070 
6071 
6072 
6073 
6074 
6075 
6076 
6077 
6078 
6 079 
6080 
6081 
6082 
5083 
6084 
6065 
5086 



T7.DWF.T 



T7.DW1 



T7.DW2 

T7.DW2A 
T7.DWA 



T7.DWB 



LA 


R2,T7EEMSG1+6 




BAL 


P15,HEXASC 




IIS 


R0,2 


CONVERT 2 DIGITS 


LH 


R1, STATUS 




LA 


R2,T7EBMSG2+7 




BAL 


R15,HEXASC 




L" 


PO,EERSAVE 


EEST0RF RO AND UP 


C H 


S14 


RETURN 



COME HERE FOR WRITE BUSY INTERRUPT 



EQU 

LHL 

EPSR 

LA 

STH 

LHL 

CLHI 

BI 

LIS 

BAL 

WHR 

SIS 

BZS 

BAL 

BS 

BAL 

SIS 

BAL 

WHR 

LI 

BAL 

LA 



EQU 

LHL 

EPSR 

SIS 

BNL 

LA 

STH 

T 

BAL 

LA 

B 



R3,PSV3 

R14,R3 

R3,T7.DWB 

P3,0(R12) 

FC,BYTES+$VAL01 

HO, 4 

T7.DW2A 

R10,4 

F.14,CDISARK 

R1,E4 

R10,? 

T7.PH2 

R14,SENSTA3 

T7.DW1 

R14,SENSTA3 

R5,4 

B14,CENBLE 

R1,R4 

R3 / Y , 0007FFF■ 

E14,TIK0UT 

R5,T7.E012 

T7R04 



R3,PSW3 

E14,R3 

B5,2 

T7.DWA 

P3,T7.DWC 

R3,0(R12) 

EO,BASE 

P15,TIKEP 

R5,T7.E00A 

T7R04 



RESTORE PSW AND 

REGISTERS 

LOAD ADDR. OF RFC END STEP 

STORE IN HANDLER 

COMPARE TO BYTES IN DISARM 

IF <,N0 DISARM ONLY ENABLE 

LOAD BEGINNING COUN^ 

DISABLES ANY INTERRUPTS FOR NOW 

OUTPUT HALFWORDS 

DECREMENT COUN"' 

OUT IF ZERO 

WAIT FOR BUSY 

AND OUTPUT SOME MORE 

SENSE STATUS FOR NON BUSY 

ADJUST BYTES COUNT FOP. THE 4 BY WRITT 

RE-ENABLE INTERRUPTS 

WRITF OUT DATA 

LOAD COUNTER 

WAIT FOR INTERRUPT 

NO INTRPT GENRT ON ON BSY AFTER WH 

ERROR SETUP 



PESET PSW 

USEE SET 

DECREMENT BYTE COUNT 

AND CUPUT SOME MORE? 

LOAD LOC FOE NHTN IN^E. 

AND STORE IN TABLE 

LOAD TIBER COUNT 

AND WAIT FOE NMTN INTR. 

NO INTRPT GEN ON NHTN AFTER WE DAT* 

FEPOF SETUP 



COME HERE FOR FINISH WPITF NMTN INTERRUPT 



T7.DWC 



EQU 

LHL R3,PSW3 

FPSR R14,P3 

LM RO,ESAVF 



RESTORE PSW AND 
REGISTERS 
RESTORE EEGISTEES 



*' T 'D60340 
MTD60350 
U ^D60350 
MTri50370 
M T D60^80 
MTD60390 
M T D60400 
MTD60410 
M m D60420 
•^060430 
MTT)fi0440 
MTD60450 
MTD60460 
MTD60470 
MTD60480 
MTD60490 
M"'D60500 
M^DSOMO 
mt , D60 c ;20 
, "' ,, D60530 
M^D60S40 
M^D60550 
MTD60560 
f^D60570 
MTD60580 
MT"D60^90 
M^D60600 
H^D60610 
M'"D60620 
MTD60630 
M^DeOfiUO 

m'^o'jso 

•'■"DfiOfifiO 
MTD60670 
MTD60680 
MTi)60690 
MTD60700 
MTD60710 
M T D60720 
MTD60730 
MTD60740 
MTD60750 
MTD«0''50 
MTD60770 
*' T 'D507flO 
"TD60790 
MTD60800 
MT"D60810 
M' T 'D60820 
MTD60830 
M'"D60840 

M^Deoaso 

W,T, D60860 
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G05DE6 
005DEC 
005DF0 
005DF4 
005DF6 

C05DFC 

C05DFE 



005E02 
005E06 
005EOA 
005E0E 
005E12 
005E15 
005E1A 



005E1E 
005E22 
005E24 
005E28 
005E2C 
005E30 
005E34 
005S35 



005E3A 
005E40 
005F44 
005E48 
005E4C 
005F50 
005E54 
005E58 
005E5C 
005F60 
005F64 
005E56 



005F6C 
005S70 
005E72 
0G5E76 



E530 1C9E 

403C 0000 

41F0 A31E =008112 

C430 0020 

4230 A552 =00834E 

0000 5DFC 

2761 

4230 FEFA =005CFC 



E630 8018 
4030 21E6 
C800 003C 
41E0 9E5A 
41F0 162A 
S650 37CE 
4300 FF1A 

0000 5E1E 

7330 0A54 
95E3 

D100 AE28 

41F0 A2E6 

C430 0020 

4230 A51A 
2771 

4230 FSBE 



=005E1F 



=007C6C 

=00S5E6 
=005D38 



=008950 
=008112 

=00834F 

=005CF8 



41F0 


A54E 


=00838C 


0000 


6204 




0000 


62D4 




F630 


8020 


=0O5F6C 


4030 


21E6 




41E0 


9E7C 


=007CDO 


C800 


003C 




5A00 


A5C4 


=008420 


41E0 


9E32 


=007C92 


41F0 


162A 




E650 


8616 


=00647F 


4300 


FECC 


=005D3e 



0000 5E6C 

7330 0»54 
95E3 

5310 AADE 

5320 AADE 



=008954 
=008958 



60S7 

soaa 

6C63 
5090 
60S1 
6092 
S093 
6094 
6095 
6096 
6097 
6098 
6099 
6100 
6101 
6102 
6103 
6104 
6105 
6106 
6107 
6108 
6109 
6110 
6111 
6112 
6113 
6114 
6115 
6116 
6117 
6113 
6119 
6120 
6121 
5122 
6123 
6124 
6125 
5125 
5127 
5123 
6129 
5130 
5131 
6132 
6133 
5134 
5135 
6135 
5137 
6138 
6139 



T7.DWTA 



T7.TM 



TST7.7B 



T7.DRD 



LA 

STH 

BAI 

NHI 

BNZ 

EQU 

SIS 

BNZ 



R3,?XI32 

53,0(512) 

S15,STATCHK 

?3,X'20' 

PASS 

* 

56,1 
T7.7A 



LOAD ADDRESS OF 1ST?. KAKDLFR 

AND STORE IN TABLE 

CHECK FOR ERRORS 

IS EOT SS^ 

IF SO, REWIND AND READS 

DECREMENT RECORD CO'JVT 

IF NOT! OUTPUT ANOTHER RFCORD 



COME HERE TO OUTPUT A TAPE MARK 
AWD TO CHECK FILE COURT 



LA 


R3,T7.TM 


STH 


R3,DEVINT 


LHI 


S0,X'3C 


BAL 


R14,CWRE0F 


BAL 


R15, TIMER 


LA 


R5,T7.E013 


B 


T7R04 


EQU 


*■ 


LHL 


R3,PSW3 


EPSR 


R14,R3 


LM 


RO,HSAVE 


BAL 


R15,STATCHK 


NHI 


R3,X'20' 


BNZ 


PASS 


SIS 


37,1 


BNZ 


T7.7D 



LOAD ADDS. OF NEXT CHECK 

STORE IN HANDLER 

LOAD TIMER 

WRITE EOF 

WAIT FOP. INTERRUPT 

NO INTRPT GEN ON WRITE EOF 

ERROR SETUP 



RESTORE PSW AND 
REGISTERS 
RESTORE REGISTERS 
CHECK FOR ERRORS 
IS TAPE AT EOT 

DECREMENT FILE COUNT 
OTHERWISE OUTPUT ANOTHER FILE 



NOW THAT WE HAVE WRITTEN UNDER INTERRUPTS 
LET US NOW READ UNDER INTERRUPTS 



BAL 

DAC 

DAC 

LA 

STH 

BAL 

LHI 

A 

BAL 

BAL 

LA 

3 



R15,L00PT0P 

T3T7.END 

TST7.END 

?3,T7.DRD 

33,DFVINT 

R14,CENBLE 

5C,X'3C 

?0,3ASE 

F 14, CREW 

R15, TIMER 

R5,T7.E00B 

T7?04 



NEXT SEQUENCE 

SET UP INTERRUPT POINTER 
AND STORE IT 

LOAD TIMER 

ADD IN BASE 

PEWIND MAG TAPE 

WAIT FOR NMTN INTR. 

NO INTRPT GENRT ON NM^N AF REW 

DRIVE AND STATUS 



OTHERWISE WE COME HERE AND START READS 



EQ" 
LHL 

EPSR 

L 

L 



R3,P3W3 

?14,P3 

?.1 , RSAVE+4 

S2,5SAVE+8 



RESTORE PSW 
AND REGISTFRS 
RESTORE 31 
RESTORE R2 



MTD60R70 
M^D60880 
*n>60890 
M T D60900 
W"D60910 
M m D60920 
^"060930 
MTD60940 
MTD60950 
1TD60960 
MTD60970 
H T D60980 
M""D60990 
MTD61000 
MTD«1010 
M" , D61020 
MTD61030 
M 1 'D61040 
MTD61050 
MTD61060 
MTD610"70 
Y^DMOSO 
M^D61090 
"TD«1100 
M n, D61110 
M^D61120 
i('W1130 
MTD61140 

MTD61160 
WTD51170 
MTD61180 
M^D61190 
MTD61200 
MTD61210 
*TD<;12?0 
MTD61230 
MTD61240 
MTD612^0 
M^D61260 
MTD61270 
MTD61280 
"TD61290 
»' T, D61300 
MTD61310 
WTD61320 
MTD61330 
yt>61 340 

M" T 'D6 136 
T'Dfi1370 
MTD6139C 
MTT)i=i 1 ? 30 
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TEST 7 



00=F7A 
005IT 
005F32 
005IS5 
005E8A 
005ESC 
005F90 
005ES4 
305F96 
005F9A 
005E9S 
005EA2 
005EA6 



005EAA 
005EAE 
005E39 
005E34 
005E38 
005EBC 
005FC0 
005FC4 
005FC8 
005FCC 
005SD2 
005ED6 
005ED8 
*005FDA 
005EDC 
005EEO 
005EE2 
005EE5 

005FEA 
0C5EEE 
005EF2 
005EF6 



005EFA 
*005EFE 

005F00 
005F04 
005F05 
005F0A 
005F0E 



4840 »5B2 =0CS430 

7370 20BU 

7360 20FA 

7380 200C 

2731 

E630 301A =005FAA 

403C 0000 

0858 

C800 OTFF 

41E0 9DBC =007C5A 

41F0 1S2A 

^550 8610 =0064P6 

4300 FE8E =005D38 



0000 


5EAA 




7330 


0A54 




95E3 






5810 


AAAO 


=008954 


5820 


AAAO 


=008958 


41E0 


9E1A 


=007CD6 


E630 


1C9E 




40 3C 


0000 




E630 


8032 


=005FFA 


4030 


21E6 




E690 


4001 


89D0 


0919 


0000 




2692 






2752 






2184 




=005FE2 


41E0 


9D42 


=007C22 


2207 




=005ED2 


41E0 


9CFE 


=007FE4 


41E0 


9DE6 


=007CD0 


0000 


5EEA 




C830 


7FFF 




41E0 


FDBC 


=005CAE 


E650 


85EE 


=0064F,U 


4300 


FE3E 


=005D38 



0000 5EFA 
C430 0010 
22 3 A 



=005FEA 



7330 0A54 

95 E3 

41E0 9DC0 =007CCf. 

41F0 A204 =008112 

41S0 9DBE =007CDO 



6140 






LH 


R4,TESTPAT+10 


5141 






LHL 


R7,FILES+$VALU1 


5142 


T7, 


,7G 


LHL 


R6,REC0RDS+$VALU1 


6143 


T7, 


.71 


LHL 


38,BYTES+$VAL'J1 


5144 






SIS 


R8,1 


6145 






LA 


R3,T7.DRD1 


6146 






STH 


33,0(812) 


5147 






LDAR 


R5,R8 


5 148 






LHI 


R0,X'7F?' 


5149 






BAL 


R14,CRE.«.D 


6150 






3AL 


P15, TIMER 


6151 






LA 


R5,T7.E00D 


5152 






B 


T7R04 


6153 


* 








5154 


* 




COME 


HERE ON READ BUSY 


5155 


* 








6156 


T7, 


.DRD1 


EQU 


* 


5157 






LHL 


B3,PSW3 


6158 






EPSE 


R14,R3 


5159 






L 


R1,RSAVE+4 


5150 






L 


R2,RS».VE+8 


6161 






BAL 


R14,CDI3BLE 


5162 






LA 


F3,SXI32 


6163 






STH 


R3, 0(512) 


6164 






LA 


R3,T7.DPD2 


6165 






STH 


E3,DEVINT 


6166 






LA 


39,READBUF 


5167 


T7. 


,7H 


RH 


R1,0(R9) 


6163 






AIS 


R9,2 


6169 






SIS 


R5,2 


6170 






BL 


T7.7L 


6171 






BAL 


R14,SENSTA3 


5172 






BS 


T7.7H 


6173 


T7. 


.7L 


BAL 


P.14,SENSTA1 


6174 






BAL 


R14,CENBLE 


6175 


T7. 


,7K 


EQU 


* 


6176 






LHI 


E3,X'7FFF' 


6177 






BAL 


R14,TIM0UT 


6178 






LA 


R5,T7.E00E 


5179 






B 


T7R04 


6180 


* 








6181 


• 




COSE 


HERE FOR QUEUED NM 


5182 


* 




ON READ 


6183 


* 








6184 


T7. 


.DRD2 


EQU 


* 


6185 






SHI 


R3,X"10' 


6186 






EZ 


T7.7K 


6187 


* 








6188 






LHL 


R3,PSW3 


5189 






EPSR 


R14,R3 


6190 






BAL 


R14,CDISAPK 


6191 






EAL 


RIS.STA^CHK 


6192 






BAL 


R14,CENBL£ 



LOAD PATTERS FOR COMPARE 
LOAD FILE COUNT 
LOAD RECORD COUNT 
LOAD RECORD LENGTH 

LOAD ADDR OF READ 

STORE IN HANDLE" 

LOAD RECORD LENGTH 

LOAD TIMER 

GIVE READ COMMAS!) 

WAIT FOP BUSY TO DROP 

NO INTRPT GEN ON BUSY AFTER RD 

DRIVE AND STATUS 



RESTORE PS!J 

AND REGISTERS 

RESTORE R1 

RESTORE R2 

DISABLE INTR. RIGHT AWAY 

LOAD ITR. HADLER LOC 

STORE IT 

LOAD ADDR. OF FINISH 

READ ROUTINE 

LOAD ADDRESS 

READ DATA 

INCREMENT BUFFER 

DECREMENT BYTE COUNT 

CONTINUE IF NOT ZERO 

LOOK AT BUSY 

OTHERWISE INPUT SOME MO^F 

LOOK AT NMTN 

ENABLE INTERFACE INTERRUPTS 

LOAD COUNTER 

WAIT FOR INTERRUPT 

NO INTRPT GEN ON NMTV AFTFR RD 

DRIVE AND STATUS 

INTERRUPT 



WAS IT NM m N? 

NO! LET"S GIVE IT ANOTHER TRY 

RESTORE THIS AND 

THAT 

DISARM INTR. JUST INCASE 

CHECK STATUS FOR ERRORS 

PE-FNABLF INTERRUPTS 



MT , D61400 
MTD6 1410 
Jf"'D614?0 
MTD61430 
MTD6 1440 
M^D61450 
¥■"061460 
M.TD6 1470 
M^D61480 
M' T 'D61490 
MTD61^00 
MTD61510 
M^D61520 
WT D61530 
MTD61^40 
MTD61550 
MTD61560 
M^D61570 
tfTT^I^SO 
M^D61590 

w'Deifioo 

MTD61610 
HTD61620 
MTD61«30 
YTD61640 
MTD61«50 
MT>61660 
M-D61670 
M T D61680 

m""D61690 

MTD61700 
MTI)61' 7 10 
MTD61720 
MTD61' ? 30 
VD617U0 
MTD61750 
M T D61760 
MTD61770 
wfri61730 
MTD61790 
MTD61800 
"'"D'SISIO 
MTD61820 
Mq, D61S30 
MTD61840 
M n, D61850 
M" T, n61860 
"TD61870 
"^061880 

M^Dfiisgo 

MT>S1°00 

M^D61910 
w-"T)«;1920 
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TEST 7 



005F12 
005F15 
005F1A 
005F1C 
005F1E 
005F22 
005F24 
005F2A 
005F30 

♦005F32 
005F34 
005F3S 
005F3A 

*005F3C 
005F3E 
005Ftt2 
005F46 
005F4A 
005F4E 
005F52 
005F56 
005F5A 
005F5E 

005F62 
005F64 



005F68 
005F6C 
005F70 
005F74 
005F78 
005F7C 
005F80 
005F84 
005F88 



005F8C 
005F90 
005F92 
005F95 
005F9A 
*005F9E 
005FA0 
005FA4 
005FA8 
005FAC 



C330 


0020 




4230 


A434 


=00834E 


0853 






2420 






E640 


A502 


=008424 


24A0 






0334 


4200 


0000 


D39A 


4001 


89D0 


0539 






2138 




=005F42 


26A1 






C720 


0001 




2751 






228C 




=005F24 


4300 


8020 


=005F62 


4030 


A5B6 


=0084FC 


4090 


A5B4 


=0084FE 


40A0 


A4C6 


=008414 


E550 


8670 


=0065C2 


41E0 


2CC4 




E6F0 


35F6 




E6E0 


A638 


=008596 


4300 


A36A 


=0082CC 


2761 






4220 


FF1E 


=005E86 



5630 1C9E 
403C 0000 
E630 8018 
4030 21E6 
C800 003C 
41E0 9CDA 
41F0 162A 
5650 8692 
4300 FDAC 



--005F8C 



=007C5A 

= 00661?. 
=005D38 



0000 5F8C 

7330 0A54 

95F3 

D100 A9BA =008950 

41E0 9C42 =007PDC 

0430 0002 

213F =005FEC 

£650 86A8 =00664C 

C800 001E 

4000 A41C =0083C8 

41E0 28AE 



6193 




THl 


RSrX^O 1 


5194 




bnt; 


PASS 


6195 




LDAR 


R5,R« 


5195 




LIS 


B2,0 


5197 




LA 


R4,DATAPAT 


5198 




LIS 


510,0 


6199 


DATC0SP2 


LB 


R3,0(R4,P2) 


5200 




L3 


R9,READBUF(R10) 


6201 




CLE 


R3,R9 


5202 




3NE 


DAT. HISS 


6203 




AIS 


S10-1 


5204 




XHI 


R2,1 


6205 




SIS 


R5,1 


6206 




BNL 


DATC0MP2 


6207 




B 


T7.0008 


6208 


DAT. HISS 


STH 


P3,VST0RE 


6209 




STH 


R9,RST0RE 


6210 




STH 


R10, INDEX 


5211 




LA 


R5,T7.E012A 


6212 




3AL 


R14,T1ERR0RA 


6213 




LA 


R15,?«ESSG3A 


6214 




LA 


R14,C0NTFSG 


6215 




B 


ERRORX 


6216 


* 






6217 


T7.0008 


SIS 


36,1 


6218 




B? 


T7.7I 


6219 


* 






5220 


* 


OTHERWISE READ FOR FILE 


5221 


* 






5222 




LA 


R3,$XI32 


6223 




STH 


R3,0(P12) 


6224 




LA 


S3,T7.DRD3 


5225 




STH 


R3,DEVINT 


6226 




LHI 


Z0,Y.'3C 


6227 




BAL 


?.14,CREAD 


5228 




BAL 


P15,TIME? 


5229 




LA 


R5,T7.E014 


6230 




B 


T7R04 


6231 


* 






6232 


* 


COME 


HEPE FOP. EOF CHECK 


6233 


* 


TEST 


CHECK 


6234 


* 






6235 


T7.DHD3 


EQtl 


* 


6236 




LHL 


R3,PSW3 


6237 




E?SR 


R14,R3 


6238 




LK 


?0,RSAVE 


5239 




PAL 


R14,SENSTA 


6240 




NHI 


?3,X'02" 


6241 




BNZ 


T7.DED4 


6242 




LA 


R5,T7.E015 


5243 


T7H06 


LHI 


P0,X ' 1E' 


6244 




STH 


R0,STATGD 


6245 




BAL 


B14,T0ERP.ORB 



IS TAPE AT BOT? 

YES, END TEST 

LOAD BYTE COUNT INTO WORK REG. 

INITIALIZE INDEX 

ADDRESS WHERE DATA IS 

BYTE INDEX 

EXPECTED 

ACTUAL 

COMPARE THE TWO 

ERROR IF .NE. 

INCREMENT BYTE INDEX 

TOGGLE DATA INDEX 

DECREMENT BYTE COUNT 

CONTINUE COMPARE TIL DONE 

STORE WRITE DATA 

AND STORE IT 

BYTE LOCATION 

COMPARES UNDER WRITE/READ INTERRUPTS 



SUSPECTED ERROR WITH CONTROLLER 



DECREMENT RECORD COUNT 
INPUT ANOTHER RECORD? 

MARK 

LOAD ADDR. OF INTR. HANDLER 

STORE IN EXP INTR. LOC 

SET UP INTERRUPT POI^TFR 

AND STORE IT 

LOAD TI3FR 

OUTPUT A READ COMMAND 

WAIT FOR INTERRUPT 

NO INTRPT GEN ON BUSY AFT READ EOF 

DRIVE AND STATUS 

AND END OF 



RESTORE PSW 

AND REGISTERS 

RESTORE REGISTERS 

CHECK INTERFACE STATUS 

ZERO IN ON EOF 

CONTINUE ON IF SET 

NO TAPE XAPK STATUS AFTEP READ 

EXP STATUS 



r'"D61 r '30 
MTD6IQ40 
VDfilPS" 
W1, D61960 

fTD61980 
MTD61990 
KTr>S200C 
MTD62010 
*[TD62020 
MT)6?030 
KTD62040 
*t' T 'D62050 
M^D62060 
MTD62070 
MTD62080 
"TD6 2090 
MTD62100 
f^D62110 
1'"D62120 
MTD*2130 
S'"D62140 
MTD6215 
^"062 16 
M' ! 'D621'?0 
HTr>62180 
M' p D62190 
MTD62200 
MTD62210 
wn>62220 
1TD62230 
VTD62240 
STD62?^0 
KTD62260 
y , O62270 
, f'D52280 
M' P D62290 
MTD62300 
M T D62310 
MTD62320 
» T D6233' 1 
MTD62340 
M"'D623 C C' 
M' I 'D6236 
vt-t)(=23" 7 
M' I 'D523? C 
?*' P D^2?90 
fl'T)*;24':'0 
M'"T)624' 1 ; 

1TD62430 
MTD624^"" 
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1 __- i J. I 



Q05FB0 
005FB4 
0G5FB8 



005FBC 
005FBE 
005FC2 



005FC6 
005FCC 
005FDO 
005FD4 
005FD8 
005FDC 
005FEO 
005FE4 
005FE8 
005FEC 
005FF0 
005FF2 
005FF6 
0G5FFA 

005FFE 
006002 
006006 
00600A 
00600E 
006012 
006016 
00601A 
00601E 
006022 
006026 
*00602A 
00602C 
006030 
006034 
006038 
00603A 
00603C 
006010 
006044 
006048 
00604A 
006C4C 
006050 
006054 



S6F0 2A4C 

E6E0 A5DE =008596 

4300 A310 =0082CC 

0000 5F3C 

2771 

4230 FECO =005F82 

4300 A388 =00834E 



41F0 


A3C2 


=00838C 


0000 


611C 




0000 


62D4 




41E0 


9CF2 


=007CCA 


7320 


2108 




4330 


82E2 


=0062C2 


41F0 


9CEA 


=007C9E 


41E0 


9CB6 


=007C9E 


41F0 


A0E6 


=0080D2 


7330 


0A54 




95E3 






7370 


20B4 




E640 


A42A 


=008424 


7380 


20?A 




0000 


5FFE 




41E0 


9B98 


=007P9A 


E630 


8066 


=00606C 


4030 


21E6 




41E0 


9CC2 


=007CDO 


4070 


A43A 


=00844C 


41F0 


9E22 


=007F38 


4170 


9CE0 


=007CFA 


7370 


A42E 


=00844C 


41E0 


9BB0 


=007ED2 


7330 


200C 




C330 


0001 




2333 




=006030 


41E0 


9CB8 


=007CE8 


41E0 


9C4C 


=007C80 


C830 


7FFF 




2731 






2031 




=006038 


ES50 


863E 


=00667E 


DOOO 


A94C 


=008990 


41F0 


A326 


=00836E 


2403 






0812 






E620 


8 8 2C 


=00687C 


41F0 


1680 




D100 


A938 


=008990 



6246 

6247 

6248 

6249 

5250 

6251 

6252 

6253 

6254 

6255 

6256 

6257 

6258 

6259 

6260 

5261 

6262 

6263 

6264 

6 265 

6266 

6267 

6268 

6269 

6270 

6271 

6272 

6273 

6274 

6275 

6276 

6277 

6278 

6279 

6280 

5281 

6282 

6283 

6284 

6285 

6286 

6287 

6238 

6289 

6290 

6291 

6292 

5293 

6294 

6235 

6296 

6297 

6293 



T7.DRD4 



LA 
LA 



EQU 
SIS 
PtfZ 



************* 

* 

* COSE 

* UNDE 
************* 



R15,MESSAGF1 

R14,C0NTKSG 

EP.SORX 



P.7,1 DECRFMFNT FILE COUNT 

T7.7G CONTINUE OUTPUT OF FILFS 

PASS OR END TEST? 

****************************************** 



HERE FOR SELCH TRAN 
R INTERRUPT CONTROL 
******************** 

TST7.S BAL R15,L00PT0P 

DAC T7.S3B 

DAC TST7.END 

BAL R14,CDISARtf 

LHL E2,SELCH+$VALU1 

BZ T7.N0S 

BAL F.14,CST0P 

BAL R14,CST0P 

EAL R15,REWHT 

LHL R3,PSW3 

EPSR R14,R3 

LHL R7,FILES+$VALU1 

LA R4,DATAPAT 

T7.SB LHL R8,R£C0RDS+$VALU1 

T7.SA EQU * 

BAL R14,CCLEAR 

LA R3,TST7.S1 

STH R3,DEVINT 

BAL P14,CENBLE 

STH P7,FILSAV 

BAL F15,SELSETW 

BAL R14,S,'RBUF 

LHL R7,FILSAV 

PAL R14,CDENS 

LHL E3,BYTES+$VALU1 

THI RSjX'OOOl' 

BZ T7.SA1 

BAL R14,CHR0DBY 

T7.SA1 BAL P14,CWBITE 

LHI V.'i.X'l'VYY' 

T7.SC SIS R3,1 

BNZS T7.SC 

LA E5,?7.E016 

T7R05 STM RO,EPRSAVE 

BAL R15,LOOP2 

LIS P0,3 

LR P1.R2 

LA P2,T7MSG3+6 

BAL ?15,KEXASC 

LH F0,E3RSAVE 



SFERS * 

* 
********************** 

ADDRESS CALCULATION 



DISAPK INTERRUPTS FIRST 
LOAD SELCH ADDRESS 
BRANCH TO SSG. IF NO 
STOP SELCH FIRST 

REWIND KAG TAPE 

SET UP FOR PROC. 

INTERRUPTS 

LOAD FILE COUNT 

LOAD APDR OF TEST PATTERN 

LOAD RECORD COUNT 

ISSUE CLEAR COHtfAND BEFOR WRITE 

SET UP INTERRUPT 

HANDLER 

ENABLE INF. INTEPRUPTS 

SAVE FILE COUNT 

GO AND SETUP WRITE BUF. 

GO AND SET UP SELCH 

RESTORE FILE COUNT 

DENSITY COWHAND 

LOOK AT BYTES OPTION 

IS IT ODD VALUE 

NO 

WRITE ODD BYTE COKHAND 

PUT INTERFACE IN^O '-HITE 

LOAD COUNTER 

DECREMENT COUNTER 

W.»IT FOR INTERRUPT 

NO IFTRPT GEN ON BUSY AFTER C WR W/S^ 

OUTPUT AMY PENDING MESSAGES 
3 DIGIT CONVERSION 
SELCH ADDRESS 

CONVER"" 

RESTORE REGISTERS 



*T!)' :: 245C 

MTD62470 

1TD62480 

*Td62490 

f^D62^00 

TTD62510 

MTD62^20 

'•TD52 c; 30 

HTD62540 

V^D62550 

M?n62560 

MTD62570 

»fTD62580 

HTD62590 

"TD62600 

MTD62610 

MTD62620 

VT-D62630 

MTD62640 

MTD62650 

1TD62660 

^TD62670 

1 ""062680 

MT>62690 

*" , D62700 

«^D62710 

f^D62720 

M' r D62'730 

H' ,, D62740 

t n 'D62'"30 

«^D62760 

^1)62770 

WTP62780 

H^D62790 

"? -"062800 

>?TD62810 

"TD62820 

H1 , D62830 

*TD628 4n 

HTD62850 

"TD62860 

STD62R70 

fTD6288rv 

fTD*2890 

1 »^D62900 

?[ m !)62910 

*-"D62920 

"TD62930 

*""D62940 

W-"i)62950 

f' T 'D62960 

1 , "D62970 

H^nf ?980 
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TEST 7 



006058 
00605C 
006060 
006064 
006068 



00606C 

v/v/ k) \j i \j 

006072 
006076 
00607A 
00607E 
006082 
006086 
00 6 08 A 
00608E 
006090 
006092 
006096 
00609A 
00609E 
0060A2 



006CA6 
0060AA 
0060AC 
0060B0 
0060B4 
0060B8 
0060BC 
0060CO 
0060C4 
0060C8 

0060CC 
006CCE 
0060D2 
0060D6 
00*0?* 
0060DE 
0060E2 
006CE6 
C06GEA 
0060EF 



E650 881A =006876 

41E0 FCE8 =005148 

E6F0 381E =006882 

E6E0 A52E =008596 

4300 A260 =0082CC 



0000 


606C 




7330 


0A54 




35S3 






41E0 


9C54 


=007CCA 


E630 


802C 


=0060A6 


4030 


21E8 




41E0 


9C04 


=007C86 


C800 


7FFF 




41F0 


162A 




DO 00 


A902 


=008990 


2403 






0812 






E620 


8631 


=0066C7 


41F0 


1680 




D100 


A8F2 


=008990 


S650 


861C 


=0066EE 


4300 


FFB6 


=00605C 



0000 


60A6 




7330 


0A54 




95F.3 






5810 


A8A4 


=008954 


5820 


A8A4 


=008958 


3650 


862E 


=0066E6 


41F0 


9DBC 


=007E78 


41F0 


9E42 


=007F02 


41F0 


A04E 


=008112 


C43Q 


0020 




4230 


A282 


=00834E 


0000 


60CC 




2781 






4230 


FF2C 


=005FFF 


E6 30 


801C 


=0060F2 


4030 


21E6 




C800 


003C 




41E0 


9BEE 


=0O7CD0 


41F0 


9B86 


=007C6C 


41F0 


162A 




E650 


861C 


= 006"70A 


4300 


FF4E 


=006040 



6299 




LA 


P5,T7MSG3 


6300 


T7R05.5 


BAL 


R14,T7ERR0EA 


6301 




I A. 


R15,T7ER*SG1 


6302 




LA 


R14,C0NTMSG 


6303 




B 


ERRORX 


6304 


# 






6305 


* 


COHE 


HFRE ON WRITE 


6306 


* 






6307 


TST7.S1 


EQU 


* 


6308 




LHL 


R3,PSW3 


5309 




FPSE 


P14 ,K3 


6310 




BAL 


R14,CDISAR3i 


6311 




LA 


R3,TST7.S2 


6312 




STH 


B3,DEVINT+2 


6313 




BAL 


R14,CG0 


6314 




LHI 


R0,X'7FFF* 


6315 




BAL 


R15, TIMER 


6316 




STK 


R0,ERRSAVE 


6317 




LIS 


R0,3 


6318 




LR 


R1,R2 


6319 




LA 


R2,T7.E017+9 


6320 




BAL 


R15,KEXASC 


6321 




LM 


RO,EBPSAVE 


6322 




LA 


R5,T7.E017 


6323 




B 


T7R05.5 


6324 


* 






6325 


* 


CONE 


HERE ON WRITE 


6326 


* 






5327 


TST7.S2 


EQU 


* 


6328 




LHL 


R3,PSW3 


6329 




EPS5 


R14,R3 


6330 




L 


R1 ,PSAVE+4 


6331 




L 


R2,RSAVE+8 


6332 




LA 


R5,T7.E018 


6333 




BAL 


R15,SELCHK 


6334 




BAL 


R15,SELEND 


6335 




BAL 


R15,STATCHK 


6336 




NHI 


p^x^o* 


6337 




BNZ 


PASS 


6338 


T7.S2A 


EQU 


* 


6339 




SIS 


R8,1 


6340 




BNZ 


T7.SA 


6341 




LA 


R3,TST7.S3 


6342 




STH 


R3,DEVINT 


S343 




I HI 


F0,X'3C' 


6344 




EAL 


R14,CENBLE 


6345 




BAL 


R14,CWEE0F 


6346 




BAL 


R15, TIBER 


6347 




LA 


E5,T7.E019 


6348 




p. 


T7R05 


6349 


* 






5350 


* 


COME 


HERE ON WEOF ] 


5351 


* 







^ELCH *** 

MESSAGE SET UP 

DRIVE AND STATUS 

SUSPECTED ERROR V CONTROLLER 



RESTORE PSW=70FC 

ENARy ONLY SELCH INTR. 
LOAD POINTER FOR 
NEXT EXPECTED INTR. 
GIVE SELCH THE GO 

WAIT FOR SELCH TO FINISH 

DIGITS TO CONVERT 
SELCH ADDR 

CONVERT 

RESTORE REGISTERS 



RESTORE PSH=70F0 

AND USER'S REGISTERS 

RESTORE R1 

RESTORE R2 

TROUBLE W/ SELCH V? TO HE* 

CHECK SELCH STATUS 

CHECK SELCH ENDING ADDF. 

CHECK INF. STATUS 

IS EOT SET 

IF SO, REWIND AND READS 

DECREMENT RECORD COUNT 

OUTPUT ANOTHER IF NO"? ZERO 

OTHERWISE SET UP FO" 

EOF WRITTING 

LOAD TIBER 

ENAELE INTERRUPTS 

OUTPUT AN WEOF CBD. 

WATT FOR NMTN INTR. 

NO IliTHPT GEN ON NHTN AFTEE 



?F/S" 



Y^D 62990 
*^D63000 
"■"tUSIOlO 
*TT)<=;3rpo 

^Desoao 

*" p D63n40 
*Ti)« ^050 
*™D63060 
*'"D63070 
"TD63O80 
5 i : "D63090 
"^063100 
*"'D63110 
«TD*3120 
NTDS3130 
*TD63140 
M^D63150 
"TD631S0 
fTD63170 
VDfiaiSO 
MTD63190 
*^D63200 
* r ' , D63210 
MTD63220 
* , "D';3230 
*Tr)63240 
"■"D63250 
*" n D63250 
"TD63270 
*TD632S0 
*TD63290 
»TD63300 
f p r)63310 
BTD63320 
*" , n63330 
*^D63340 
WTD63350 
BTD63360 
vti)633 -7 
NTD63380 
*TD<i3390 
frr^uoo 
* 1 'D63410 
MTD63420 
VT63430 
YTD63440 
M" , D63450 
*TD63460 
wt")'=;3470 
"TD63480 
» T D63490 
*TD6 3=00 
VTD63510 
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O0SCF2 
O060F6 
O060F3 
0060FC 
005100 
0061C4 
'006108 
00610A 
00510S 
005112 

006116 
006118 



00611C 
006120 
006124 
006128 
00612C 
005130 
006134 
006138 
00613C 
006140 
006144 
006148 
00614A 
00614E 



006152 
006156 
006158 
00615C 
C06160 

006164 
006168 
00616C 
006170 
006174 
006178 
00617C 
006180 
006184 
006188 
00618C 



0000 


50F2 




7330 


0A54 




95E3 






5810 


A858 


=006954 


5820 


A858 


=008958 


41E0 


9AD8 


=007BDC 


C430 


0020 




213A 




=ooeiic 


41F0 


A004 


=008112 


C430 


0020 




4230 


A238 


=00834E 


0000 


6116 




2771 






4230 


FEDE 


=005FFA 



41F0 


A26C 


=00838C 


0000 


62D4 




0000 


62D4 




41E0 


9B72 


=007f9E 


41E0 


9B6E 


=007C9E 


E6 30 


801E 


=006152 


4030 


21E5 




C800 


OFFF 




41E0 


9952 


=007C92 


41F0 


162A 




7330 


0A52 




95E3 






5650 


85F6 


=006744 


4300 


FEEE 


=006040 



0000 


6152 




7330 


0A54 




95E3 






5810 


A7F8 


=008954 


5820 


A7F8 


=00895? 


7370 


20B4 




0000 


6164 




7380 


20FA 




41F0 


9ED4 


=008040 


41E0 


9BBA 


=007D2A 


£530 


801C 


=006190 


4030 


21E6 




C800 


07FF 




41E0 


9B50 


=007CD0 


41E0 


9AD5 


=007C5A 


41F0 


162A 




"550 


85F0 


=00677C 


4300 


FEBO 


=006040 



5352 
5353 
5354 
6355 
5355 
6 3 57 
535B 
6359 
6360 
6361 
6 36 2 
6363 
5364 
6365 
5366 
5367 
5368 
5369 
5370 
5371 
6372 
6373 
6374 
6375 
5376 
6377 
6378 
5 379 
6380 
6381 
6382 
6383 
6384 
6385 
5336 
6387 
6388 
6389 
5390 
6391 
6392 
6393 
5394 
6395 
5396 
6397 
6398 
6399 
6400 
6401 
6402 
5403 
5404 



TST7.S3 



T7.S3C 



T7.S3B 



TST7.S4 



T7.S4C 



T7.S4B 



FQU 

LHL 

EPS 

L 

1 

BAL 

NHI 

BNZ 

BAI 

NHI 

BNZ 

EQU 

SIS 

BNZ 



R 



R3,PSW3 

R14,P3 

R1 ,RSAVE+4 

R2,SSAVE+8 

R14,SENSTA 

R3,X'20' 

T7.53B 

R15,STATCHK 

R3,X*20" 

PASS 

* 

R7, 1 
T7.S3 



RESTORE PSW 

AND REGISTERS 

RESTOR R1 

RESTORE R2 

CHECK STATUS 

FOP END OF TAPE 

CONTINUE IF ZERO 

CHECK FOR ERRORS 

IS EOT SET 

IF SO, REWIND AND READ^ 

DECREMENT FILE COUNT 
OUTPUT ANOTHER FILE 



OTHERWISE WE REMIND AND DO READS WITH SELCF 



BAL 

DAC 

DAC 

BAL 

BAL 

LA 

STH 

LHI 

BAL 

BAL 

LHL 

EPSR 

LA 

B 



R15,L0OPTOP 

TST7.END 

TSTT.END 

R14,CST0P 

R14,CST0P 

R3,TST7.S4 

R3,DEVINT 

RO,X'FFF" 

R14,CREH 

R15, TIMER 

R3,PSW2 

R14,R3 

R5,T7.E020 

T7R05 



STOP SELCH FIRST 

SET UP POINTER FOR 

REWIND INTERRUPT 

LOAD TIMER 

GIVE REWIND CMD. 

WAIT FOR INTERRUPT 

ERROR IF TIHED OUT 

SO DISABLE PROC. AND 

NO INTRPT GEN ON NMTN REW/SELCH 



WE HAD REWIND NMTN INTERRUPT TO 
GET HERE, LET"S READ NOW 



EQU 

LHL 

EPSR 

L 

L 

LHL 

EQU 

LHL 

EAL 

BAL 

LA 

STH 

LHI 

BAL 

BAL 

BAL 

LA 



R3,PSW3 

R14,R3 

51,RSAVE+4 

R2,RSAVE+8 

R7,FILES+$VALU1 



R8,R 
R15, 
SHI, 
R3,T 
R3,D 
R0,X 
R14, 
R14, 
R15, 
R5,T 
T7P0 



EC0RDS+SVALU1 
SELSETR 
EEBUF 
ST7.S5 
EVINT 
7FF' 
CENBLE 
CREAD 
TIMER 
7.E021 



RELOAD PSW 
AND PESTORE IT 
RESTORE R1 
RESTORE t?2 
LOAD FILE COUNT 

LOAD RECORD COUNT 

GO SET UP READ BUF. 

GSET UP READ ADDRESSES 

LOAD POINTER ADDR. 

AND STORE 

LOAD TI*ER 

RE-ENABLE INTERRUPTS 

GIVE READ COMMAND 

WAIT FOR BUSY TO DROP 

NO INTRPT GEN ON C PD/SFI.CH 



MTD53520 
*TD63530 
•»' 1, D63540 
»Tr)63^50 
n^D63560 
MTD63570 

vtt)63590 
V^D63600 
3^63610 
MTD63620 
MTD63*30 
MTD63640 
YTD63650 
MTD63660 
YTD63670 
W' T 'D63680 
^063690 
W"'D53700 

>1' ,, D63'720 
MTD63730 
•VD637U0 
M T D63"'50 
^D^^SO 
1TD63770 
»f"D637e0 
*f'"D63" 7 90 
*C , D63800 
HTD53810 
HTD63820 
M T-D63830 
MTD63840 
i!TD63850 
ITT) 53860 
»f , D63870 
1TD63880 
MTD63890 
MTD63900 
^■^^63910 
^"■063920 
MTD53930 
MTD63940 
*TD63a50 
H m D63960 
y"T)f3Q70 

¥"'063980 
MTD63990 
wthb UOOO 
wtt)54010 
WTD54020 
f^D64030 
HTri6UOliO 
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6405 


* 








H^D64050 










6405 


* 


HEAD 


BUSY INTERRUPT BE 


IINGS US HERE 


Y T 'D640fiO 










5407 


* 








M"D64070 




0000 


6190 




6403 


TST7.S5 


EQU 


* 




MTD64080 


006190 


7330 


0A54 




6409 




LHL 


E3,PSH3 


RESTORE PSH 


M^D64090 


006194 


95F3 






6410 




EPSE 


F.14,R3 


AND REGISTERS 


mtd«4100 


006196 


5310 


A73A 


=008954 


5411 




L 


P1,ESAVE+4 


RESTOEE R1 


^0*4110 


00619A 


5820 


A73A 


=008958 


5412 




L 


E2,RSAVE+8 


RESTORE R2 


M^D^U^O 


00619E 


E6 30 


8 02A 


=0061CC 


5413 




LA 


R3,TST7.S6 


LOAD POINTER ADDR. 


MTD64130 


0051A2 


4030 


21E8 




6414 




STH 


R3,DEVINT+2 


STOEE IT #« 


ifTD6m40 


0061A6 


41E0 


9B20 


=0C7CCA 


6415 




BAL 


R14,CDISAEH 


DISARM INTERRUPT ON INF. 


M' T 'D641 c ;0 


0061AA 


41E0 


9AEA 


=007C96 


6415 




BAL 


B14,CG0EEAB 


GIVE SELCH THE GO 


HTD64160 


0061AE 


41F0 


162A 




6417 




BAL 


E15, TIMER 


WAIT FOR SELCH TO READ 


MTD64170 


0061B2 


7330 


0A52 




6418 




LHL 


R3,PSW2 


LOAD DISABLE PSW 


M'? , D64180 


0061B5 


95E3 






6419 




EPSE 


R14,F3 


FOR PROC 


M1-D64190 


0061B8 


2403 






6420 




LIS 


R0,3 


DIGITS TO CONVERT 


MTD64200 


0051BA 


0812 






5421 




LR 


R1,E2 


ELCH ADR 


T"D64210 


0051BC 


£620 


860D 


=0067CD 


5422 




LA 


B2,T7.E022+19 




W'D' : 4220 


0051C0 


41 FO 


1680 




5423 




BAL 


R15,HEXASC 


CONVERT 


M^D64230 


0061C4 


E650 


85F2 


=0067BA 


5424 




LA 


E5,T7.E022 


TIMED OUT OM SELCH*** RD FROM «E» 


MTD64240 


0061C8 


4300 


FE90 


=00605C 


5425 
5425 


* 


B 


T7F05.5 




MTD64250 
M" , D6 4260 










5427 


* 


HE HAVE READ A RECORD 


NOW LET'S CHECK IT 


MfD64270 










6423 


* 








M^D64280 




0000 


51CC 




5429 


TST7.S6 


EQU 


* 




M'"D64?90 


0061CC 


7330 


0A54 




5430 




LHL 


R3.PSW3 


RESTOEE REGISTERS 


M"'D64300 


0061D0 


95E3 






5431 




EPSE 


R14,R3 


AND PSW 


M'"D64310 


0061D2 


5810 


A77E 


=008954 


5432 




! 


E1,RSAVE+4 


RESTOEE R1 


M^D64320 


0061D6 


5320 


A77E 


=008958 


5433 




L 


R2,RSAVE+8 


RESTORE R2 


MTD64330 


0051DA 


^650 


3606 


=0067E4 


6434 




LA 


R5,T7.E022A 


SELCH COMPARE UNDER INTERRUPTS 


MTD64340 


0061DE 


41F0 


9C96 


=007E78 


5435 




BAL 


E15,SELCHK 


CHECK SELCH STATUS 


M"'D64350 


0061E2 


41F0 


9D1C 


=007F02 


6435 




BAL 


R15,SELEND 


CHECK SELCH ENDING ADDR. 


M^D64360 


0061E6 


41F0 


9F28 


=008112 


6437 




BAL 


R15,STATCHK 


CHECK INF. STATUS 


MTD64370 


0061EA 


C430 


0020 




5438 




NHI 


R3,X'20* 


IS EOT SET 


M'"D54380 


*0061ES 


2335 




=0061F8 


6439 




BZ 


T7.S6 




K n 'D64390 


0061F0 


41F0 


9EDE 


=008GD2 


6440 




3AL 


R15,REWHT 


REWIND HAG TAPE 


MTD64400 


0061F4 


4300 


80DC 


=0062D4 


6441 




B 


TST7.END 


OTHERWISE END TEST 


V"'D64410 




0000 


61F8 




6442 


T7.S6 


EQU 


* 




M1-D64420 


0061F8 


5000 


A754 


=008950 


6443 




STH 


RO,RSAVE 


SAVE REGISTERS 3EF0RF DATA COMPARE 


M" , Dfi4430 


0061FC 


ES40 


A224 


=008424 


6444 




LA 


R4,DATAPAT 




MT-D64440 


006200 


2420 






6445 




LIS 


32,0 


INDEX REGISTER 


MTD64450 


006202 


7350 


200C 




6445 




LHL 


E5,BYTES+$VAL'J1 


LOAD BYTE COUNT 


MTD64460 


006206 


?550 


0002 




544' 7 




CLHI 


R5,2 




MTD64470 


*00620A 


2382 




=00620E 


6443 




BNL 


SCHK1 




MTD64480 


00620T 


24-53 






5449 




LIS 


R5,3 


LOAD MINIMUM AMOUNT 


M-"D64490 


00620E 


2751 






6450 


SCHK1 


SIS 


R5,1 


ADJUST 


»TD64 C 00 


006210 


?490 






6451 




LIS 


P9,0 


LOAD ADDRESS OF READ BUF. 


M' n D64510 


006212 


5334 


4200 


0000 


6452 


S5AT.1 


LB 


R3,0(R4,R2) 


GET DATA WRITTEN 


MT564520 


006218 


53 A9 


4001 


8950 


6453 




L3 


R10,READBUF(39) 


DATA READ 


MTD64^30 


00621E 


05 3A 






6454 




CLR 


R3,R10 


SHOULD BE EQUAL 


MTD64540 


*006220 


21 3 A 




=006234 


6455 




3NE 


SDAT.ERE 




M'"D64550 


006222 


2691 






6455 




AIS 


E9,1 




MTD64560 


0C6224 


C720 


0001 




6457 




XHI 


R2,1 




MTD64^70 
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006223 

*00622.'. 

00622C 

00623C 

00523!* 
006239 
00523C 
006240 
006241. 
0G6248 
00624C 
006250 
006254 
006256 
00625A 
00625E 
006262 
006266 
00626A 
006 26 E 
006272 
006276 
006278 

00627C 



006280 
006284 
006286 
00628A 
00628E 
006292 
006296 
♦00629A 
00629C 
0062A0 



O062A4 
00 6 2A6 
0062AA 



0062AE 
0062B2 
0062B6 
0062BA 



2752 






228C 




=006212 


D100 


A720 


=008950 


4300 


8020 


=006254 


4030 


A2C4 


=0084FC 


40A0 


A2C2 


=0084FE 


4090 


A1D4 


=008414 


E650 


85A0 


=0067E4 


41E0 


2CC4 




5SE0 


35F6 




E6E0 


A368 


=0085Bf> 


4300 


A078 


=0082CC 


2781 






4230 


FFOE 


=006168 


E6 30 


8022 


=006280 


4030 


21E6 




41E0 


9A6A 


=007CDC 


C800 


OOFF 




41E0 


99EC 


=007C5A 


41F0 


162A 




7330 


OS 52 




95E3 






S650 


858A 


=006806 


4300 


FDCO 


=006040 


0000 


6280 




7330 


0A54 




95E3 






5810 


A6CA 


=008954 


5820 


A6CA 


=008958 


41E0 


9A38 


=007CCA 


41E0 


9946 


=007PDC 


C430 


0002 




2135 




=0062AU 


E650 


859E 


=00683E 


4300 


FDOO 


=005FA4 



0000 62A4 
2771 

4230 ?EBA 

4300 AOAO 



0000 62AE 

4010 21E0 

7320 2108 

4020 21E2 
2430 



=006164 

=00834F 



6458 




SIS 


E5,2 


6459 




3NL 


SDAT.1 


6460 




I", 


RO,RSAVE 


6 46 1 




p 


T7.S77 


6462 


* 






6463 


SDAT.ERR 


STH 


33,WST0RE 


6464 




STH 


R10,RSTCEF 


6465 




STH 


R9, INDEX 


6466 




LA 


R5,T7.E022A 


6467 




PAL 


R14,T1ERP0RA 


6468 




LA 


P,15,MESSG3A 


6469 




LA 


R14,SELMSG 


6470 




p 


ERRORX 


6471 


T7.S77 


SIS 


P8,1 


6472 




BNZ 


T7.S4B 


6473 




LA 


E3.T7.S6A 


6474 




STH 


R3,DEVINT 


6475 




BAL 


R14,CENBLE 


6476 




IHI 


ROrX'FF* 


6477 




EAL 


R14,CREAD 


6478 




BAL 


P15, TIMER 


6479 




LHL 


R3,PSW2 


6480 




EPSE 


R14,E3 


6481 




LA 


R5,T7.E024 


6482 


* 






6483 




B 


T7R05 


6484 


* 






6485 


T7.S6A 


EOU 


* 


6486 




LHL 


R3,PSW3 


6487 




EPSR 


R14,E3 


6438 




L 


R1,RSAVE+4 


6489 




L 


R2,RSAYE+8 


6490 




BAL 


R14.CDISARM 


6491 




BAL 


R14,SENSTA 


6492 




NKI 


R3,X*02* 


6493 




BNZ 


TST7.S7 


6494 




LA 


R5,T7.E025 


6495 




B 


T7R06 


6496 


* 






6497 


* 


LET'S 


CHECK FOR ANYMO 


6498 


* 






5499 


TST7.S7 


EQU 


* 


5500 




sis 


R7,1 


6501 




BNZ 


T7.S4C 


6502 




B 


PASS 


6503 


* 






6504 


* 


COKE 


HERE TO SET UP I 


6505 


* 






6506 


INTRSET 


EQU 


* 


5507 




STH 


R1,DFVSAPR 


6508 




LHL 


R2,SELCH+SVALU1 


6 509 




STH 


R2,DEVSADR+2 


5510 




LIS 


R?,0 



DECREMENT BYTE COUN^ 
RESTORE REGISTERS 



SAVE DATA READ 
SAVE EYTE NO 

"ESSAGE SET HP 

SUSPECTED ERROR V SELCH 

EEROR HANDLER 

DECREMENT RECORD COUNT 

INPUT ANOTHER RECORD? 

LOAD EXT LOC 

AND STORE FOR INTERRUPT 

ENABLE INTERFACE 

LOAD TIMER 

READ EOF? 

AND WAIT FOR INTERRUPT 

LOAD DISABLE PSW 

AND DISABLE INTERRUPTS 

NO INTRPT GEN ON RD EOF/SELCH 

STATUS 



RESTORE PSW 

AND USER REGISTER SET 

RESTORE R1 

RESTORE R2 

NO OTHER INTERRUPTS PLEASE 

LOAD INTERFACE STATUS 

EOF SET? 

YES! CONTINUE ON 

NO TAPE MARK FOUND AFTER PD/SELCH 



DECREMENT FILE COUNT 

INPUT ANOTHER FILE IF NOT ZERO 

OTHERWISE END TEST? 

iiUPT HANDLER 



STORE DEVICE ADDRFSS 
LOAD SELCH ADDRESS 
AND STORE IT 
LOAD ZFROS 



*TD<34580 
f n, D54590 
M^D64600 
M^D64610 
"TD64620 
* T D64630 
MTD*4*40 
MTD64650 
"!TD64660 
M'"D64670 
M T D64680 
M"'D64690 
MTD64700 
MTr»64710 
M^D64720 
MTD64730 
KT054740 
*?D64750 
M T D64760 
M"'D64770 
>» "^64730 
f^D64790 
W , D64P00 
M' T, D64810 
»^D64P20 
MTD64830 
^"64840 
WTD64850 
fTD64860 
MTD64870 
TTD64880 
¥Tn<;a890 
*TD64900 
w^D64910 
"»' ,, D64920 
fT'D64930 
*'"D64940 
MTD64950 
W , D64960 
M' r D64970 
Htd^4980 
MTD«4990 
M^D65000 
M m D55010 
M^D^5020 

W-T)«c,030 

YTD65040 
W,T, D65050 
MTI65060 
«?^D65070 
"*' T 'D650«0 
wq, D65090 
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TEST 7 



0062BC 
0062C0 



0062C2 
0062C6 
0062C8 
O062CC 
0062D0 

0052D4 
0062DS 
0062DC 
0062DE 
0052E2 
0062E6 
0062EA 
0062EE 
0062F2 



4030 21E6 
030F 

OOOO 62C2 
7330 0A52 
95E3 

41F0 17E6 
0000 85D4 
4300 133C 

41E0 99F2 =007CCA 

4830 0<*54 

95S3 

41F0 2836 

4800 P 12«* =00840A 

C300 OOOE 

4330 133C 

41F0 9A66 =007D58 

4300 F568 =00585E 



5511 




STH 


R3,DEVINT 


6512 




EH 


R15 


6513 


* 






6514 


T7.N0S 


EQU 


* 


6515 




LHL 


R3,PSK2 


5516 




EPSR 


R14,R3 


6517 




BAL 


B15, SPRINT 


6518 




DAC 


NOSELCH 


6519 




c 


TSTEND 


6520 


* 






6521 


TST7.EKD 


EAL 


R14.CDISARK 


6522 




LH 


R3,PSW3 


6523 




EPSB 


R14,E3 


6524 




PAL 


R15,TST.DRIV 


6525 




LH 


R0,DRIYSAV1 


5526 




TKI 


R0,X'E" 


6527 




BZ 


TSTEND 


6528 




EAL 


R15,IT.B1 


6529 




p 


TST7.1 



AND ZERO OUT 
RETURN TO CALLE" 



LOAD A DISABLE FOP 
THE PROCESSOR INTR. 
OUTPUT MESSAGE OF 
"NO SELCH" 



DISARF INTFRRUP^S 



CHECK FOR OTHER DRIVES 

CHECK FLAG 

IS IT SET 

NO, END TEST 

IUIT TEST FOR OTHER DRIVES 

BEGIN TEST 7 



wT"nfi5iio 
MTD65120 
M^D65130 
"TD65m0 

■'"■Resiso 
■^Desifio 

w m n65180 
"^065190 
>f^D65200 

M ,p D65220 
w"D65230 
, * ,T 'D65240 
M" , D65250 
>» ,p D65260 
M'"D65270 
"TD65280 
M^D65290 



0062F6 


494E 


5445 


c 252 


5550 


0062FE 


5420 


4745 


4E45 


5241 


006306 


5445 


4420 


5748 


494C 


00630E 


4520 


4449 


5341 


524D 


006316 


4544 








006318 


ODOA 








00631A 


494E 


5445 


5252 


5550 


006322 


5420 


5155 


4555 


4544 


00?32A 


2057 


4849 


4C45 


2044 


006332 


4953 


4152 


4D45 


4420 


00633A 


ODOA 








00633C 


494E 


5445 


5252 


5550 


006344 


5420 


4745 


4F45 


5241 


00634C 


5445 


4420 


5748 


494C 


006354 


4520 


4449 


5341 


424C 


00635C 


4544 








00635E 


ODOA 








006360 


4E4F 


2049 


4E54 


4552 


00 6 36 8 


5255 


5054 


2C51 


5545 


C06370 


5545 


4420 


5748 


494C 


006^73 


4520 


4449 


5341 


424C 


006380 


4544 








0053S2 


ODOA 








005384 


4E4F 


2049 


4E54 


4552 


0063SC 


5255 


5054 


2047 


454E 


006394 


4552 


4154 


4 = 44 


2057 


00639C 


4849 


4C45 


2045 


4E41 


0063A4 


424C 


4544 






0C63A8 


1D0A 









6531 T7.E000 DC C'INTEREUFT GENERATED WHILE DISARMED' .X'ODOA' 



6532 T7.E001 DC C'INTERRUPT QUEUED WHILE DISARMED* ,X • ODOA ' 



6533 T7.E002 DC C'INTERRUPT GENERATED WHILE DISABLED • ,X 'ODOA ' 



6534 T7.E003 DC C'NO INTERRUPT QUEUED WHILE DISABLED ' ,X ' ODOA ' 



6535 T7.E004 DC C'NO INTERRUPT GENERATED WHILE ENABLED ' ,X" ODOA' 



"D<>5310 



v'D65320 



^"■0*5330 



V, "D65340 



w' T, D653 c 
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;t 7 



i;*3AA 


UE4F 


2049 


4E54 


4552 


::6 332 


5255 


5054 


2047 


454F 


"063=A 


4552 


4154 


4544 


204F 


::■* 3C2 


4E20 


224E 


4D54 


4F22 


C0 6 3CA 


2020 








6 3CC 


4146 


5445 


5220 


434F 


C;6304 


4D4D 


414E 


4420 


5245 


C36 3DC 


5749 


4E44 






0063E0 


ODOA 








0063E2 


4E4F 


2049 


4F54 


4552 


0C53EA 


5255 


5054 


2047 


454E 


C063F2 


4552 


4154 


4544 


2 04F 


0063FA 


4E20 


2242 


5553 


592? 


006402 


2041 


4654 


4552 


2020 


00640* 


434F 


4D4D 


U14F 


4420 


006412 


5245 


4144 






006U15 


O.DOA 








005418 


4E4F 


2049 


4E54 


4552 


006420 


5255 


5054 


2047 


454F 


C06428 


4552 


4154 


4544 


204F 


00R430 


4E20 


2242 


5553 


5922 


006438 


2041 


4654 


4552 


2043 


006440 


4F4D 


4D41 


4E44 


2057 


005448 


5249 


5445 






C0644C 


ODOA 








00644E 


4E4F 


2049 


4E54 


4552 


006456 


5255 


5054 


2047 


454E 


CC645E 


4552 


4154 


4544 


204F 


006466 


4E20 


224E 


4D54 


4E22 


00646E 


2041 


4654 


4552 


2020 


006476 


5752 


4954 


4520 




00647C 


ODOA 








C0647E 


4E4F 


2049 


4F54 


4552 


006436 


5255 


5054 


2047 


454E 


00648E 


4552 


4154 


4544 


204F 


006496 


4E20 


224E 


4D54 


4E22 


00649F 


2041 


4654 


4552 


2020 


0064A6 


434F 


4D4D 


414F 


4420 


0064AE 


5245 


5749 


4E44 




0064B4 


ODOA 








0064B6 


4E4F 


2049 


4E54 


4552 


0054BE 


5255 


5054 


2047 


454F. 


0064C6 


4552 


4154 


4544 


204F 


0064CE 


4E20 


2242 


5553 


5922 


0064D6 


2041 


4654 


4552 


2020 


0064DE 


5245 


4144 






0064E2 


ODOA 








0064E4 


4E4F 


2049 


4E54 


4552 


C06UEC 


5255 


5054 


2047 


454E 


0064F4 


4552 


4154 


4544 


204F 


0064FC 


4E20 


224E 


4D54 


4E22 


006504 


2041 


4654 


1552 


202C 


00650C 


5245 


414a 







6536 T7.E006 DC C'NO INTERRUPT GENERATED ON "NtfTN" ' 



6537 



DC C'AFTER COMMAND REWIND ', X ' ODOA ■ 



6538 T7.S007 DC C'NO INTERRUPT GFNEEATED OS "BUSY" AFTER • 



5539 



DC 



6540 T7.E008 DC 



C'COHKAND READ',X'ODOA' 



C'NO INTERRUPT GENERATED ON "BUSY" AFTER COKKAND WRITE' 



V T D6 5 3 60 



"'''D65370 



STD65330 



M^D65390 



MTQS5400 



5541 DCX ODOA 

6542 T7.E00A DC C'NO INTERRUPT GENERATED ON "NSTN" AFTER ' 



6543 DC C'WRITE^X'ODOA" 

6544 T7.E00B DC C'NO INTERRUPT GENERATED ON "NKTN" AFTER ' 

6545 DC C'COKHAND REWIND ' ,X ' ODOA ' 

6546 T7.E00D DC C'NO INTERRUPT GENERATED ON "BUSY" AFTER ' 



6547 DC 

6548 T7.E00E DC 



6 549 



DC 



C'EEAD' ,X'ODOA' 

C'NO INTERRUPT GENERATED ON "NSTN" AFTER ' 

C'PFAD' ,y'0D1A' 



MTI65410 
M' , 'D55ti20 



M^D65430 
ifTD65440 

W-D65450 
1T)65460 

VTD65470 
y m nfi5U90 
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TEST 1 










006510 


ODOA 








006512 


4E4F 


2049 


4E54 


4552 


00651A 


5255 


5054 


2047 


454E 


006522 


4552 


4154 


usmi 


204F 


00552A 


4E20 


224E 


4D54 


4F22 


006532 


2041 


4654 


4552 


2020 


00653A 


534B 


4950 


2042 


4143 


006542 


4B57 


4152 


U420 


5245 


00654A 


434F 


5244 






00654E 


ODOA 








006550 


4E4F 


2049 


UE54 


4552 


006558 


5255 


5054 


2047 


454E 


006560 


4552 


4154 


4544 


204F 


006568 


4E20 


224E 


4D54 


4E22 


006570 


2041 


4654 


4552 




006576 


534B 


4950 


2046 


4F52 


00657E 


5741 


5244 


2052 


4543 


006586 


4F52 


4420 






00658A 


ODOA 








00S58C 


4E4F 


2049 


UF54 


4552 


006594 


5255 


5054 


2047 


454F 


00659C 


4552 


4154 


4544 


204F 


0065A4 


4E20 


4255 


5359 


2041 


0065AC 


4654 


4552 


2020 




0055B2 


5752 


4954 


4520 


4841 


00653A 


4C46 


574F 


5244 




0065C0 


ODOA 








0055C2 


434F 


4D50 


4152 


4553 


0065CA 


2055 


4F44 


4552 


2057 


0065D2 


5249 


5445 


2F52 


4541 


0065DA 


4420 


494E 


5445 


5252 


0055S2 


5550 


5453 






0065E6 


ODCA 








0065E8 


4S4F 


2049 


4E54 


4552 


0065F0 


5255 


5054 


2047 


454E 


0065F8 


4552 


4154 


U544 


204F 


006600 


4E20 


2242 


5553 


5922 


006608 


2041 


4654 


4552 


2057 


005610 


5249 


5445 


2045 


4F46 


006618 


ODOA 








00661A 


4E4F 


2049 


4E54 


4552 


006622 


5255 


5054 


2047 


454E 


00662A 


4552 


4154 


4544 


204F 


005632 


4E20 


2242 


55 53 


5922 


0C663A 


2041 


4S54 


4552 




006640 


2052 


4541 


4420 


454F 


006648 


4520 








00664A 


ODOA 








00664C 


4E4F 


2054 


4150 


4520 


006654 


4D41 


524S 


2053 


5441 


00665C 


5455 


5320 


4146 


5445 


006664 


5220 


5245 


4144 


2055 


00666C 


4E44 


4552 


2020 





6550 T7.E010 DC C'NO INTERRUPT GENERATFD OH "NHTN" AFTER • 



6551 



PC C'SKIP BACKWARD RECORD • ,X ■ ODOA • 



6552 T7.E011 DC C'NO INTERRUPT GENERATED ON "NMTN" AFTFR' 



5553 



DC C'SKIP FORWARD RECORD' ,X'ODOA ' 



6554 T7.E012 DC C'NO INTERRUPT GENERATED ON BUSY AFTER ' X'8P 



6555 



DC C'WRITE HALFWORD' ,X*0P0A* 



5556 T7.E012A DC C'COKPARES UNDER WRITE/READ INTERRUPTS ' ,X ' ODOA ' 



6557 T7.E013 DC C'NO INTERRUPT GENERATED ON "BUSY" AFTER VRITF EOF' 



6558 DCX ODOA 

6559 T7.E014 DC C'NO INTERRUPT GENERATED ON "BUSY" AFTER' 



5560 



DC C READ EOF'/X'ODOA" 



6551 T7.E015 DC C'NO TAPF FA3K STATUS AFTER READ UNDER ' 



^■^055^00 
«Tr)65^10 

1'"D65530 
S'" r >65540 

*?D65550 
1i"D65560 

WD65570 



KTD65580 
PTD65590 



»fTD65600 



YTD6 5610 
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006672 


494E 


00657A 


5453 


00667C 


ODOA 


006*7E 


4E4F 


006686 


5255 


00668E 


5245 


006696 


4F4E 


00669E 


2220 


0066A6 


2043 


0066AE 


2057 


0066B6 


454C 


00663C 


ODOA 


0066BE 


5449 


0066C6 


5420 


0066CE 


4348 


0066D6 


5249 


0066DE 


4D45 


0066E4 


ODOA 


0056E6 


5452 


0066EE 


5749 


0066F6 


4348 


0066FE 


2054 


006706 


5259 


006708 


ODOA 


00670A 


4E4F 


006712 


5255 


00671A 


4552 


006722 


4F20 


00672A 


2041 


006732 


5345 


00673A 


4954 


006742 


ODOA 


006744 


4E4F 


00674C 


5255 


006754 


4552 


00675C 


4E20 


006764 


2041 


00676C 


5245 


006774 


454C 


00677A 


ODOA 


00677C 


4E4F 


006784 


5255 


00678C 


4552 


006794 


4E20 


00679C 


2041 


0067A4 


4F4D 


0067AC 


5245 


0067B4 


4348 


0067B8 


ODOA 


0067BA 


5449 


0067C2 


5420 


OOe^CA 


4348 


0067D2 


4541 



5445 5252 5550 



2049 4F54 4552 

5054 2047 454F 

5241 5445 4420 

2022 4255 5359 

4146 5445 5220 

4F4D UD41 4F44 

5249 5445 2653 
4348 2920 

4D45 4420 4F55 

4F4E 2053 454C 

202A 2A2A 2057 

5445 2054 4F20 
4D4F 5259 

4F55 424C 4520 

5448 20^3 454C 

2057 5249 5U45 

4F20 4D45 4D4F 



2049 UF54 4552 
5054 2047 454E 
4154 4544 204F 
224E 4D54 4F.22 
4654 4552 2020 
4C43 4820 5752 
4520 454F 4620 

2049 4E54 4552 
5054 2047 454E 
4154 4544 204F 
224E 4D54 4E22 
4654 4552 2020 
5749 4E44 2853 
4348 2920 

2049 4E54 4552 
5054 2047 454E 
4154 4544 204F 
224F 4D54 4F22 
4654 4552 2C43 
4D41 4E44 2020 
4144 2853 454C 
2920 

4D45 4420 4F55 

4F4E 2053 454C 

202A 2A2» 2052 

4420 4652 4^4D 



5562 



DC C INTERRUPTS 1 ,X'0D0A' 



6553 T7.E016 DC C'.N'C INTERRUPT GENRERATED ON "BUSY" AFTFR' 



6564 



6568 



6570 



6572 



DC C COMMAND WBITE(SEICH ) * ,X • ODOA ' 



6565 T7.E017 DC C'TI^ED OUT ON SEICH *** WFITE TO MEMORY ■ , X' ODOA ' 



6565 T7.E018 DC C'TROUBLE WITH SELCH WRITE TO MEMORY ' ,X" ODOA • 



6567 T7.E019 DC C'SO INTERRUPT GENERATED ON "NMTN" AFTER ' 



DC C SELCH WRITE EOF", X* ODOA' 



6569 T7.E020 DC C'NO INTERRUPT GENERATED ON "NKTN" AFTER ' 



DC C'REWIND(SELCH) •/X'ODOA" 



6571 T7.E021 DC C'NO INTERRUPT GENERATED ON "NMTN" AFTER COMMAND 



DC 



6573 T7.E02 2 DC 



C'EEAD(SELCH) ',X'0D0A ' 



C'TI'ED OUT ON SELCH *** PEAD FROM MEMORY ', X" ODOA • 



MTD65620 



MTD65630 



"'■"065540 



MTD65550 



"'''D65660 



«!^D65670 



M^D65680 



M ip D65*90 



M^D65700 



Y"D65710 



M-D65720 



H^D65"'30 
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0067DA 


204D 


454D 


4F52 


5920 


0067E2 


ODOA 








0067S4 


5345 


4C43 


4820 


434? 


00S7EC 


4D50 


4152 


4553 


2055 


0067F4 


4F44 


4552 


2049 


4F54 


0067FC 


4552 


5255 


5054 


5320 


006804 


ODOA 








006806 


4E4F 


2049 


4E54 


4552 


00680E 


5255 


5054 


2047 


454E 


006816 


4552 


4154 


4544 


204F 


00681E 


4E20 


224E 


4D54 


4E22 


006826 


2041 


4654 


4552 


2052 


00682E 


4541 


4420 






006832 


454F 


4628 


5345 


4C43 


00683A 


4829 








00683C 


ODOA 








00683E 


4E4F 


2054 


4150 


4520 


006846 


4D41 


524B 


2053 


5441 


00684E 


5455 


5320 


4146 


5445 


006856 


5220 


5345 


4C43 


4820 


00685E 


5245 


4144 


2020 




006864 


554E 


4445 


5220 


494E 


00686C 


5445 


5252 


5550 


5453 


006874 


ODOA 








006876 


5345 


4C43 


483D 


2A2A 


00687E 


2 A 20 








006880 


ODOA 








006882 


4452 


4956 


4520 


2A2A 


00688A 


2A20 








00688C 


8D0A 








00688E 


5354 


4154 


5553 


3D2A 


006896 


2 A 20 








006898 


ODOA 









6574 T7. r 022A DC C'SSLCH COMPARES UNPFR INTERRUPTS" ,J ' ODO A • ^-"065740 

6575 T7.E024 DC C'NO INTERRUPT GENERATED ON "NMTN" AFTER READ ■ "TD65750 

6576 DC C , EOF(SELCH) , ,X , 0D0A" K'"D65760 

6577 T7.E025 DC C'NO TAPE HARK STATUS AFTER SELCH READ • HTD65770 

6578 DC C" UNDER INTERRUPTS", X'ODOA" M"'D65780 

6579 T7KSG3 DC C* SELCH=***" ,X " ODOA ' YTD65790 

6580 T7ERHSG1 DC C'DRIVE ***",X"8D0A" f^DeSSOO 

6581 T7ERMSG2 DC C" STATUS=** " ,X "ODOA " »!^D65810 



HI3H PERF0RMANCE(6250)FAGTAPE 
TEST 8 
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5583 
6 5 3 4 
5585 
6586 
6587 
6588 
6539 
6590 
6591 
5592 
5593 
5594 
6595 
6596 
5597 
5598 
6599 
5500 
5501 
5502 
5503 
5504 
6505 
5606 
6607 
5608 
6509 



******************* ** 
* TEST 8 READ- 



r************************ 

i'P.ITE OVERRUNS 



********* 



PURPOSE: 
BITS 8 ( 



THE 

•:rr) 



TES" 
AND 



? EXEPCISES 
9 (CIRR). 



THE S m ATUS BYTE FRROR 



* TEST SPEC: THE TEST OUTPUTS A RECORD, REWINDS THE TAPE 

* AND TRIES TO READ THE TAPE USING A SMALLER * 

* RECORD LENGTH (REAL OVERRUN SHOULD SET). THE * 

* IS REMINDED AGAIN AND A READ COMMAND IS GIVEN * 

* AGAIN BUT WITHOUT ANY READS (FORMATTER * 

* OVERRUN SHOULD SET). THF TAPE IS REWINDFD A * 

* THIRD TIME, A RECORD IS WRITTEN TO THE TAPE, * 

* THE TAPE STOPS AND ANOTHER WRITE IS OUTPUTED * 

* T0 TH£ tape hithoUT ANOTHER WRITE COMMAND * 

* (WRITE UNDERFLOW SHOULD SET). THE TEST ENDS * 

* UP WRITING TWO RECORDS (ONE ODD LENGTH, ONE * 

* EVEN LENGTH) TO CHECK OUT THE ODD EVEN BIT OF * 

* THE DEVICE STATUS HALFWORD. * 

* * 

* ERRORS: * 

* * 

* OPTIONS: * 

* 'TRMODE' MUST = 1 * 

* DRIVE, SELCH, AND DATA. * 

* * 
******************************************************* 



MT>65?t4P 
^TD65 flc;f1 
f' T "}65?f'C 

v "''D658 t '0 
M lp t>653 Q 

1TT)' ; 5 3 0P 

M m D65910 
MTD65920 
MTD65930 
MTD65940 

MTD65950 

M T D65960 
M^D65970 
MTD65980 
M^D65990 
KT>66000 
H m D66010 
M T D6*020 
M^DefiOSO 
HTP569U0 
M^D66050 
f m D66060 
MTD66070 
MTD66080 

•f'neeogo 



00589A 
00689E 



0068A2 
0068A8 
0058AC 
0068B0 
0068B4 
0068B8 
0068BC 
OO68C0 
0058C4 
0058C8 
*0068CC 
0068CS 
0068D2 
0068D6 
0068DA 



0000 689A 

41F0 94AC =007D4A 

41F0 8702 =006FA4 



0000 68A2 

41F0 9AE6 =00838C 

0000 693A 

0000 693A 

7320 2108 

41E0 93E6 =007C9E 

41E0 9352 =007C9E 

41F0 9812 =0080E2 

41F0 F9EA =0062AE 

41F0 97DC =0080A4 

4840 2035 

2133 =0068D2 

4340 9B5S =008430 

4040 9B4E =008424 

E640 9B4A =008424 

C860 OFFE 



6511 
6512 
■5513 
5614 
6615 
5616 
6617 
6618 
5619 
6620 
5621 
5622 
5523 
5624 
5525 
5625 
5527 
5523 
5629 
5^30 
6 631 



TEST8 



T8.1B 



T8.1BB 



EQU 


* 


BAL 


315,TESTINIT 


3AL 


R15,SELADS 


EQU 


* 


BAL 


R15,L00PT0P 


DAC 


T8.2 


DAC 


T8.2 


LHL 


R2,SELCH+$VALU1 


BAL 


?14,CST0? 


BAL 


R14,CST0P 


PAL 


R15,F.EWMT 


BAL 


S15,INTPSET 


BAL 


R15,'(JRTENB 


LH 


R4,D?TA+SVALU1 


BNZ 


T3. 1B3 


LH 


R4,TFSTPAT+10 


STK 


R4,DATAPAT 


LA 


R4,DATAPAT 


LHI 


R6,X'FFE' 



INIT TEST 
CHECK OPTIONS 



CALCULATE ADDRESSES 
NEXT SEQUENCE 
PROCEED LIMIT 
GET SELCH ADDRESS 
STOP IT 

REWIND TAPE IF NECESSAPY 

SET UP INTR. TABLES 

ARE WRITES ENABLED? 

USER SPECIFIED DATA 

YES 

USE A TESTPAT 

GET ADDRESS OF ''"HAT PATTFRN 
LOAD RECORD COUN" 



M™D56110 
MTD66120 
»' r D66130 
1T)66140 
MTD65150 
MTD66160 

M^Dee^o 

MTD6618Q 
1^^66190 
MTD66200 
MTD65210 
M' p r>66220 
"TD66230 
fi , D66240 

* m r>66?60 
M T D66?70 

M^D66?90 
w , Tn66300 
M^n66310 
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TEST 8 



0058DE 
0068E2 
0068E6 
0068EA 
0068EE 
0068F2 
0068F6 
0068FA 
0068FC 
006900 
006904 
006908 
00690C 
006910 
006912 

006916 
00691A 
O0S91C 
006920 
006924 
006928 
00692C 
006930 
♦006934 
005 9 36 

00693A 

006940 

006944 

006948 

00694C 

006950 

006954 

00595A 

00695E 

006962 

006966 

00696A . 

00696E 

006972 

006976 

00697?. 

00697E 

O0K3SO 

006984 

006988 

00698C 

005990 

006994 

006996 



41F0 


9562 


=007F44 


41 SO 


9414 


=007CFA 


41 p 


92E3 


=007BD2 


41S0 


9392 


=007C80 


E630 


8024 


=006916 


4030 


21E8 




7 330 


0»54 




95E3 






C800 


1 FFF 




E6 50 


823A 


=006B3E 


41E0 


937E 


=007C86 


41F0 


162A 




7330 


0A52 




95E3 






4300 


2E06 




0000 


6916 




7330 


0A52 




95E3 






5810 


A034 


=008954 


5820 


A0 34 


=008958 


41F0 


9550 


=007F78 


41F0 


95D6 


=007F02 


41F0 


97E2 


=008112 


C430 


0020 




2333 




=00693A 


41E0 


93 3 A 


=007C74 


41F0 


9A4S 


=00838C 


0000 


6A24 




0000 


6308 




41E0 


9352 


=007C9E 


41E0 


934E 


=007C9E 


41F0 


977E 


=0080D2 


"6 30 


U001 


89D0 


5030 


9B7E 


=0084DC 


CA30 


01FF 




5030 


9B72 


=0084D8 


41F0 


94AE 


=007E18 


41E0 


93HC 


=0C7P2A 


E530 


8028 


=00699A 


4030 


21F8 




41E0 


92E0 


=007C5A 


7330 


0A54 




95E3 






C800 


1FFF 




E650 


81CA 


=006B52 


41E0 


930C 


=007C98 


41"0 


16 2A 




7330 


0A52 




95F3 






U300 


2E5C 





5632 


3AL 


R15,SEL.3 




5633 


3AL 


R14,HRBUF 




5534 


BAL 


R14,CDENS 




6635 


3A1 


R14,CWRITE 




6536 


LA 


R3,T8.1D 




6637 


STH 


R3,DEVINT+2 




6638 


LHI 


33,PS93 




6539 


EPSR 


R14,R3 




6640 


LHI 


R0,X"1FFF' 




6641 


LA 


R5,T8.E000 




5642 


BAL 


R14 f CG0 




5543 


BAL 


R15,TIHER 




6644 


LHL 


R3,PSW2 




6645 


EPSR 


R14,R3 




5646 


B 


T1R09 




6647 T8. 


1D EQU 


* 




6648 


LHL 


R3,PSW2 




6649 


EPSR 


R14,P3 




6650 


L 


R1,RSAVE+4 




6651 


L 


R2,RSAVE+8 




6652 


BAL 


R15,SELCHK 




6653 


BAL 


R15,SELEND 




6554 


BAL 


R15,STA?CHK 




6655 


NHI 


R3,X"20" 




6656 


BZ 


T8.2 




6657 


BAL 


R14,CSKBF 




6658 * LET'S SEE IF 


READ OVERRUN CAN SET 


6659 T8.: 


2 BAL 


R15,L00P?0P 




6560 


DAC 


T8.4 




6661 


DAC 


TST8.END 




6662 


BAL 


R14,CST0P 




6663 


BAL 


R14,CST0P 




6664 


BAL 


R15,REWKT 




6665 


LA 


R3,READBUF 




6665 


STA 


R3,RDBUF 




5667 


AKI 


»3,X'1FF' 




6668 


STA 


R3,ENDBTJF 




6669 


BAL 


R15,CLRBUF 


( 


6670 


BAL 


R14,REBUF 


( 


6671 


LA 


R3.T8.2A 




6672 


STH 


R3,DEVINT+2 


1 


6673 


BAL 


R14,CREAD 


1 


5674 


LHL 


33,PSW3 


i. 


6675 


EPSR 


R14,R3 




6676 


LHI 


RO,X' 1FFF' 


] 


6677 


LA 


R5,T8.E0C1 




6578 


3AL 


R14,CG0READ 


( 


6679 


BAL 


R15,TI>"EP 


1 


5680 


L"-?L 


?3,?SW2 


( 


5631 


EPSR 


R14,F3 


l 


5682 * 






e 


6533 


Q 


T1R10 




6634 * 









GO SET UP WRITE BUFFER 

GSET UP SELCH WRITE ADDRESSES 

DENSITY COMMAND 

PUT INF. INTO iJRITE MODE 

LOAD INTS. LOC 

AND STORE 

ENABLE P50CES30 D 

INTERRUPTS 

LOAD COUNTER 

LONG RECORD WRITES 

GIVE SELCH THE GO 

WAIT FOR SELCH TO FINISH 

LOAD PSW TO DISABLE 

PROC. INTR. 

TIttED OUT DURING SELCH *** WRITE 

DISABLE PROCESSOR 

INTERRUPTS 

RESTORE R1 

RESTORE R2 

CHECK SELCH STA? T TS 

CHECK ENDING ADDRESS 

CHECK INF. STATUS 

IS EOT SET 

REWIND "*AG TAPE TO FILE KARK 



STOP SELCH 

REMIND NAG TAPE FIRS" 11 

LOAD ADDRESS OF "SAD BUFFER 

STORE IT 

ADD IN BUFFER SI'S 

AND STORE IT 

CLEAR OUT READ BUFFER 

GSET UP SELCH READ ADDRESSES 

LOAD INTRPT. ADD?. 

STORE IN HANDLE? 

PUT INF. IN READ MODE 

ENABLE PROCESSOR 

INTERRUPTS 

LOAD TIMER 

TIHED OUT ON SELCH ^EAD DOING 

GIVE SELCH THE ^C 

WAIT FOR SELCH "C END 

OTHERWISE DISA3LE 

PROC. INTERRUPTS 

SHORT RECORD READS 

OUTPUT MESSAGE 



*!^n6«320 
«^D66330 
MTD66340 
*TD65350 

""•D66360 
3^066370 
1^066380 

1TD66400 
, f'D66410 

N'"D66430 
NTD66440 
>JTD66450 
<?TD65460 
"■"066470 
M"'D65480 
»^D' : 6490 

i^Dessoo 

^065510 
MTD66520 
wn, D56530 
MTD66540 
>! ,r D66550 
MTD66560 
""'D66570 
«TD66580 
fTD66590 
>? m D66«00 
"7D66610 
« n, D66620 
w-^D66630 
KTD66640 
* m D66650 
>rD66660 
M^D56670 
* m T)666B0 
fTD66690 
^^66700 
WTD66710 
"TD65720 
M' n D56730 
H™D66" r 40 
■•TD66750 
"""065760 
"^1566770 
" :T 'D66780 
" m D56790 
«"D66800 

w'Deesio 

^066820 
YTD66830 
«' I 'D56840 
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TEST 8 





0000 


6 9 9 .». 




6685 


00699A 


7330 


Or. 5 2 




6636 


00699E 


35E3 






6687 


0069AO 


5810 


9F30 


=008954 


6688 


0069A4 


5820 


9F BO 


=008958 


6589 


0069A8 


41F0 


94CC 


=007E78 


6590 


0069AC 


41F0 


9552 


=007F02 


6691 


0069B0 


41E0 


9230 


=007EE4 


6692 


006934 


CU30 


0044 




5593 


0069B3 


213F 




=006906 


6694 


0069BA 


C830 


0044 




6695 


O0S9BE 


4030 


9A06 


=0083C8 


6696 


0069C2 


E650 


81A0 


=006P66 


6697 




0000 


69C6 




6698 


0069C6 


41E0 


29AE 




6699 


0069CA 


E6"0 


2A4C 




6700 


0069CE 


E6E0 


9BC4 


=008596 


6701 


0069D2 


4300 


98F6 


=0082CC 


6702 
6703 




0000 


69D6 




6704 


0059D6 


41E0 


92D0 


=007CAA 


6705 


0069DA 


D910 


9A6A 


=008448 


5706 


0069DE 


243F 






6707 


0069E0 


7430 


9A64 


=008448 


6708 


0069E4 


213D 




=0069FE 


6709 


0069E6 


E650 


819A 


=006F84 


6710 


0069EA 


41E0 


92BC 


=007CAA 


5711 


0069EE 


4 ISO 


3BCE 




6712 


0069F2 


E6F0 


D99A 


=004390 


6713 


0069F6 


E6E0 


9S9C 


=008596 


5714 


0069FA 


4300 


98CE 


=0082CC 


6715 
6716 
6717 
6718 


0069FE 


41F0 


9356 


=007D58 


6719 


006A02 


41E0 


9254 


=007C5A 


6720 


006A06 


41E0 


9218 


=007C22 


6721 


006A0A 


41E0 


91D6 


=007BE4 


6722 
5723 


006AOE 


C430 


0084 




5724 


! 006A12 


2139 




=006A24 


6725 


006A14 


C8 30 


00C4 




6726 


006A18 


4030 


99AC 


=0083C8 


6727 


006A1C 


E5 50 


8188 


=0C6°A8 


6728 


006A20 


4300 


FFA2 


=0069C6 


5729 
6730 
5731 
6732 




0000 


6A24 




5733 


006A24 


41F0 


9964 


=00838C 


6734 


006A28 


0000 


6A34 




6735 


006A2C 


0000 


6B08 




6736 


006A30 


41F0 


9324 


=007158 


6737 



T8.2A 



T8R02 



T8.2C 



T8B03 



EQU 


* 


LHL 


R3,PSW2 


EPSE 


R14,R3 


L 


?1,RSAVE+4 


L 


R2,RSAVE+8 


EAL 


R15,SELCHK 


BAL 


R15,SELEND 


BAL 


E14,SENSTA1 


NHI 


R3,X'44' 


BNZ 


T8.2C 


LHI 


R3,X'44' 


STH 


R3,STATGP 


LA 


R5,T8.E002 


EQU 


* 


BAL 


R14,T0ERP0PB 


LA 


R15,MESSAGE1 


LA 


R14,C0NTFSG 


B 


ERRORX 


EQU 


* 


BAL 


R14,CNOP0 


RH 


S1,SSSHW 


LIS 


S3, 15 


T3T 


R3,SNSHW 


BNZ 


T8.3 


LA 


R5,T8.E003 


BAL 


R14,CNOP0 


BAL 


R14,T2ERR0RA 


LA 


R15,T2ERKSG0 


LA 


R14,C0NT*SG 


B 


ERRORX 



DISABLE PROC. 

INTERRUPTS 

RESTORE R1 

RESTORE R2 

CHECK SELCH STATUS 

CHECK ENDING ADDRESS 

LOAD INTERFACE STATUS 

ZERO IN ON EXP. STATUS 

CONTINUE ON IF SET 

OTHERWISE LOAD ExP. 

AND STORE IT 

READ OVRN DID NOT SET "ERR" 

STATUS AND DRIVE 

SUSPECTED ERROR WITH CONTROLLER 



ADDRESS DS30 

LOAD STATUS HW 

LOAD OFFSET FOR TES''' 

TEST FOR READ OVERRUN SET 

CONTINUE TEST IF SET 

READ OVRNCDSB BIT 15) DID NOT SET 

GET DSBO 

DEVICE STATUS HALFWORD 

SUSPFCTED ERROR WITH CONTROLLER 



* LET'S EXERCISE FORMATTER OVERRUN THEN 

* 

TS.3 BAL R15,IT.B1 INIT DRIVE FIRST 

BAL R14,CREAD PUT INF. IN READ BODE 

BAL R14,SENSTA3 WAIT FOR NON BUSY 

BAL R14,SENSTA1 WAIT FOR NO MOTION 

HAPPEN TOO 

OTHERWISE ONLY ERR WILL SET 
BNZ T8.4 IF EQUAL CONTINUE 

LHI R3,X'C4" OTHERWISE LOAD EXP STATUS 

STH R3.STATGD AND STORE IT 

LA R5,T8.F004 FORMATTER OVRN DID NOT SET "TFPR" 

B T8R02 DRIVE AND STATUS' 



FORMATTER OVERRUN SHOULD 
NHI R3,X'84' 



* LET'S EXERCISE WRITE UNDERFLOW NOW 



T3.4 EQU * 

BAL R15,LOOPT0P 

DAC T8.5 

DAC TST8.END 

BAL R15,IT.B1 



IN'IT DRIVE FIRS" 



VTD66850 
MTD66860 
"*TD66870 

MTD66890 
MTD66900 
MTD66<110 
1^056920 

"■"Deegso 

M^D66940 

"•"066960 
fT , D66970 
1TD66980 
MT'D66990 
"»TD67000 
MTD67010 
MTD67020 
MTD67030 
MTD67040 
MTD67050 
M T D67060 
M"'D67070 
^^D670B0 
HTD67090 
M m D67100 
M T D67110 
M' P D67120 
MTD6'M30 
M' T, D67140 
M T D67150 
"■^D67160 
M"'D67170 
w^D67180 
MTD67190 

^TT)«7200 

MTD67210 
M""D67220 

M'"D67230 
•""'D67240 
TTD67250 
1TD67260 
MTD67'>70 
M'"D67280 
MTD67290 
MT-D6730C 
WTD67310 
M rp D67320 
M'"D67330 
•»i , D67340 
*' T, D67350 
sf^D«7 360 
M m r)67370 
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TEST 3 



006A.34 


2454 






6738 






LIS 


55,4 


006535 


41E0 


9198 


=007ED2 


6739 






BAL 


R14,CDENS 


005A3A 


41E0 


9242 


=007C80 


6740 






BAL 


R14.CWEITE 


006A3E 


9814 






6741 


T8.4C 


WHF 


R1 ,R4 


006A40 


27-2 






6742 






SIS 


R c .,2 


006A42 


2184 




=006A4A 


6743 






BLS 


T8.4B 


006 A 4 4 


41 KO 


91 DA 


=007C22 


6744 






BAL 


R14,SENSTA3 


006A48 


2205 




=006A3E 


6745 






3S 


T8.4C 


005A4A 


41E0 


9196 


=007EE4 


6746 


T8.4B 


BAL 


R14,SEKSTA1 


006A4E 


9814 






6747 






WHE 


R1,R4 


006A50 


41E0 


9190 


=007EE4 


6748 






BAL 


R14,SENSTA1 


006A54 


C430 


0044 




6749 






NKI 


R3,X'44" 


*005A58 


2139 




=006? 6 A 


6750 






BNZ 


T8.4E 


006A5A 


C830 


0054 




6751 






LHI 


R3,X'S4' 


006A5E 


4030 


9966 


=0083C8 


5752 






STH 


R3,STATGD 


00SA62 


E6 50 


816E 


=006ED4 


6753 






LA 


R5,T8.F005 


006A66 


4300 


FF5C 


=0069C6 


6754 






B 


T8R02 










6755 


* 


LET'S 


CHECK 


SNS HW TOO! 




0000 


6A5A 




5755 


TE 


1.4E 


FQ'J 


* 


006A6A 


41E0 


923C 


=007CAS 


6757 






BAL 


R14,CNCP0 


006A6E 


D910 


99D6 


=008448 


5758 






RH 


R1,SNSHK 


006A72 


243D 






6759 






LIS 


S3, 13 


006A74 


7430 


99D0 


=008448 


6760 






T3T 


R3,SNSKS 


006A78 


4230 


98D2 


=00834E 


6761 






BNZ 


PASS 


006A7C 


S650 


8178 


=006EF8 


6762 






LA 


R5,T8.E006 


006S80 


4300 


FF56 


=0069FA 


6763 

6764 


* 




B 


T8R03 










6765 


* 


LET'S 


CHECK 


EVEN-ODD BYTE STATUS 










6766 


* 








006A84 


41F0 


9904 


=00838C 


6767 


T8 


..5 


BAL 


R15,L00PT0P 


006A88 


0000 


6AC8 




6768 






DAC 


T8.6 


006A8C 


0000 


6308 




6769 






DAC 


TST8.END 


006».90 


41F0 


92C4 


=007D58 


6770 






BAL 


R15,IT.B1 


006A94 


2455 






6771 






LIS 


R5,5 


006A96 


41 EO 


924E 


=007CE8 


6772 






BAL 


R14,CWR0DBY 


006 A9 A 


41E0 


91E2 


=007C80 


6773 






BAL 


R14,CWRITE 


006A9E 


9814 






6774 


T8 


.5A 


KHR 


R1,R4 


006AA0 


2752 






6775 






SIS 


R5,2 


006AA2 


2184 




=006AAA 


6776 






BLS 


T8.5C 


00SAA4 


41E0 


917A 


=007C22 


6777 






3AL 


R14,SENSTA3 


006AA8 


2205 




=006A9F 


6778 






BS 


T8.5A 


006AAA 


41E0 


9136 


=007BF4 


6779 


T8 


.5C 


BAL 


R14,SENSTA1 










6780 


* 


ODD BYTE SHOULD BF SET NOW 


006AAF 


41E0 


91F8 


=007CAA 


6781 






BAL 


R14,CN0P0 


006AB2 


0910 


9992 


=008443 


5782 






PH 


R1,SNSHV 


006AB6 


243C 






6783 






LIS 


F3,12 


006A38 


7430 


998C 


=008448 


6784 






TBT 


F3,SSSHW 


006ABC 


4230 


98SE 


=00834E 


6785 






BNZ 


PASS 


006ACO 


S650 


815E 


=006C22 


5785 






LA 


P5,T8.E007 










6787 


* 


DEVICE 


; STATUS HALF-'OED 


006AC4 


4300 


FF22 


=0069FA 


6788 






E 


T8R03 










6789 


* 


LET'S 


CHECK 


ODD-BYTE STATUS RESET 


005AC8 


41F0 


98C0 


=00638C 


6790 


T8 


.6 


BAL 


315,LOOF70P 



LOAD BYTE COUNT 

DENSITY C0y»AND 

PUT INF. IN tfSITF YODE 

OUTPUT BYTE 

DECREMENT COUNT 

BRANCH OUT IF DONE 

CHECV STATUS 

AND OUTPUT SOHE "ORE 

CHECK STATUS 

WRITE ONE *ORE BYTE 

CHECK STATUS 

ZERO IN ON TERR BIT 

CONTINUE ON IF EYP. 

LOAD EXP. STATUS 

STORE IT 

WRITE UNDERFLOW DID NOT SET "TERP" 



ADDRESS DS30 

LOAD DSBC 

LOAD OFFSET FOR TEST 

TEST FOR WRITE UNDERFLOW 

CONTINUE TEST IF SET 

WRITE UNDEPFL (DSB BIT 13) DIDNOT 



NEXT SEQUENCE 

INIT DRIVE FIRST 

LOAD ODD BYTE COUNT 

ISSUF A W?T ODD BYTE COWFANP 

PUT INF. INTO WRITE 

OUTPUT DATA 

DECREMENT COUNT 

BRANCH OUT IF DONE 

CHECX FOR 3USY 

OUTPUT REST 

CHECK FOP NKTN 

ADDRESS DS30 

LOAD DS30 

LOAD OFFSET FOR TEST 

TEST FOR ODD 3YTF SFT 

CONTINUE TEST IF SET 

ODD-EYTF STATUSCDSP BIT 12) DID x :c _ 



*' T "D67380 
*f'D67390 
y-"D67400 
T^D6" 7 410 
T n D67420 
>! T D57430 
MT06744O 

»?TOi57Uf;0 
»r^D67470 
»Ti>S7l{gO 
HTD67490 
WTD67500 
f^D67510 
"TD67520 
"""^67530 
1' T 'D67540 
* T D67550 
*' T, D67S60 
NTD67570 
^"^067580 
"TD67590 
fTD67600 
>i' r D67610 
»I ! T>D6''620 
?'' r D67630 
W"D67640 
*TT)67550 
M"'D676«0 
Y" , D67670 
f^D67680 
>|Tr|F7590 
Y' P D67700 
"•""DSTTIO 
r ,,, D67720 

WT-D67740 
MTD67750 
MTD677go 

^TD67770 
v p D67780 
wt'D67790 
1 »' P D67800 
*"'D67810 
^^067820 
""'D67S30 
V ' I "D67840 
YTD67850 
Y T D57860 
"'"D67870 
"< T D67880 
«TD57890 

VTI67Q0P 



HI3H PERF0RHANCE(6250)r!A3TAPE DIAGNOSTIC 06-263R01 *95A 1 3 PAGE 150 03:34:07 12/23/S3 
TEST 8 



006ACC 
006AD0 
006AD4 
006AD8 
006ADA 
006ADE 
006AE0 
00 6AE2 
006AE4 
006AE8 
006AEA 

006AEE 
006AF2 
005AFS 
006AF8 
006AFC 
006EOO 
005B04 

006B08 
006BOC 
006B10 
006B14 
006B18 
00PB1C 

006B20 
006B28 
006B30 
006B38 
006B3C 
006F3E 
006B46 
006B4E 
006B50 
006B52 
006B5A 
006B62 
006B64 
006B66 
006B6E 
006B75 
006B7E 
006B82 
006B84 
006E8C 
006B94 
OC6B9C 
006BA4 
006BAS 
006BA8 
006EB0 



0000 6308 

0000 6B08 

41F0 9280 =007D58 

2454 

41E0 91A2 =007C80 

9814 

2752 

2184 =006?EA 

41E0 913A =007C22 

2205 =006ADE 

41E0 9CF6 =007EE4 

41E0 91B8 =007CAA 

0910 9952 =008448 

243C 

7430 994C =008448 

4330 984E =00834F 

E650 8148 =0C6C4C 

4300 FEE2 =0069FA 



41F0 


2836 






4800 


98FA 


=00840B 


C300 


OOOE 






4330 


133C 






41F0 


923C 


=007D58 


4300 


FD82 


=0068A2 


5345 


4C43 


4820 


5452 


41UE 


5346 


4552 


5320 


4E4F 


5420 


5345 


4C45 


4354 


4544 






0D0A 








UC4F 


4E47 


2052 


4543 


4F52 


4420 


5752 


4954 


4553 








ODOA 








5348 


4F52 


5420 


5245 


434F 


5244 


2052 


4541 


4453 








ODOA 








5245 


4144 


204F 


5652 


4E20 


4449 


4420 


4E4F 


5420 


5345 


5420 


2254 


4552 


5222 






ODOA 








5245 


4144 


204F 


5652 


4E20 


2844 


5342 


2042 


4954 


2031 


3529 


2044 


4944 


204E 


4F54 


2053 


4554 








ODOA 








464F 


524D 


4154 


5445 


522C 


4F56 


C 24F. 


2C44 



5791 
5 79 2 
5793 
5794 
6795 
6795 
6797 
5793 
5799 
6800 
6801 
6802 
6803 
5304 
6305 
6305 
6807 
6808 
6809 
6810 
6811 
6812 
6813 
6814 
6815 
6816 
6817 
6818 



T8.6A 



T8.6C 



DAC 


TST8.END 


DAC 


TST8.END 


BAL 


R15,IT.B1 


LIS 


R5,4 


PAL 


R14,CWRITE 


WHR 


?1,R4 


SIS 


55,2 


3LS 


T8.6C 


BAL 


R14,SENSTA3 


BS 


78. 6 A 


EAL 


R14,SENSTA1 


E STATUS SHOULD B 


BAL 


H14,CN0PC 


RH 


R1,SNSHW 


LIS 


R3, 12 


TBT 


R3,SNSHW 


BZ 


PASS 


LA 


R5,T8.F008 


D 


T8S03 


BAL 


R15,TST.DEI 


LH 


R0,DPI¥SAV1 


THI 


RO,X'E' 


BZ 


TSTEND 


BAL 


R15,IT.B1 


p 


T3.1B 



NOSEL 



DC 



INIT FIRST 
LOAD EVEN COUNT 
PUT INTO WRITE MODE 
OUTPUT DATA 
DSCPEHFNT COUNT 
BRANCH OUT IF ZERO 
CHECK FOR BUSY 
OUTPUT MORE DATA 
CHECK STATUS FOR NW'N 
RESET NOW 

ADDRESS DSBO 

READ IN DSBO 

LOAD OFFSET FOR TEST 

TEST FOR EVEN BYTE 

END TEST IF RESET 

ODD-BYTE STATUS (DSB BIT 12) NO "ESFT 

DEVICE STATUS HALFWORD 

CHECK FOR OTHER DRIVES 

CHECK FLAG 

IS IT SET 

NO, END TES^ 

INIT TEST FOR OTHER DRIVES 



C'SELCH TRANSFERS NOT SELECTED' ,X'ODOA • 



6819 T8.E000 DC C'LONG RECORD WRITES' ,X ' ODOA ' 



6820 T8.E001 DC C'SHORT RECORD READS ' ,X ' ODOA • 



6821 T8.F002 DC C'READ OVRN DID NOT SET "TERR"' ,X* ODOA ' 



6622 T8.E003 DC 



5823 T8.E004 DC 



C'READ OVRN (DSB BIT 15) DID NOT SET',X'ODOA' 



C'FOEKATTER OVRN DID NOT SET "TERR" £ "ERF" ' ,X ' ODO A ' 



XTD67910 
yTD6702C 

MTD57930 
f?D67940 
ifTD*7950 

*^D57980 
>fTD6'7990 
»f^D63000 

i^Deeoio 

NTD6S020 
KTD68030 
f?D68040 
VTD68050 
fTD58060 
1TD68070 
«^D68080 
M^n6R090 
"""DPSIOO 
1TD68110 
H^D68120 
MTD68130 
HTD68140 
y'nssi^O 
•* ""068160 
H"D68170 
1'"D68180 



T.TTitS-WO 



»PD63?00 



1TD68210 



MTT)68?20 



MTD68?30 



HI3H PERFORt<AHCE(6250m.GTAPE DIAGNOSTIC 0S-263EO1S95A13 FAC-E 151 08:34:07 12/23/83 
TEST 8 



006BB8 


4944 


204E 


4F54 


2053 


006BC0 


4554 


2022 


5445 


5252 


006BC8 


2220 


2620 


2245 


5252 


006BD0 


2220 








006BD2 


ODOA 








006BD4 


5752 


4954 


4520 


554E 


006BDC 


4445 


5246 


4C4F 


5720 


0063E4 


4445 


4420 


4E4F 


5420 


OOSBSC 


5345 


5420 


22 c >4 


4552 


006BF4 


5222 








006BF6 


ODOA 








0063F8 


5752 


4954 


4520 


554E 


006COO 


4445 


5246 


4C4F 


5720 


005C08 


2844 


5342 


2042 


4954 


00SC10 


2031 


3329 


2044 


4944 


005C18 


204E 


4F54 


2053 


4554 


005C20 


OOOA 








006C22 


4F44 


442D 


4259 


5445 


006C2A 


2053 


5441 


5455 


5320 


006C32 


28 44 


5342 


2042 


4954 


006C3A 


20 31 


3229 


2044 


4944 


006C42 


204E 


4F54 


2053 


4554 


006C4A 


ODOA 








006C4C 


4F44 


4420 


4259 


5445 


006C54 


2053 


5441 


5455 


5320 


006C5C 


2844 


5342 


2042 


4954 


006C64 


2031 


3229 


2044 


4944 


006C6C 


204E 


4F54 


2052 


4553 


006C74 


4554 








005C76 


ODOA 









6824 T8.E005 DC C'WETT" UNDERFLOW DID NOT SET "TERR" ', X ' ODOA ' YTr)63:>uo 



5=25 T8.E006 DC C'WSITE UNDERFLOW (DSB BIT 13) DID NOT SFT*,X'ODOA' •*' P D68?50 



6825 T8.E007 DC C'ODD-BYTE STATUS (DSB BIT 12) DID KOT SET'/X'ODOA' WTD68260 



6827 T8.E008 DC C'ODD BYTE STATUS (DSB EIT 12) DID SOT RESET ' ,X * ODOA • ^5^68270 



HIGH PERF0E!!ANCE(6250>fcAGTAPE DIAGNOSTIC 6-263EC 1 *95A 1 3 PAGE 152 08:34:07 12/23/83 

TEST 9 SAPLESS MODE TEST 



6829 
6830 
5331 
6832 
6 8 33 
6834 
5335 
6836 
6 9 37 
6838 
6839 
5 8 tO 
5841 
5842 
6843 
6344 
5845 
6346 
6847 



****** 



***************************! 

rEST 9 GAPLESS MODE TEST 



************* 



* * * * * 



* PURPOSE: TO ATTEMPT TO WHITE AND READ GAPLESS TAPS 
* 

* TEST SPEC: THE TEST FIRST DOES A TOP OF COPE SEARCH 

* TO CALCULATE HOW BIG A GAPLESS TAPE TO 

* PRODUCE. IT THEN OUTPUTS A GAPLESS TAPE, 

* REWINDS THE TAPE AND THFNS TRIES TO READ 

* THE TAPE. THE TEST VERIFIES THE OPERATION 

* KITH DATA COMPARISIONS AND STATUS CHECKS. 
* 

* ERRORS: 

* 

* OPTIONS: 

* 'TRKODE* MUST = 1 

* DRIVE AND SELCH AND RECORDS. 



**********************> 



******************************** 



MTD68290 
MTD58300 
«"'!)'>(? 310 
MTD68320 
M' 7 'D68330 
MTD6«340 
MTD6P 350 

M'"D68370 
M^DfiB'SO 
"TD68390 
MTD68400 
M' 1 'D68410 
fTD68420 
MTD68430 
MTD6P440 
I»TD68450 
MTD58460 
MTD68470 





0000 


6C73 




6849 


TES 


:T9 


ZQ-J 


* 


006C78 


41F0 


90CE 


=007D4A 


6850 






BAL 


R15,TESTINIT 




0000 


6C7C 




6851 


T9. 


1 


EQU 


* 


005C7C 


41F0 


8324 


=006FA4 


6852 






BAL 


R15,SELADS 


006C80 


4300 


8368 


=006FEC 


5853 
5354 


* 




B 


BEHCHK 




0000 


6C84 




6855 


TST9.1 


EQU 


+ 


006C84 


41F0 


F626 


=0062AE 


6856 






BAL 


R15,INTRSET 


006C88 


41F0 


9418 


=0080A4 


6857 






SAL 


R15,WRTENB 


006C8C 


7390 


2108 




5858 






LHL 


R9,SELCH+$VALU1 


006C90 


9191 






6859 






SLHLS 


R9,1 


006C92 


CA90 


OODO 




5860 






AHI 


Rg^'DO' 










6861 


*SE 


:t up 


WPITE 


BUFFERS 


006C96 


7360 


976C 


=008406 


6862 






LHL 


R6,RECSAV 


006C9A 


C560 


0001 




6863 






CLHI 


R6,1 


*006C9E 


2138 




=006CAE 


6864 






BNE 


T9.1AA 


006CA0 


266 1 






6865 






AIS 


R6,1 


006CA2 


4060 


9760 


=008406 


6866 






STH 


R6,RFCSAV 


006CA6 


E650 


8420 


=007CCA 


6867 






LA 


R5,T9.SSG2 


006CA? 


41F0 


1802 




5868 






BAL 


R15, PRINT 


006CAS 


C460 


FFFF 




6869 


T9. 


1AA 


NHI 


Re^'FFFE* 


006CB2 


41E0 


8F1C 


=007ED2 


6870 






BAL 


R14,CDENS 


006CB6 


41E0 


D3D8 


=004892 


6871 


T9. 


1A 


SAL 


P14,CERGAP 


005CBA 


41E0 


8F26 


=007PF4 


6872 






BAL 


S14,SFNSTA1 


006CBE 


27 61 






6S73 






SIS 


R6,1 


*006CC0 


2035 




=006CB6 


5874 






PNZ 


T9.1A 


006CC2 


4360 


9740 


=008406 


6875 






L 1 "' 


R6,RECSAV 


006CC6 


73 30 


9766 


=008430 


6876 






LHL 


R3,TESTPAT+10 


006CCA 


C350 


1FFE 




6877 






LHI 


R5,X'1FFE" 



INIT TESTING 

IS SELCH SELECTED? 
CHECK TOP OF MEMORY 



SET UP INTERRUPT TABLES 
CHECK FOR WRITES ENABLED 
LOAD SELCH ADDRESS 
DOUBLE IT 
AND ADD FOR INT. TABLE LOC 

LOAD GAPLESS BLOCK SIZE 

CHECK FOR RECORD 1 - NOT VALIR01 



INPUT MUST BE OK 

INCREMENT IT TO 2 

R01 

RECORDS TRANSFERRED = 2 

PRINT IT OUT 

FORCE TO AN EVEN COUNT 

GIVE DENSITY COMMAND 

ISSUE ERASE GAP COMMAND 

SENSE STATUS 

DECREMENT RECORD COUNT 

UNTIL ZERO 

RESTORE RECORD COUN'" 

LOAD FIRST TEST PATTFRN 

## LOAD ""RANSFE" COUNT 



R01 
R01 

P. 0*1 
R01 



M" , D58490 
HTr)<8^00 
MTD68510 
M' T, D68520 
«fTT)68530 
MTD68540 

M^oees^o 
M^oeeseo 

M'"D63^70 
M^DeSSBO 
W T "D58590 
M^D68600 
MTD68M0 
WTDMTD68620 
M' 1, D68630 
M^D58640 
MTn,58650 
MTD63«60 
MTD686-'0 
MTD68680 
M T D68«90 
M^D68700 
"■"D68710 
MTD68720 
M'"D58730 
"f T D68740 
MT W ' T 'D68750 
"""D6«760 
MT>68770 



HI3H PERFOPMAh"CE(6250)KAGTAPE DIAGNOSTIC 5-263R01 T 95A1 3 PAGE 153 08:34:07 12/23/83 

T^ST 9 GAPLESS MODE TFST 



006CCE 
006CDO 
006CD4 
005CD8 
006CDC 
006CE0 

006CE4 
005CE8 
006CEC 
006CF0 
006CF4 
006CF6 
006CFA 
006CFE 
006D02 
006DO6 
006D0A 
006DOE 
005D14 
006D18 
006D1C 
006D20 
006D24 
006D23 
006D2C 
006D30 

006D32 
006D36 
006D3A 
006D3E 
006D42 
006D46 
006D4A 
006D4E 
006D52 
006D56 
006D58 
006D5C 



006D60 
006D64 
006D66 
006D6A 
006D6S 
006D72 
005D76 
006D78 
0O6D7C 
006D80 
00SD84 



2470 

41F0 3308 =006FDC 

7330 975A =008432 

C35Q 2FFE 

C870 2000 

41F0 32F8 =006FDC 



E630 


9CE8 


=0089D0 


5030 


97E8 


=0084D4 


CA30 


1FFE 




503C 


97E4 


=0084D8 


2632 






5030 


97EE 


=0084E8 


CA30 


2FFE 




5030 


97SA 


=0084EC 


D330 


96D9 


=0083DF 


C63C 


OOCO 




41E0 


8FE0 


=007CEE 


41F0 


967A 


=00838C 


0000 


6DEC 




0000 


7092 




4120 


3F7E 


=007C9E 


41E0 


8F7A 


=007C9E 


41F0 


93AA 


=0080D2 


41E0 


3F54 


=007C80 


73 30 


0A54 




95E3 






0000 


6D32 




41S0 


8F68 


=007C9E 


41E0 


8F64 


=007C9E 


41E0 


8FBC 


=007CFA 


E630 


801E 


=006D60 


4039 


0000 




41E0 


8F3C 


=007C86 


C800 


OFFF 




41F0 


16 2S 




7330 


0A52 




95E3 






^650 


3388 


=0070E4 


4300 


2F06 




0000 


5D50 




7330 


0A54 




95F2 






5310 


93EA 


=008954 


5820 


93EA 


=008958 


41 EO 


8F2C 


=007C9E 


41E0 


8F28 


=007C9E 


2761 






4330 


8 02 A 


=006DA6 


41F0 


8F94 


=007D14 


E6 30 


eooc 


=006D90 


40.-3 


0000 





6378 


LIS 


P7,0 


6879 


BAL 


R15,SEL.2 


5330 


LHL 


R3,TESTPAT+12 


6881 


LHI 


R5,X'2FFE' 


6882 


LHI 


R7,X'2000- 


6883 


BAL 


R15,SFL.? 


6884 *SE 


T UP SELCH 


PARAMETERS 


6885 


LA 


53,WRTBUF 


6886 


STA 


R3.VBUF 


6887 


AHI 


R3,X' 1FFE" 


6888 


STA 


33,ENDBUF 


6889 


AIS 


S3, 2 


6890 


STA 


R3,W3UF2 


6891 


AHI 


%3,X'2F?Z' 


6392 


STA 


R3,ENDBUF2 


6893 


LB 


R3,GAPLSS 


6894 


CHI 


R3,X'C0" 


6895 


BAL 


P14,CGAPLS 


6896 


BAL 


R15,L00PT0P 


6897 


DAC 


TST9.5 


6898 


DAC 


TST9.END 


5899 


EAL 


R14,CST0P 


6900 


BAL 


R14,CST0P 


6901 


BAL 


R15,REWMT 


6902 


BAL 


R14,CWHITE 


6903 


LHL 


R3,PSW3 


6904 


EPSE 


R14,R3 


6905 TST9.2A EQU 


* 


6906 


BAL 


R14.CST0P 


6907 


EAL 


R14,CST0P 


6903 


BAL 


R14,KRBUF 


6909 


LA 


R3,TST9.3 


6910 


STH 


E3,0(R9) 


6911 


BAL 


R14,CG0 


5912 TST 


9.WT LHI 


"R0,X'FFF' 


6913 


BAL 


R15, TIMER 


6914 


LHL 


R3,PSW2 


6915 


EPS8 


R14,P3 


6916 


LA 


R5,?9.EQ00 


6917 


3 


T1R09 


591? * 






6919 TST' 


3.3 EQ'J 


* 


5920 


LHL 


53,?SH3 


6921 


EPSR 


R14,P3 


6922 


I 


R1,RSAVE+4 


6923 


L 


R2,RSAVE+8 


6924 


3AL 


P14,CST0P 


6925 


BAL 


ET»,C3T0F 


6925 


SIS 


R6,1 


6927 


3Z 


TST9.4 


6923 


BAL 


R14,W3BUF2 


6929 


LA 


E3,TST9.2AA 


6930 


STH 


R3,0(R9) 



ZERO OUT COUNTER FOP SETUP 

GO AND SET UP SELCH BUFFER 

LOAD 2ND PATTERN 

LOAD 2ND COUNT 

PICK UP WHERE PREVIOUS FINISH 

SETUP 2ND WRITE BUFFER 

LOAD ADDR. OF 1ST BUFFER 

STORE IT 

CALCULATE ENDING ADDRESS 

AND STORE IT 

FIND 2ND 3UF START LOC. 

AND STORE IT 

CALCULATE ITS ENDING ADDR 

AND STORE IT 

LOAD GAPLESS COHHAND 

ALSO INCLUDE DISAEN COWHAND 

OUTPUT GAPLESS+DENSITY COHH.ATD 

NEXT SEQUENCE 
PROCEED LISIT 
STOP SELCH FIRST OFF 

REWIND T APE 

PUT INTERFACE INTO WRITE BODF 

SET PSW FOR P50C. 

INTERRUPTS 

INIT SELCH 
FOR SURE 

LOAD ADDRESS FOR INIT. 

STORE IT 

OTHEFWISE GIVE SELCH THE GO 

LOAD TI«ER COUNT 

AND WAIT FOR SELCH "O END 

OTHERWISE RESET PSW 

TO NO-INT. AND 

GAPLESS WRITE 



RESET PSW FOR INT. 
REGISTERS TO SE™ F 
RESTORE R1 
RESTORE R? 
INIT SELCH 
FOP SURE 
DECREYFNT COUNT 
BRANCH OUT IF ZERO 

LOAD ADDR FOR IN 1 ". 
AND STORE IT 



AND 



"•"D68780 
'"'"1368790 
M' r D68 00 

i m D68»io 
f"D68330 

f m D68840 
MTD68350 
* m D58860 
"TD68870 
w m D6PR80 
""•"D58890 
!?TD68900 
» m D68910 
V"D68920 
* m D68930 
XTD68940 

"TD Jf"D63950 

^•"068960 

1 m D68970 
f T D68980 
if") 68990 
TH559000 
"TD69010 
fl m T)69020 
"•"069030 
MTD69040 
-(•"069050 
V"D69060 
YTD69070 
MTD69080 
MT359090 
f m D69100 

MT-T)69110 

^•"D69120 
"TD69130 
YTD69140 
* m D69150 
>» m D69160 
>TD69170 
f"D69180 
w m D69190 
N m D69200 
»» m D^9210 
MTD69220 
* m D69230 
M m D69240 
*'"D69250 
MTD69260 
MTD69270 
*TD69280 
*™")69290 
MTD69'00 
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TEST 


9 G A P L E S r ** 1 


'' T TpCf 


006388 


41E0 


SEE A 


=007C86 


005D8C 


4300 


ET3A 


=006P4A 




0000 


6D90 




006090 


7330 


0A54 




006D94 


95E3 






006D96 


5810 


933A 


=008954 


006D9A 


5820 


933A 


=008958 


006D9E 


2761 






006DA0 


2333 




=006DA6 


006DA2 


4300 


FF8C 


=006 D32 




0000 


SDA6 




006DA6 


7330 


0A52 




006DAA 


95E3 






006DAC 


E6 50 


333" 


=0070E4 


006DB0 


41F0 


90C4 


=007F78 


006DB4 


41E0 


8F24 


=007CDC 


006DB8 


41E0 


8F88 


=007B44 


006DBC 


3433 






006DBE 


053D 






006CC0 


5030 


971C 


=0084EO 


006DC4 


41E0 


8ED« 


=007C9F 


006DC8 


41E0 


8E10 


=007BDC 


006DCC 


5SA0 


9710 


=0O84F0 


006DD0 


55S0 


9704 


=0084D8 


0C6DD4 


4330 


9576 


=00834F 


006DD8 


55A0 


9710 


=008UEC 


006DDC 


4 330 


956E 


=00834E 


006DE0 


5800 


9708 


=0084EC 


006DE4 


5000 


96F0 


=0084D8 


006EE8 


4300 


9138 


=007F24 



006DEC 
006DFO 
006DF4 
006DF8 
006DFC 
006E00 
006E04 
0C6E06 
006EOA 
006EOE 
006E12 
006E14 
006E1A 
006E1E 
006E22 
006E26 
006E2A 
006E2E 
006F32 



41F0 


959C 


=00838C 


0000 


7092 




0000 


7092 




41E0 


8EA2 


=007C9E 


41E0 


8E9E 


=007C9F 


7330 


CA54 




95E3 






41E0 


8DDA 


=007EE4 


41F0 


9304 


=008112 


7360 


95F4 


=008406 


9061 






£550 


40C1 


89D0 


5050 


96BS 


=0C84DC 


CA50 


4FFE 




50 50 


96B2 


=0084D8 


E630 


8072 


=P06E9C 


4039 


0000 




E630 


SODA 


=006FOC 


4030 


003E 





6931 




EAL 


?14,CG0 


6932 




p 


TST9.KT 


6933 


* 






6934 


TST9.2AA 


EQ n 


* 


6935 




LHL 


53,PSW3 


5936 




EPSR 


R14,R3 


6937 




T 


R1,RSAVE+4 


5938 




L 


R2,RSAVF+8 


5939 




SIS 


R6,1 


6940 




BZ 


TST9.4 


6941 




3 


TST9.2A 


6942 


TST9.4 


EQU 


* 


5943 




LHL 


R3,PSV2 


6944 




EPSR 


R14,F3 


6945 




LA 


R5,T9.E000 


6946 




a AL 


R15,SELCHK 


6947 




BAL 


S14,CEXTD 


6948 




BAL 


R14,PEEND 


6949 




EXHR 


E3,R3 


6950 




OAR 


R3,R13 


6951 




STA 


R3,ST0PADE 


6952 




BAL 


R14,CST0P 


6953 




BAL 


R14,SENSTA 


6954 




LDA 


E10,ST0PADR 


6955 




CLA 


R10,ENDBUF 


6956 




3E 


PASS 


6957 




CLA 


R10,ENDBIIF2 


6958 




BE 


PASS 


6959 




T 


R0,EKDBUF2 


6960 




ST 


R0,ENDBUF 


6961 


T9R02 


3 


SELEND.1 


6962 


* 






6963 


+ 


LET'S 


TRY READING 


6964 


* 






6965 


TST9.5 


BAL 


R15,L0OPTOP 


5965 




DAC 


TST9.END 


6967 




DAC 


TST9.END 


6968 




BAL 


R14,CST0P 


5969 




EAL 


R14,CST0P 


6970 




LHL 


R3,PSW3 


6971 




EPSR 


R14,R3 


6 97 2 




BAL 


R14,SENSTA1 


6973 




BAL 


R15,STATCHK 


6974 




LHL 


R6,RECSAV 


6975 




SRHLS 


R6,1 


6975 




LA 


RS,READBUF 


6977 




STA 


R5,RDBUF 


6978 




A HI 


RSfX'UFFE" 


5979 




STA 


R5,ENDBUF 


6980 




LA 


R3,TST9.6 


6981 




STH 


R3,0(E9) 


6982 




LA 


R3,TST9.8 


6983 




STH 


R3,X'3E' 



OTHERWISE GIVE SELCH THE GO 
AND BRANCH TO TIMEOUT 



RESET PSW 

FOR USER REGISTER SET 

RESTORE F1 

RESTORE P2 

DECREMENT COUNT 

BRANCH OUT IF ZERO 

CONTINUE OUTPUT 



RESET PSM AND 


REGISTERS 


GAPLESS WRITE 


CHECK SELCH ENDING STAT 


SET EX.ADDR. BIT 


GET SELCH ENDING ADDRESSFS 


REARRANGE UPPER HALF 


AND OR IT WITH LOWER 


SAVE IT 


IHIT SELCH 


LOAD INF. STATUS 


RELOAD END ADDRESS 


COMPARE VITH 1ST END 


BRANCH TO READS IF GOOD 


COHPAPE WITH 2ND END 


BRANCH IF GOOD 


GET FINAL ENDING ADDRESS 

B 

OUTPUT ERR HESS»GE 



STOP SELCH FIRST 

STOP SELCH 

ENABLE PROC. INT. 

OR NOTHING WILL HAPPEN 

CHECK INTERFACE STATUS 

FIRST CHECK INTERFACE STAT 

LOAD BUFFER COUNT 

DIVIDE BY 2 

LOAD ADDR OF READ BUFFFP 

STORE IT FOR SELCH 

ADD IN COUNT FOR ENDING 

AND SAVE IT 

LOAD INT. LOC 

AND STORE IT 

LOAD ADDRESS FOR "N INT. 

»LSO STORE FOR NON-CONF. HE". I!" 



1TD69310 
*T)69?20 
M'"D69330 
MTr>6<HU0 
MTD69350 
1TD69360 

YTDfiQ^70 

MTT)G9 39 
MT69390 
fTD69400 
MTD69410 
M""D69420 
Ni'D69430 
1TD69440 
MTD69450 
1TD69460 
1TD69470 
MTD69480 
MTD69490 
«^D69500 

HToeg^io 

1TD69520 
HTD69530 
MTD69540 
¥^069550 
HTD69560 
M' T, D69570 
¥TD69 c; 80 
* 1TD69590 
MTD69600 

MTD69620 
¥TD6?«30 
¥' T, D69640 
¥TD69650 
¥"069660 
¥TD69670 
¥TD69680 
fTD69690 
WTD69700 
¥TD69710 
MTD69720 
WTD69730 
*01¥T-D69740 
TTD69750 
«^D69760 
«TT>69770 
*TD69780 

HTT)697C)0 

¥""069800 
WTi69810 
"TD69820 
"^069830 



HI3H PERFORMANCE(6250)NAGTAPE DIAGNOSTIC 06-263R01M95A13 PAGE 155 08:34:07 12/23/93 
TEST 9 GAPLFSS MODE TEST 



006E36 
006E33 
006E3C 
006E42 
006E46 
006E4A 
005 E4E 
006E52 
006E56 
*006E58 
006E5A 
006E5E 
006E62 
006E56 
006E6A 
006E6E 
006E72 
006E76 
006E7A 



006E7E 
006E82 
006E86 
006E8A 
006E8E 
006E92 
006E94 
006E98 



006E9C 
OO6EA0 
006EA2 
006EA6 
006EAA 
005EAE 
006EB2 
006EB6 
*006E38 
006FBA 
006EBE 
006ECO 
006EC4 
006FC8 
006ECC 



006ED0 

0C6ED4 



2430 






4030 


C040 




?870 


Q7FF 


FFFF 


41S0 


8S34 


=007C7A 


41E0 


8E30 


=007C7A 


41E0 


8D8E 


=007BDC 


C430 


0020 




4 2 30 


8020 


=006F76 


2771 






2027 




=006F,4A 


"800 


0034 




4000 


9556 


=0083C8 


E6 50 


8 2A0 


=007106 


41E0 


28AE 




E6F0 


2A4C 




E6E0 


9724 


=008596 


4300 


9456 


=0062CC 


41E0 


8D6A 


=007BF4 


41E0 


8DDC 


=007C5A 


0000 


6E7E 




41E0 


8EA8 


=0 07D2A 


41E0 


8E12 


=007C98 


C800 


OFFF 




41F0 


162A 




7330 


0A52 




95F3 






E650 


825E 


=007CF6 


4300 


2E8C 





0000 


6E9C 




7330 


0A54 




95E3 






5810 


9AAE 


=008954 


5820 


9AAE 


=008958 


4120 


8DF0 


=007C9E 


41E0 


8DEC 


=007C9E 


41E0 


8D26 


=C07BDC 


27<S1 






233C 




=006EDO 


58 30 


961 A 


=008408 


2632 






50 30 


9*18 


=1084PC 


C*30 


4FFE 




5030 


960C 


=0084D8 


4300 


FFAE 


= 006' r 7E 



7 3 30 0»52 
95F3 



6984 




LIS 


?3,0 


6985 




STH 


R3,X"40' 


6 98 5 




LI 


37,Y'7FFFFFF' 


6987 




BAL 


P14,CSKBE 


6988 




BAL 


R14,CSKBB 


6989 


T9.005 


BAL 


R14,SENSTA 


5990 




NHI 


R3,X'20' 


6991 




BNZ 


T9.50A 


6992 




SIS 


R7,1 


6 993 




BP 


T9.005 - 


6994 




LHI 


R0,X , 34' 


6995 




STH 


RO,STATGD 


6996 




LA 


R5,T9.E005 


5997 




EAL 


R1U,T0ERR0RB 


6998 




LA 


R15,HESSAGE1 


6999 




LA 


R14,C0NTMSG 


7000 




E 


ERROFX 


7001 


T9.50A 


BAL 


R14,SENSTA1 


7002 




BAL 


R14,CREAD 


7003 


* 






7004 


TST9.51 


EQU 


* 


7005 




BAL 


R14,FEBUF 


7006 




BAL 


R14,CG0READ 


7007 




LHI 


R0,X'FFF' 


7008 




BAL 


R15, TIMER 


7009 




LHL 


R3,PSW2 


7010 




EPSR 


R14,P3 


7011 




LA 


R5,T9.E002 


7012 




B 


T1R10 


7013 


* 






7014 


* 


COSE 


HERE OH READ I 


7015 


* 






7016 


TST9.6 


EQU 


* 


7017 




LHL 


R3,PSW3 


7013 




EPSR 


R14,R3 


7019 




L 


R1,ESAVE+4 


7020 




T, 


R2,RSAVE+8 


7021 




BAL 


R14,CST0P 


7022 




BAL 


R14,CST0P 


7023 




BAL 


R14,S'ENSTA 


7024 




SIS 


R6,1 


7025 




BZ 


TST9.61 


7026 




LDA 


R3,ENDBUF 


7027 




AIS 


R3,2 


7028 




STA 


F3,SDEUF 


7029 




A HI 


R3,X'4FFE" 


7030 




STA 


R3,ENDBUF 


7031 




B 


TST9.51 


7032 


* 






7 03 3 


* 


CONE 


HERE FOR ENDIN 


7034 


* 






7035 


T3T9.61 


LHL 


R3,PSW2 


7035 




FPSK 


R14,R3 



LOAD ZEROS 

AND ZERO OUT «M STA^. HOLD 

LOAD A TIMEOUT VALUE 

USE SKIP BACK RECORDS 

ONE BORE TO COVER ID FIELD 

SENSE STATUS 

CHECK FOR BOT 

OK •BOT' FOUND 

DECREMENT TIBER 

CONTINUE, UNLESS TIME OUT 

EXPECTED STATUS 

STORE I? 

IRG FOUND IN GAPLESS TAPE, 

DRIVE AND STATUS 

BODY MESSAGE ADDRESS 

SUSPECTED ERROR W CONTROLLER 

OUTPUT IT 

GET STATUS 

GIVE READ COMMAND 



WRITE START AND END ADDR TO SELCH 

GIVE SELCH THE GO 

LOAD TIMER 

WAIT FOR SELCH ^0 FINISH 

OTHERWISE RESET PSW 

FOR NC-INT. 

GAPLESS READ 

TIMED OUT DURING SELCH READ 



RESET PSV 

RESTORE R1 

RESTORE R2 

NO! INIT SELCH 

FOR SURE! 

LOAD INTERFACE STATUS 

DECREMENT COUNTER 

CONTINUE READING? 

LOAD ENDING ADDPESS 

INCREMENT BY 2 

AND STORE AS START LOC 

INCREMENT ENDING ADD D . 

AND STORE IT 

CONTINUE READING 



RESET PROCESSOR 
INTERRUPTS 



«fT069840 
« T D69fl50 
*T>S9860 
MTD69870 
M T D69880 

MTD69900 
MTD69910 
"C'D69920 
ifTD69°30 
M T D69940 
MTD69950 
f^D69960 
MTD69970 
MTD69980 
MTD69990 
MTD7Q000 
MTD70010 
M T D70020 
"T070030 
MTD70040 
"TD70050 
M 1 'D70060 
VTD70O70 
MTD70080 
MTD70090 
y~T)70100 
MTD70110 
MTD70120 
MTD70130 
MTD70140 
MTD70150 
MTD70160 
¥■"070170 
¥"•070180 
MTD70190 
XTDT0200 
M rp D70210 
MTD70220 
*TD70230 
*" , D' ? 0240 
MTD70?*0 
"TD7026C 
¥"")70270 
"TD70280 
MTD70290 

¥"•070300 
MTD70310 
M"- 1)70320 
VTD70330 
¥"•070340 

M""170360 



HIGH PERF0RMANCE(6250)MA:;TA?r 
TEST 9 GAPLESS KODF T^ST 



DIAGNOSTIC 06-263R01M95A13 PAGE 156 08:34:07 12/23/83 



OG5F.D6 
CC6EDA 
0C6FDE 
00":?F2 
0C6EE6 
0G5EES 
00 6EEA 
0C6EEE 
006EF2 
006EF6 
006EFA 
006EFE 
OC5FOO 
006F04 
006F08 



006F0C 
006F10 
006F12 
006F16 
006F1A 
006F1E 
006F22 



006F26 
006F2C 
005F30 
006F34 
006F38 
0O6F3C 
006F3E 
006F42 
006F46 
005F4A 
006F4E 
006F50 
006F54 

006F58 
006F5C 
006F5E 
006FS4 
006F58 
*005F5A 
006F6C 
0O6F6E 
006F72 
006F74 
00 6F7 6 



E650 


821C 


=0070F6 


41E0 


8DC0 


=007C9E 


41E0 


8DFA 


=007CDC 


41E0 


8F5F 


=007"44 


3433 






063D 






5030 


95F2 


=0084EC 


41E0 


8DAC 


=007C9F 


41F0 


8F82 


=007178 


58A0 


95E6 


=0084FO 


5bU0 


95DA 


=0084PS 


05? a 






4330 


8022 


=006^26 


E650 


81EE 


=0070F6 


4300 


"EPC 


=006DF8 


0000 


5F0C 




7330 


0B52 




95E3 






5810 


9A3E 


=008954 


5320 


9A3E 


=008956 


41E0 


8D80 


=007C9E 


41E0 


8D7C 


=007C9F 


41F0 


8CB6 


=007EDC 



0000 


6F26 




E550 


4001 


89D0 


7380 


94D6 


=008406 


E640 


94FC 


=008430 


C370 


1FFF 




41E0 


801C 


=006F58 


2781 






4330 


940C 


=00834F 


S640 


9 4 EC 


=008432 


C870 


2FFF 




41E0 


800A 


=006F58 


2781 






4330 


93FA 


=00834F 


4300 


FFD8 


=006F30 


5020 


99FC 


=008958 


2420 






D33U 


4200 


oooc 


0395 


0000 




0539 






2139 




=006F7C 


2651 






C720 


0001 




2771 






228B 




=006F5E 


5820 


99DE 


=006956 



7037 




LA 


R5,T9.E002 


7038 




BAL 


F 1 '4 / CSTOP 


7039 




SAL 


R14,CEXTC 


7040 




BAL 


R14,FEEKP 


7041 




EXHR 


R3,R3 


7042 




OAR 


R3,P13 


7043 




ST A 


P?,STO?ADR 


7044 




BAL 


R14, CSTOP 


7045 




EAL 


P15,3ELCHK 


7046 




LDA 


R10,S70PAD? 


7047 




LDA 


R4,ENDBUF 


7048 




CLAR 


R10,B4 


7049 




BE 


TSTS.8A 


7050 




LA 


R5,T9.E002 


7051 




B 


T9P.C2 


7052 


* 






7053 


TST9.8 


EQtl 


* 


7054 




LHL 


R3,?SW2 


7055 




EPSR 


R14,P3 


7056 




L 


R1,F.SAVE + 4 


7057 




L 


R2,RSAVE+8 


7056 




BAL 


P14, CSTOP 


7059 




BAL 


R14, CSTOP 


7060 




BAL 


R14,SENSTA 


7061 


* 






7062 


* 


COSE 


HERE FOR ACTOA 


7063 


* 






7064 


TST9.8A 


FQU 


+ 


7065 




LA 


R5,READ3UF 


7066 




LHL 


R8,SECSAV 


7067 


TST9.8A1 


LA 


S4,TESTPAT+10 


7068 




LHI 


R7,X'1FFF' 


7069 




BAL 


R14,T9.C0MP 


7070 




SIS 


R8,1 


7071 




BZ 


PASS 


7072 




LA 


R4,TFSTPAT+12 


7073 




LHI 


R7,X'2FFF' 


7074 




BAL 


R14,T9.C0MP 


7075 




SIS 


R8 r 1 


7076 




BZ 


PASS 


7077 




B 


TST9.8A1 


7079 


T9.C0HP 


ST 


R2,RSAVF+8 


7080 




LIS 


P2,0 


7081 


T9.C0MP1 


LB 


R3,0(R4,R2) 


7082 




LB 


R9,0(H5) 


7083 




CLR 


R3,R9 


7084 




BNE 


T9.CERR 


7085 




AIS 


F5,1 


7086 




XHI 


R2,1 


7087 




SIS 


R7,1 


7088 




BNLS 


T9.C0HP1 


7089 




T, 


R2,RSAVF+8 



GAPLESS READ 

STOP SELCH 

PUT IN EXTEND ADDRESS "ODE 

GET SELCH ENDING ADDRS 

SET UP UPPER HALF TO OR 

AND OR TOGETHER 

SAVE IT AND 

INIT SELCH 

AND CHECK SELCH STATUS 

RELOAD ACT ENDING ADDR. 

LOAD EXP. ENDING ADDP. 

COKPARE THE TWO 

AND BRANCH OUT IF EQUAL 

GAPLESS READ 

SELCH INFORMATION 



RESET PROC. INT. 

AND WHAT EVER! 

RESTORE "1 

RESTORE R2 

"ARE SURE SELCH IS SHOPPED 

STOP SELCH 

LOAD ENDING STATUS OF INF. 



LOAD ADDRESS OF READ BUFFER 

LOAD BUFFER COUNT 

LOAD 1ST PATTERN 

LOAD COUNT 

BRANCH TO COKPARE ROUTINE 

DECREKENT BUF. COUN^ 

OTHERWISE END OF TEST 

LOAD 2ND PATTERN 

LOAD 2ND COUNT 

COMPARE ROUTINE 

DECREMENT BUF. COUNT 

END TEST? 

OTHERWISE 1ST PATTERN AGAIN 



CLEAR TOGGLE REGISTER 

LOAD BYTE WRITTEN 

BYTE READ 

COMPARE THE TWO 

ERROR ROUTINE 

INCREMENT READBUF ADPRFS^ 

TOGGLE s? 

DECREMENT BYTE AMOUN^ 

CONTINUE TIL FINISHED 



fTD70370 
"TD70380 

MTD70400 
MTD70410 
MTD"'0420 
«Tr,70430 
«'"D70440 
"^1)70450 
«TT)70460 
MTD70470 
MTD70480 
MTD70490 
1TD70500 
■f^D70510 
MTD70520 
¥^70530 
MTD70540 
MTD70550 
MTD70560 
M'"D70 t; 70 
MTD70580 
M"'D70590 
MTD70*00 
MTD70610 
M^D70620 
MTD70«30 
M n, D70fi40 
"^070^50 
?01 , !' n, )706'>0 
MTD70'!70 
MTD70580 
vr,, D70690 
"T070700 
W,,, D70710 
YTR70720 
MT07O73O 
Y' T 'D70740 
"TD70750 
M' r D70760 
MTn70770 

" "'070790 
M n, D70B00 
"»^D70810 
M T D70820 
M n 'D70830 
MTD70840 
"TD70850 
MTD70R60 
M^D70870 
"TD70880 
«r"")70fi90 



HIGH PERF0RMANCE(6250)KAGTAPE DIAGNOSTIC 06-26330 1M95A 1 3 PAGE 157 08:34:07 12/23/83 



TSST 9 GAPLESS MODF TEST 



006F7A 

006F7C 
006F80 
00 5F84 
006F8A 
005F8C 
006F90 
006F94 
006F98 
006F9C 
006FAO 



006FA4 
006FA8 
006FAC 
006FBO 
006F34 

006FB8 
005F3C 
006FBE 
006FC2 
006FC6 

006FCA 
006FCE 
006FD0 
005FD4 
006FD8 



006FDC 
006FE0 
005FE2 
006FE4 
006FE6 
006FEA 



006FEC 
006FFO 
006FF4 
006FFA 
006FFE 
007002 
007008 
00700C 
007010 
007012 
007014 
*007018 



030E 

4030 957C =0O84FC 

4090 957A =0084FE 

E560 4001 89D0 

0B56 

4050 9484 =008414 

E550 818S =007122 

41E0 2CC4 

E5F0 35F6 

E6E0 95F6 =008596 

4300 9328 =0082CC 

0000 6FA4 

7320 2108 

4230 801E =006FCA 

E650 9624 =008504 

41?0 93BA =00836E 

4300 133C 

7330 20DE 

023F 

E550 98A6 =008866 

41F0 93A8 =00836F 

4300 133C 

7330 2124 
203B =006FB8 
E650 FB4C =006E20 
41?0 9396 =0O836E 
4300 133C 

0000 6FDC 

4037 99F0 =0089D0 

2672 

2752 

2234 =006FDC 

41E0 8CB4 =007C9E 

030F 

0000 5EEC 

E630 804C =007C3C 

4030 003E 

ES40 4001 89D0 

C.%40 OFFF 

C440 FOOO 

F850 OOOF FOOO 

5864 0000 

CA40 1000 

05 45 

2225 =007008 

C860 A5A5 

2531 



7090 






PR 


R14 


7091 


* 








7092 


T9.CERR 


STH 


R3,»ST0SE 


7093 






STH 


R9,RST0RE 


7094 






LA 


R6,READBUF 


7095 






SR 


R5,R6 


7096 






STH 


R5, INDEX 


7097 






LA 


R5,T9.E007 


7098 






5AL 


R14,T1ERR0RA 


7099 






LA 


R15,MESSG3A 


7100 






LA 


R14,C0NTMSG 


7101 






5 


ERRORX 


7103 


SELADR 


EQU 


* 


7104 






LHL 


R2,SELCH+$VALU1 


7105 






BNZ 


SEL. 6 


7106 






LA 


F.5,N0SELCH 


7107 






3AL 


R15,L00P2 


7108 






B 


TSTEND 


7109 


* 








7110 


SEL 


.5 


LHL 


B3,0NLINE+$VALU1 


7111 






SBZR 


R15 


7112 






LA 


R5,ONLIN0 


7113 






EAL 


R15,L00P2 


7114 






3 


TSTEND 


7115 


* 








7116 


SEL 


.6 


LHL 


S3,TRM0DE+$VALU1 


7117 






BNZS 


SEL. 5 


7118 






LA 


R5,N0SEL 


7119 






BAL 


R15,L00P2 


7120 






g 


TSTEND 


7121 


* 








7122 


SEL 


.2 


EQ'J 


* 


7123 






STH 


R3,WRTBUF(R7) 


7124 






AIS 


R7,2 


7125 






SIS 


P5,2 


7126 






BSLS 


SEL. 2 


7127 






BAL 


R14,CST0P 


7128 






BR 


R15 


7129 


* 








7130 


MEMCHS 


E SO- 


+ 


7131 






LA 


R3, HEM. INT 


7132 






STH 


R3/X'3E' 


7133 






T^ 1 


F.4,READBUF 


7134 






A HI 


R4,X'FFF' 


7135 






SHI 


R4,X , F000' 


7136 






LI 


R5,Y'FFO0O* 


7137 


H.CHK1 


L 


E6,0(E4) 


7138 






A HI 


R4,X*1000' 


7139 






CLAE 


R4,R5 


7140 






5 NFS 


M.CHK1 


7141 






' U T 

!_-. J. 


36,X'A5A5' 


7142 






" '_' T 


RS/X'FFFF' 



RETURN 

DATA WRITTEN 
DATA READ 

3YTE LOCATION AT FAULT 

GAPLESS COMPARE.. 
DATA AND DRIVE 

SUSPECTED ERROR WITH CONTROLLER 



LOAD SELCH ADDRESS 
CHECK TR^ODE STAT TO 

OTHERWISE OUTPUT 
AND END TFS^ 

LOAD ONLINE OPTION 
RETURN TO CALLER 

OTHERWISE PRINT 
AND END TEST 

LOAD TRANSFER MODE 
FOR ONE LAST CHECK 

OTHERWISE ##INT 
AND ABORT TESTING 



STORE PATTERN 
INCREMENT POINTER 
DECREMENT COUNTER 
BRANCH IF MORE 
INIT SELCH 
RETURN 



LOAD LOC FOR MM HANDLING 

STCPE FOR MM INTERRUPT 

LOAD ADDRESS OF READ BUFFER 

ROUND UP ADDRESS 

PUT ON A 4K BOUNDARY 

LOAD 1MB LIMIT 

STORE PATTERN 

IF NO INT. INC. LOC 

AND COMPARE WITH 1MB BOUNDARY 

AND IF LESS STORE SO w F MCRE 

LOAD TEST PATTERN 

OTHERWISE LOAD ANOTHER PAT. 



M m D70900 
H^D70910 
M q, D70920 
M m D70930 
M"D709U0 
MTD70950 
M r "D70960 
M"'D70970 
MTD70980 
MTD70990 
M T D71000 
^1)71010 

M rp D71030 
MT"D71040 
MTD71050 
MTD71060 
"MTD71070 
HTD-M080 
TH571090 
MTD71100 
M T D71110 
M"'D71120 

MTn-71140 
MTD71150 
MTD71160 
MTD71170 
MTP71180 
MM q 'D71190 
M^D71200 
M' ? D71?10 
MTD71220 
M' P D71230 
MTD71240 
MTD71250 
MTD71260 
M T D71270 
M'"D71280 
M T D71290 
M' P D71300 
MTD71310 
M' T 'D71320 
M T D71330 
MTD71340 
"TD71 350 
M T D71360 
■*TD71370 
M'"D71390 
HTri7i3qo 
M' r D71400 
MTD71410 
MT71 420 
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TEST 9 GAPLKS? MODE TEST 



00701 A 
C0701C 
007020 
007024 
007028 
*00702C 
00702E 
007032 
007036 
00703A 



00703C 
007040 
007042 
007046 
00704C 
00704E 
007050 
007052 
007056 
007058 
00705C 
007060 
007062 
007066 
00706A 
00706C 
00706E 
007072 
007075 
00707A 
00707E 
007082 
007086 

00708C 
00708C 
007090 

007092 
007096 
00709A 
00709E 
0070A2 
0070A6 

0070AA 
0C7OB2 
0070BA 
0070C2 
0070C8 
00 7 OCA 



2470 






4037 


0000 




4064 


0000 




4837 


0000 




C530 


FFFF 




213B 




=007042 


4064 


0000 




45 34 


0000 




CA40 


1000 




2206 




=00702E 


0000 


703C 




7330 


0A52 




95E3 






CB40 


1000 




^630 


4001 


89D0 


0B43 






2U80 






0894 






5D80 


3 36 


=00708C 


9191 






7330 


20FA 




40 30 


93A6 


=008406 


0539 






4320 


FC1E 


=006C84 


4090 


939C 


=008406 


2404 






0819 






E620 


8050 


=0070C? 


41F0 


1680 




5550 


8030 


=007CAA 


41F0 


92F0 


=00836E 


4810 


9386 


=008408 


4820 


2108 




4300 


FBFA 


=006C84 


0000 


4FFE 




41F0 


2836 




4800 


9 370 


=00840A 


C300 


OOOE 




4330 


133C 





41F0 8CB2 =007D58 
4300 FBD2 =00 C C7C 

5245 434F 5244 5320 

5452 414F 5346 4552 

5245 4420 3D20 5822 

2A2A 2A2A 2220 

OOOA 

5245 434F 5244 5320 



7143 
7144 
7145 
7145 
7147 
7148 
7149 
7150 
7151 
7152 
7153 
7154 
7155 
7156 
7157 
7158 
7159 
7150 
7161 
7162 
7163 
7164 
7165 
7166 
7167 
7168 
7169 
7170 
7171 
7172 
7173 
7174 
7175 
7176 
7177 
7178 
7179 
7130 
7181 
7182 
7183 
7184 
7185 
7136 
7187 
7138 



M.CHK3 



KEM.INT 



H.CHK2 



DBASE 
BUFSAV 



LIS 37,0 

STH R3,0(R7> 

STH R6,0(E4) 

LH R3,0(R7) 

CLHI S3,X'FFFF' 

BNE M.CHK2 

STH R6,0(P4) 

CLK R3,X'0'(E4) 

AHI R4,X , 1000' 

BS M.CHK3 

EQ'J * 

LHL R3,PSW2 

EPSR 314, R3 

SHI R4,X'1000' 

LA R3,READBUF 

S3 R4,R3 

LIS R8,0 

IDAS R9,R4 

D R8, DBASE 

SLHLS R9,1 

LHL R3,REC0RDS+$VALU1 

STH R3,RECSAV 

CLAR F3,R9 

SNP TST9.1 

STH R9,RFCSAV 

LIS R0,4 

LR P1,R9 

LA R2,T9KSG1+24 

BAL R15,HEXASC 

LA S5,T9J!SG1 

BAL R15,L00P2 

LH R1,DRIVSAV 

LH R2,SELCH+$VALU1 

B TST9.1 

ALIGN 4 

DC Y'4FFE' 

DS 2 



TST9.END BAL 
LH 
THI 
3Z 
BAL 



7190 T9MSG1 



S15,TST.DRIV 

P0,DRIVSAV1 

RO^'E' 

TSTEND 

R15,IT.B1 

T9.1 



LOAD LOC ZERO 

AND STORE 2ND PAT. AT LOC ZERO 

STORE 1ST PAT. AT 1<«B + 1 

RELOAD LOC ZERO 

COKPARF WIT a 2ND PATTERN 

W UST BE AN 3-32 THEN 

CTHFPWISE CONTINUE OUTPUT 



UNTIL AH INT. IS RECEIVED 
WHICH WILL 3E 2KB OR 16MB + 



4K 



RESET PSW AND 

USER REGISTER SET 

CALCULATE LAST GOOD LOC 

LOAD IN RSADPUF ADDRESS 

SUBTRACT PROGRAM SPACE 

ZERO OUT REG 8 

LOAD ADDRESS VALUE 

DIVIDE BY NFEDSD BUF SIZE 

MULTIPLY BY 2 

LOAD SELECTED BUFFER SIZE 

SAVE IT INTO AREA R01 

COKPARE <»ITH MAX VALUE ALLOWFD 

BRANCH BACK TO TEST IF LESS 

TRANSFER RECORDS 

DIGITS TO CONVERT R01 

VALUE R01 

STORED HERE R01 

AFTER CONVERTED R01 

RECORDS OPTION HAS BEEN HODIFIED 

RESTORE DRIVE ADDRESS R01 
RESTORE 3ELCH ADDRESS R01 
INTO BUFFER SELECT AND PACK TO TEST 



CHECK FOR OTHER DRIVES 

CHECK FLAG 

IS IT SET 

NO, END TEST 

INIT TEST FOR OTHER DRIVES 



DC 



C RECORDS TRANSFERRED 



»****" t 



,X'0D0A' WTD 



7191 T9.KSG2 DC 



C'RECORDS TRANSFERRED = 2',X'0D0A' 



vt 1 !)? 1 a 3 o 
YTD71U40 
•PD71U50 
HTD" 7 ! 4*0 
tfTD 71470 
MTD" 7 ! U90 

HT-D71500 
MTD7 1 e 10 

HTD71540 
^^071550 
* m D71<^0 
*! r "D71570 
MTD71580 
w-r D71590 

MTI)71 CQO 

VV)71M0 
fTD71 e 20 
MTT)71«30 
HTD71640 
1TD71«50 
*T>71560 
M^D71670 
M^D71630 
« T D71590 
»5^D71700 
M^D71710 
MTD71720 
W'"D71730 

MTT)717140 
vt> d717 c;q 

f(Tp71750 
MTD -7 1770 

IT "-071780 
MTD717QQ 
YTD71800 
M^D71810 
f T D71820 
"TD71830 
*!TD7 1 840 
*"'D7 1S50 

JJ"PT)71060 
y-nrp 1 370 

yTj)7 138O 
YTp-7 1 qoo 



MTn7 1910 
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TEST 9 G1PLESS *ODE TEST 



C070D2 


5452 


414F. 


534f 


4552 


0070DA 


5?45 


4420 


?D20 


3220 


0070E2 


ODOA 








0070E4 


4741 


504C 


4553 


5320 


0070EC 


5752 


4954 


452E 


2E20 


0070F4 


O'JOA 








0070F6 


4741 


504C 


4553 


5320 


0070FE 


5245 


4144 


2E2F 




007104 


ODOA 








007106 


4952 


4720 


464F 


554E 


00710E 


4420 


494E 


2047 


4150 


007116 


4C45 


5353 


2054 


4150 


00711E 


4520 








007120 


ODOA 








007122 


4741 


504C 


4553 


5320 


00712-A 


434F 


4D50 


4152 


4520 


007132 


4552 


524F 


522E 


2E20 


00713A 


0D0» 









7192 T9.EO0O DC C'GAPLESS WRITE. .', X* ODOA ■ 



7193 T9.F002 DC C'GAPLESS READ. -' ,X ■ ODOA ■ 



7194 T9.E005 DC CIHG FOUND IN GAPLESS TAPE* ,X' ODOA ■ 



7195 T9.E007 DC C'GAPLESS COMPARE ERROR . . * ,X ' ODOA * 



lfTT)7'JO20 



"T07ia30 



M T D71940 



*' !, D71950 
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00713C 
007140 
007144 
*007148 
0071UA 
00714E 

007152 
007158 
00715C 
007160 
007164 
C07168 
00716C 

*007170 
007172 
007176 
00717A 
00717S 
007180 
007182 
007186 
007188 

*00718C 
00718E 
007192 
007196 
007198 

*00719A 
00719C 
0071A0 

0071A4 
0071A8 
007 1AC 
007130 
0071B2 
0071B6 
0071BA 
0071BE 
0071C2 
0071C6 
0071CC 



0000 


713C 




41?0 


8C0A 


=007D4A 


41F0 


FE74 


=006FE8 


4840 


2036 




2133 




=00714E 


4840 


92E2 


=008430 


4040 


92D2 


=008424 


41F0 


9236 


=0083SC 


0000 


71A4 




0000 


736A 




41F0 


8F6E 


=008CD2 


41E0 


8A32 


=007B9A 


73A0 


200C 




C5A0 


007F 




2137 




=00717E 


C8A0 


007F 




E6 50 


8214 


=00738F 


41F0 


91F0 


=00836E 


035A 






2751 






41P0 


8A4C 


=007ED2 


0895 






C350 


0001 




2133 




=007192 


41E0 


8B56 


=007CE8 


41E0 


8AEA 


=007C80 


9814 






2752 






2282 




=007196 


41E0 


8A44 


=0C7FF4 


4300 


91AA 


=00834F 


41F0 


91S4 


=00838" 


0000 


7232 




0000 


736A 




0859 






41E0 


89E4 


=007F9A 


41F0 


8E86 


=008040 


41F0 


8F14 


=008002 


4130 


8A9E 


=007C60 


41F0 


8A94 


=0 07C5A 


E560 


4001 


89D0 


41E0 


8A52 


=007C22 



7197 

7193 

7199 

7200 

7201 

7202 

7 203 

7204 

7205 

7205 

7207 

7208 

7209 

7210 

7211 

7212 

7213 

7214 

7215 

7216 

7217 

7218 

7219 

7220 

7221 

7222 

7223 

7224 

7225 

7226 

7227 

7228 

7229 

7230 

7231 

7232 

7233 

7234 

7235 

7236 

7237 

7238 

7239 

7240 

7241 

7242 

7243 

7244 

7245 

7246 

7247 

7248 

7249 



******************************************************* 



TEST 



* AUTOLOAD TEST 



* OPTIONS: 

* DRIVE, DATA, AND BYTES. 



******************************** 

TESTA EQU * 

BAL R15,?ESTINIT 

BAL F15,S5L.5 

TA.000 LH B4,DATA+$VALU1 

BNZ TA.001 

LH RU,TESTPAT+10 

TA.001 STH F4,DATAPST 
* 

BAL R15,L00PTCP 

DAC TA.100 

DAC TSTA.END 

BAL R15,REW!*T 

BAL R14,CCLEAR 

LHL R10,BYTES+$VALU1 

CLHI R10,X'7F' 

3L TA.001A 

LHI R10,X'7F' 

LA R5,TA.MSG1 

BAL R15,L00?2 

TA.001A LR R5,R10 

SIS R5,1 

BAL R14,CDENS 

LR R9,R5 

THI R5,X'0001' 

BNZ TA.002 

BAL R14,CWR0DBY 

BAL R14,CWRITE 

WHR E1,R4 

SIS R5,2 

BNL TA.002A 

EAL R14,SENSTA1 

B PASS 

PAL R15,L0OPTOP 

DAC TA.300 

DAC TSTA.END 

LR R5,R9 

BAL S14,CCLEAP 

BAL R15,SELSFTF 

BAL R15,FEWKT 

BAL R14,CBYRD 

BAL R14,CPEAD 

LA S6,READBUF 

TA.101 BAL F14,SENS' 1 "A3 



*********************** 



TA.002 
TA.002 A 



TA.100 



CHECK IF ONLINE? 

IS DATA PATTERN USEE SPECIFIED 

OTHERWISE, LOAD THIS PATTERN 



PASS 

PROCEED 

REWIND «AG TAPE 



R01 



BYTE VALUE R01 

7F IS THE SAX TO BE SPECIFIED E01 

OK 

ELSE FORCE X*7F' BYT^S R01 

TELL USER 

BYTES OPTION HAS BEEN MODIFIED 

LOAD BYTES VALUE R01 

DECREMENT R01 

DENSITY COHNAND 

SEE IF ODD VALUE 

NO 

ISSUE WRITE ODD BYTE COKFAND 

WRITE PATTERN TO TAPF 

CONTINUE TILL COMPLETE 



PAS^ ADDRESS R01 

PROCEED 

RELOAD BYTES VALUE 

CLEAR INTERFACE 

SET UP READ BUFFER ADDRESSES 

REWIND TAPE 

PUT INTERFACE INTO BYTE READ HODF 

ISSUE READ COMMAND 

LOAD BEAD BUFFER ADDRESS 



"■"D7197C 
*^D71980 
1TD"n990 
fTD72000 
MTD''201C 
1TD72020 
WTD72030 
WTD72040 
1^72050 
H[TD72060 
f m D72070 
KTD72080 
MT-D72090 
MTD72100 
M'"D72110 
MTD72120 
HTD72130 
f' p D72140 
HTD72150 
HTD72160 
VTD721"?0 
«"'D721flO 
HTD72190 
f T D72200 
>I ""072210 
M n, D72220 
wt'D"?2230 
I »'T'r)72240 
1TD722 i: 
fTD72260 
M,,, D72270 
MTD72280 
MTD72290 
^0^2300 
1 ,p D72310 
T^r»72320 
1TD72330 
MTD"?2340 
M™D72350 
YTD72?*0 
»!TD72370 
fTD72380 
HTTT)72390 

1'"D72400 
^072410 
mtj)72420 
1 T D"'2430 
YTD72440 
^1)72450 
YTD72460 
yn- 1)72470 
MT072480 
MTD72490 
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T"ST A 



0071D0 
0C71D4 
0071D5 
*0071D8 
0071DA 

C071DE 
0071EO 
0071E2 
0071E4 
0071E8 
0071ES 
0071F4 

*0071F6 
0071F8 
0071FA 
0071FE 

*007200 
007202 
007206 
00720A 
0C720E 
007212 
007216 
00721A 
007215 
007222 
007226 
00722A 
00722E 

007232 
007238 
00723C 
007240 
007244 
007246 
007248 
00724C 
00724E 
*007252 
007254 
007256 
00725A 

*007260 
007262 
007266 
00726A 
007262 
007272 
007274 
007278 



DB16 


0000 




2561 






27S1 






2236 




=0071CC 


41 SO 


8A06 


=007BE4 


0859 






2470 






2420 






E640 


923C 


=008424 


0334 


4200 


0000 


D387 


4001 


89D0 


0538 






2138 




=007206 


2571 






C720 


0001 




2751 






223C 




=0071E8 


4300 


9148 


=00834E 


E650 


81A0 


=0073AA 


D000 


9782 


=008990 


41F0 


1BD0 




0100 


977A 


=008990 


4070 


91FA 


=008414 


4030 


92DE 


=0084FC 


4080 


92DC 


=0084FE 


41E0 


2CC4 




E6F0 


35F6 




S6E0 


9368 


=008596 


4300 


909A 


=0082CC 


41F0 


9156 


=00838C 


0000 


736A 




0000 


736A 




41F0 


8E8E 


=008002 


2430 






2470 






4037 


0080 




2672 






C570 


OOFF 




2285 




=007248 


2470 






D237 


007A 




25"H 






C570 


007F 




20 35 




=007256 


4830 


9 1 A2 


=008408 


0230 


0078 




C830 


0040 




D230 


0079 




0859 






CA50 


0080 




D505 


0000 





7250 




RD 


R 1,0 (56) 


7251 




A IS 


R6,1 


7252 




SIS 


R5,1 


7253 




BNL 


TA. 101 


7254 




BAL 


R14,SENSTA1 


7255 


* 






7256 




LR 


R5,»9 


7257 




LIS 


R7,0 


7258 




LIS 


R2,0 


7259 




LA 


R4,DATAPAT 


7260 


TA.201 


LB 


R 3 , ( P. 4 , R 2 ) 


7261 




LB 


R8,READBUF(R7) 


7262 




CLR 


R3,R8 


7263 




BNE 


TAR 01 


7264 




AIS 


R7,1 


7265 




XHI 


R2,1 


7266 




SIS 


E5,1 


7267 




BNL 


TA.201 


7268 




B 


PASS 


7269 


TAR01 


LA 


R5,TA.E001 


7270 


TAR01. 1 


STM 


R0,EFRSAVE 


7271 




BAL 


R15,LC0RE 


7272 




LH 


R0,EFRSAVE 


7273 




STH 


R7, INDEX 


7274 




STH 


R 3, W STORE 


7275 




STH 


R8,RST0RE 


7275 




BAL 


R14,T1EER0RA 


7277 




LA 


R15,«ESSG3A 


7278 




LA 


R14,C0NTMSG 


7279 




B 


ERRORY 


7281 


TA.300 


BAL 


R15,LOOPTOP 


7282 




DAC 


TSTA.END 


7283 




DAC 


TSTA.END 


7284 




BAL 


R15,REWWT 


7285 




LIS 


R3,0 


7285 




LIS 


R7,0 


7287 


TA.301 


STH 


R3,X'80' (R7) 


7288 




AIS 


R7,2 


7289 




CLHI 


S7,X*FF' 


7290 




BNL 


TA.3C1 


7291 




LIS 


R7,0 


7292 


TA.3011 


STB 


R3,X'7A' (R7) 


72-93 




AIS 


P7,1 


7294 




CLHI 


R7,X"7F' 


7295 




BNE 


TA.3C11 


7295 




LH 


R3,DRIVSAV 


7297 




STB 


R3,X'78' 


7298 




LHI 


R 3 , X ' 4 ' 


7299 




STB 


R3,X'79" 


7300 




LR 


E 5 , R 9 


7301 




AHI 


RSrX'SO 1 


7302 




AL 


OCRS) 



REAP INTO BUFFER BYT P PY PYT r 
INCREMENT BUFFER ADDRESS 
DECREMENT BYT COUNT 
CONTINUE TIL COMPLETE 



RESTORE BYTE COUNT 
INDEX REGISTER CLEARED 



DATA WRITTEN 
DATA READ 

INCORRECT CO v PARE 
INCREMENT REAOBUF ADDRESS 
TOGGLE PATTERN 



BYTE MODE READ.. 

SAVE REGISTERS 

RESTORE LOW CORE BEFORE ERROR 

BYTE LOCATION 



DATA WRITTEN AND READ 
SUSPECTED ERROR WITH CONTROLLER 



PASS ADDRESS R01 

REWIND TAPE 
CLEAR BUFFER AREA 
INDEX REGIS m ER 

INCREMENT SUFFER POINTER 

CONTINUE 

CLEAP INDEX REGISTER 

INCREMENT INDEX 

CONTINUE 

GET DRIVE ADDRESS 
STORE IT 
COKMSND 3Y""" 

RELOAD BYTE CO'JNT 
CALCULATE AL ENDING ADDRESS 
AUTO LOAD F50Y X"80* TO CONT R5 



1^072500 
1^072510 
^"072^20 
yTr,72530 
fT'D''2540 
WTD72550 
*' P D72560 
* n, D72570 
1TD72580 
f T 'D72590 
, f , T>72600 
fTD72610 
"TD72620 
«!TD72630 

*TD72«50 
v*'D72660 
»' P D726' 7 
fTD72680 
*' T 'D72690 
Hi , D72700 
Htt)72' 7 10 
«' f, D72720 
MT572730 
w"'D72' 7 40 
"^072750 
HTD72"'60 
H-TD72770 
»TD72'>80 
WT072790 

y , D72810 
1^072820 
w rn D72830 

¥TT)7 28 40 

!*TD72850 
^072860 
Y' T 'D72870 
M'"D72830 
VTD72890 
""'D72900 
fTD72910 
, { m D729?0 
mt- D 72930 

Y" , D72950 
v m D72960 
f"D72970 
M^r)72980 
^^372990 
HT.D73000 
MTD73010 
"" , D"n020 
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TEST 3 








00727C 


4 3F0 


8080 


=0 07 30 


007280 


9577 






007282 


4310 


3046 


=0072CC 


007286 


E550 


8130 


=0073BA 


00728A 


41^0 


90E0 


=00836F 


00728E 


E550 


312E 


=0073C0 


007292 


DOOO 


96FA 


=008990 


007296 


41F0 


1BD0 




00729A 


D100 


96F2 


=008990 


00729E 


41F0 


90CC 


=00836E 


0C72A2 


DOOO 


96EA 


=008990 


0072A6 


2401 






0072A8 


2410 






0072AA 


E620 


818A 


=007438 


0072AE 


41F0 


1580 




0072B2 


0817 






0072BU 


2620 


8190 


=00744e 


0072B8 


41F0 


1680 




0072BC 


D100 


96D0 


=008990 


0072C0 


E6F0 


8168 


=00742C 


0072C4 


E6E0 


92CE 


=008596 


0072C8 


4300 


9000 


=0082CC 


0072CC 


2329 




=0072DE 


0072CE 


S650 


S0E8 


=0073BA 


0072D2 


41F0 


9098 


=00836E 


0072D6 


E650 


8106 


=0073E0 


0072DA 


4300 


FFB4 


=007292 


0072DE 


2349 




=0072F0 


0072E0 


E650 


80D6 


=0073EA 


0072E4 


41F0 


9086 


=00836E 


0072E8 


E650 


81 10 


=0073FC 


0072EC 


4300 


FFA2 


=007292 


0072F0 


S650 


80C6 


=0073BA 


0072F4 


41F0 


9076 


=00836E 


0072F8 


2650 


8122 


=00741E 


0072FC 


4300 


FF92 


=007292 


007300 


41E0 


88E0 


=007BE4 


007304 


41F0 


8E0A 


=008112 


007308 


C430 


OOFF 




00730C 


C530 


001C 




007310 


4330 


8028 


=00733C 


007314 


DOOO 


9678 


=008990 


007318 


41F0 


1BD0 




00731C 


D1C0 


9670 


=008990 


007320 


C800 


001C 




007324 


4000 


90A0 


=0083C8 


007328 


E650 


808E 


=0073EA 


00732C 


41E0 


28AE 




007330 


E6F0 


2A4C 




007334 


E6E0 


925E 


=008596 


007338 


4300 


8F90 


=0082CC 



7303 


BFC 


15, TA.302 


7304 


EPSE 


3.7, F 7 


7305 


PFC 


1,TA.3C3A 


7306 


LA 


B5,TA.E002 


7307 


EAL 


R15,L00P2 


7303 


IA 


R5,T» .F003 


7309 TAB03A STH 


RCEERSAVE 


7310 


FAL 


R15,LC0RE 


7311 


LM 


P0,EERSAVE 


7312 


BAL 


R15,L00P2 


7313 


STM 


P0,E3RSAVE 


7314 


LIS 


P0,1 


7315 


LIS 


F1,0 


7315 


LA 


52,TAERwSG2+12 


7317 


P.AL 


R15,hEXASC 


7318 


LR 


R1,R7 


7319 


LA 


P2,TAERHSG3+12 


7320 


EAL 


S15,HEXASC 


7321 


LK 


RO,ERRSAVE 


7322 


LA 


R15,TAERtfSG2 


7323 


LA 


R14,C0NTKSG 


7324 


B 


ERRORX 


7325 TA.303A BFC 


2,TA.303B 


7326 


LA 


R5,TA.E002 


7327 


BAL 


R15,L00P2 


7328 


LA 


R5,TA.E004 


7329 


B 


TAR03A 


7330 TA.303B BFC 


4,TA.303C 


7331 


LA 


R5,TA.E002 


7332 


BAL 


R15,L00P2 


7333 


LA 


R5,TA.E005 


7334 


B 


TAR03A 


7335 TA.303C LA 


R5,TA.E002 


7336 


BAL 


R15,LOOP2 


7337 


LA 


R5,TA.E006 


7338 


B 


TAR03A 


7339 * 






7340 TA.302 BAL 


R14,SENSTA1 


7341 


BAL 


R15,?TATCHK 


7342 


NHI 


RSfX'OOFF' 


7343 


CLHI 


R3,X'1C' 


7344 


BE 


TA.400 


7345 


STK 


R0,ERRSAVE 


7345 


EAL 


R15,LC0EE 


7347 


LS 


E0,EERSAVE 


7343 


IHI 


p.o,nc" 


7349 


STH 


PCSTATGD 


7350 


LA 


R5,TA.E002 


7351 


EAL 


P14,T0ERR0RB 


7352 


LA 


R15,MESSAGE1 


7353 


LA 


E14,C0NTMSG 


7354 


B 


ERRORX 


7355 * 







CC SHOULD BE ZERO 

CAPTURE CC 

ITS NOT DRIVE UNAVAILABLE 

AL.. 

DRIVE UNAVAILABLE 
SAVE REGISTERS 
RESTORE LOW CORF 

OUTPUT PENDING MESSAGES 
SAVE REGISTERS 
1 DIGIT 

EXPECTED CC = 
STORED HERE 

ACTUAL CC 

CONVERT 

SUSPECTED ERROR WITH CONTROLLER 

ERROR ROUTINE 

ITS NOT END OF KEDIUH 

AL.. 

CC INDICATES END OF MEDIUM 

EXA OR THE OUT 
AL.. 

CC INDICATES EXA OR TIME OUT 

AL.. 

INCORRECT CC 
ERROR MESSAGE OUT 



R01 



CHECK STATUS OF INTERFACE 

ONLY LSB NECESSARY 

STATUS SHOULD BF 1C 

EVERYTHING OK HERE 

SAVE REGISTERS 

RESTORE LOH CORE IMMEDIATELY 

RESTORE REGISTERS 

EXPECTED STATUS 

SAVE IT 

AL.. 

DRIVE AND STATUS'S 



SUSPECTED ERROR WITH CONTROLLER 
FRROR MESSAGE 



MTD73030 
MTD73040 
M' 1, D73050 
MTD73060 
MT'D73070 
"TD73090 
MT173090 
MTD73190 
MTp-731 10 
VTD73120 
HTD73130 
MT073140 
MTD73150 
1TD73160 
HTD73170 
MTD73180 
Mi"D73190 
M"'D73200 
WTD73210 
M ,,, D73220 
MTD73230 
MT'D73240 
MTD732 C 
M' p D73260 
M^D73270 
MTD73280 
MTD73290 
MTD73300 
MTD73310 
W , D73320 
MT-D73330 
M' T 'D73340 
MTD73350 
XTD7 33«0 
VTD73370 
M' P D73380 
MTD73390 
MTr)73400 
M'TD73410 
MTD73420 
MTD73430 
MTD73ano 
MTD73450 
1* -"073URO 
»?TD734"'0 
w^D73480 
MTD73490 
MTD73 C 00 
<"rr)T3=,lo 
MTD73520 
MTD73530 
^TD-73 = 40 
N" , D735^0 



HI3H PS8F0R!tANCE(6250)!"AGTAPE DIAGNOSTIC 06-263801 M95M3 PAGE 163 08:34:07 12/23/93 

TEST \ 



00733C 


6 59 






7356 


TA.400 


LR 


R5.R9 


00733E 


2420 






7357 




LIS 


52,0 


007340 


E640 


90E0 


=008424 


7358 




LA 


R4.DATAPP? 


0C7344 


2470 






7359 




LIS 


R7,0 


C07346 


D^34 


4200 


0000 


7360 


TA.401 


LB 


P3,0(R4,R2) 


00734C 


0387 


0080 




7361 




LB 


P8,X*80*(R7) 


007350 


0538 






7362 




CLR 


R3.R8 


*007352 


2138 




=007362 


7363 




BNE 


TAR02 


007354 


2671 






7364 




AIS 


57,1 


007356 


"720 


0001 




7365 




XHI 


22,1 


00735A 


2751 






7365 




SIS 


P5,1 


*00735C 


228B 




=007346 


7367 




BNL 


TA.401 


00735E 


4300 


8FEC 


=0083UE 


7368 




p 


PASS 


007362 


E650 


8054 


=0073BA 


7369 


TAB02 


LA 


R5,TA.E002 


007366 


4300 


FEAO 


=00720A 


7370 




B 


TAR01.1 


00736A 


DOOO 


9622 


=008990 


7372 


TSTA.END 


STX 


RO,ERESAYE 


007362 


41F0 


1BD0 




7373 




BAL 


R15.LC0HE 


007372 


0100 


961 A 


=008990 


7374 




LH 


RO,ERRSAVE 


007376 


41F0 


2836 




7375 




BAL 


R15.TST.DRIV 


00737A 


4300 


908C 


=00840A 


7376 




LH 


R0,DRIVSAV1 


00737E 


C300 


OOOE 




7377 




THI 


RO.X'E' 


0C7382 


4330 


133C 




7378 




BZ 


TSTEND 


007386 


41F0 


89CE 


=007158 


7379 




BAL 


S15.IT.B1 


00738A 


4300 


FDB6 


=007144 


7380 




3 


TA.000 



RESTORE BYTE ASfOUNT T COKPARE R01 



EXPECTED PATTERN 
DATA WRITTEN 
COMPARE THE"! 
ERROR IE .ME. 
INCREMENT RE».D ADDRESS 
TOGGLE PATTERN 

CONTINE TIL COUPLET* 1 

AL.. 

COMHCH ERROR ROHTINE 

SAVE REGISTERS 

SET UP LOW CORE 

RESTORE REGISTERS 

OTHER DRIVES TO 3E TESTED 

CHECK FLAG 
END TEST A 
INIT TEST E0° OTHER DRIVES 



«f^D73560 
lf , D73570 
H'"n73580 
"TD73590 
•»fD73«00 
1TD73M0 
«rTr)73P20 
1TD73630 
XTD7 3S<»0 
H-"D73f 50 
«rTT)7 3lt.6 
MTD73«570 
"•TD73680 
MTn73«i90 
1^D73700 

^"■073720 
KTQ73730 
*i , D73740 
VTI73750 
"TD73760 
f^D73770 
1^073780 
MTD73790 
»!T!>73800 



00738E 


4259 


007396 


414E 


00739E 


4420 


0C73A6 


2220 


0073A8 


ODOA 


0073AA 


4259 


0073B2 


4520 


0073B8 


ODOA 


00733A 


414C 


0073BE 


ODOA 


0073C0 


4343 


0C73C8 


4154 


0073DO 


5645 


C073D8 


494C 


0073DE 


ODOA 


0073FO 


4343 


0073ES 


4154 


0073F0 


204F 


0073F8 


554D 


0073FA 


ODOA 


0C73FC 


4343 


007404 


4154 


00740C 


4D49 


007414 


SU49 



5445 5320 5452 
5346 4552 5245 
3D20 c 822 3746 



5445 204D 4F44 
5245 4144 

2E2E 

2049 4F.44 4943 
4553 2044 5249 
2055 4E41 5641 
4142 4C45 

2049 4E44 4943 
4553 2045 4E44 
4620 4D45 4449 



2049 4T44 4943 
4553 2045 5841 
4E45 204F 5220 
4D45 204E 5554 



7382 TA.HSG1 DC C • BYTES TRANSFERRED = X"7F" * ,X ■ ODOA' 

7383 TA.E001 DC C'BYTE ?ODE READ ' ,X ' ODOA ' 

7384 TA.E002 DC C AL. . ' ,X*ODOA " 

7385 TA.E003 DC C'CC INDICATES DRIVE UNAVAILABLE* ,X " ODOA • 



7385 TA.E004 DC 



7387 TA.E005 DC 



C'CC INDICATES END OF SFDIU* ' , Y * CDOA ' 



C'CC INDICATES EXAMINE OR TI1E O'JT ' , X" ODO A ' 



^Tr)73»20 

y"D73940 
^373850 

v-<-)7 3°e;o 
lr "D"'387C 
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TEST A 



00741C 
0CH1E 
007426 
00742A 

00742C 
0071+34 
00743A 
00743C 
007444 
00744A 



ODOA 

494E 434F c 252 4543 

5420 4343 

?D0A 

4343 2045 5650 4543 

5445 4430 2»?C 

3?CA 

4343 2052 4543 4549 

5545 443D 2A2C 

ODOA 



7358 TA.E006 DC 



7389 * 

7390 tasbhsg: 



DC 



7391 TAEBKSG3 DC 



C'INCOEEECT CC, X'ODOA' 

C'CC EXPECTED=*' ,X'8D0> ■ 
C'CC RECEIVED=*' , X'ODOA' 



>C"n73P90 



MTn73890 
«TD73°00 



mtt)73O10 
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TSST3 

7393 ******************************************************* 

7394 * TEST E BEHIND AND UNLOAD CHECK * 

7395 * * 

7396 * PURPOSE: TO CHECK THE UNLOAD COKSAND * 

7397 * * 

7398 * TEST SPEC: THE TEST ISSUES AN UNLOAD COMMAND TO THE * 

7399 * TAPE DRIVE, TI«ES OUT AND CHECK THE STAT T, 3 * 

7400 * FOR OFFLINE CONDITION. * 

7401 * * 

7402 * ERRORS: * 

7403 * * 

7404 * OPTION: * 

7405 * DRIVE. * 

7406 * * 
7 407 ******************************************************* 



»jmo73930 
f q, D73<>40 
w^D73950 
WTD73960 
«!^D7?q70 
fTD73980 
H^D-73990 

K T D74000 
T"D74010 
JrH>7H020 
flT'D74030 
'?TT)"*4040 
H'!'D74050 
MTD74060 
«TD74070 



00744C 


41F0 


88FA 


=007D4A 


7409 
7410 


TESTB 

* 


BAL 


R15,TESTINIT 


INIT TEST 


HTD74090 
KTD7IH00 










7411 


* CHECK 


IF DU 


INTERRUPTS WHEN 


DRIVE IS TURNED OFF LINE 


MTD74110 










7412 


* 








HTD74120 


007450 


41F0 


8F38 


=00838C 


7413 


TSTB.2 


BAL 


P15,L00PT0P 




1TD74130 


007454 


0000 


74C2 




7414 




DAC 


TSTB.1 




fTD74140 


007458 


0000 


7544 




7415 




DAC 


TSTB.END 




<*■» 1)74150 


00745C 


41F0 


EE4E 


=0062AF 


7416 




BAL 


R15,INTRSET 


SET UP TA3LES 


H^D74160 


007460 


41E0 


8866 


=007CCA 


7417 




BAL 


R14,CDISARK 


DISARK ANY PENDING INTERRUPTS 


*" , D74170 


007464 


4830 


0A54 




7418 




LH 


R3,PSW3 


ENABLE PROCESSOR INTRPTS 


H' r D74180 


007468 


95E3 






7419 




E?SR 


R14,R3 




Vi>D74190 


00746A 


E600 


803C 


=007UAA 


7420 




LA 


50,TSTB.2A 


INTERRUPT ADDRESS 


KTD74200 


00746E 


4000 


21E6 




7421 




STH 


RO,DEVINT 


INTO TABLE 


>{T<07U210 


007472 


41 EO 


885A 


=007CPO 


7422 




BAL 


R14,CENBLE 


ENABLE INTERRUPTS 


jfT-i) T4220 


007476 


E650 


8168 


=0075F2 


7423 




LA 


R5,TBHSG1 


TURN DRIVE CFF LINE 


HTD74230 


00747A 


41F0 


1802 




7424 




BAL 


R15, PRINT 


OUTPUT XSSSAGS 


f^D74240 


00747E 


F330 


07FF 


FFFF 


7425 




LI 


R3,Y'7FFFFFF* 


ALLOW TIYE TO DO THIS 


f^D74250 


007484 


41F0 


1A8C 




7426 


TSTB.20 


BAL 


R15,TSTBRK 


CHECK FOR 3REAKING OUT 


KTD74260 


007488 


2731 






7427 




SIS 


E3,1 


DECREHSNT TIMER 


1TD74270 


♦00748A 


2033 




=007484 


7428 




ENZ 


TSTB.20 




wttj7U280 


00748C 


4150 


874C 


=007BDC 


7429 




BAL 


R14,SENSTA 


GET STATUS 


W"D74290 


007^90 


E6 50 


80DF 


=007572 


7430 




LA 


?5,TB.E001 


NO INTERRUPT OCCURRED ON TRANSTION TO 


M"'D''4300 


007494 


24 01 






7431 




LIS 


RO^'OV 


EXPECTED STATUS 


f' T 'D74310 


007496 


4000 


8F2E 


=0083C8 


7432 


TBR01.1 


STH 


RO,STATGD 




wt , d' 7 4320 


00749A 


41E0 


28AE 




7433 




BAL 


R14,T0ERR0RB 


DRIVE AND STATUS 


V^r)7!j330 


00749E 


E6F0 


2A4C 




7434 


' 


LA 


P15,MESSAGE1 




jfTT)7H340 


0074A2 


E6E0 


90F0 


=008596 


7435 




LA 


F.14,C0NTKSG 


SUSPECTED ERROR '*ITH CONTROLLER 


"^074350 


0074A5 


4300 


8E22 


=C082CC 


7436 
7437 


* 


B 


SRPORX 




M'P^74360 
M"D74370 


0074AA 


41E0 


872E 


=007BDC 


7438 


TSTB.2A 


BAL 


R14,SENSTA 


CHECK STATUS 


v m 374380 


0074AE 


C430 


0001 




7439 




NHI 


R3,X'01 ' 


FOR DU 


«^n7lH90 


0074B2 


4230 


8E98 


=00834E 


7440 




ENZ 


PASS 


ITS OK 


vt D7U400 


0074S5 


E650 


80DC 


=007596 


7441 




LA 


?5,T3.E002 


AFTER DU INTERRUPT, INCORRECT STRTU^ 


V707H410 
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0074BA 
0074BE 

0074C2 
0074C6 
0074CC 
0074D0 
0074D4 
0074D8 
0C74DC 
0074E2 
007UE5 

*0074EA 
0074EC 
0074F0 

♦0074F2 
0074F4 
0074F8 
0074FC 
007500 
007504 
007508 
00750C 
007510 
007516 
00751A 
00751C 
00751E 
007522 
007526 

00752A 
00752C 
007530 
007534 
007538 
00753C 
007540 

007544 
007548 
00754C 
007550 
007554 
007558 

00755C 
007564 
00756C 
007570 
007572 
00757A 
007582 



:9C0 0025 

4300 FFD4 =0074S6 



41F0 


8804 


=007CCA 


U1F0 


8EC2 


=00838C 


3C0O 


7544 




ocoo 


7544 




"650 


8120 


=0075FP 


U1F0 


1802 




F63C 


07FF 


FFFF 


41E0 


86F6 


=007BDC 


73 30 


0001 




233B 




=007500 


U1F0 


1A8C 




2731 






2038 




=0074E2 


F.550 


80C4 


=0075BC 


41F0 


8E72 


=00836F 


4300 


8E4E 


=00834E 


41E0 


8696 


=D07B9A 


41E0 


86D4 


=007BDC 


C430 


0001 




4230 


8878 


=007D88 


F800 


0001 


D4C0 


41E0 


87C8 


=007CF2 


2701 






2C31 




=00751B 


41E0 


86BA 


=007 Ere 


C430 


0001 




4230 


8E24 


=00834F 


2404 






4000 


8E98 


=0083C8 


"650 


8028 


=007E5C 


41E0 


2564 




E6F0 


2A4C 




S5S0 


8FEA 


=00852A 


4300 


8D88 


=0082CC 


41F0 


2836 




4800 


8EBE 


=00840A 


C300 


OOOE 




4330 


133C 




41F0 


8800 


=007D58 


4300 


FEF4 


=007450 



7442 




LKI 


R0,X'25" 


7443 




B 


TBR01.1 


7445 


TSTB.1 


BAL 


R14,CDISARtf 


7445 




BAL 


R15,L0CPTOP 


7447 




DAC 


TSTB.END 


7448 




DAC 


TSTB.END 


7449 




LA 


R5,TB.KSG2 


7450 




BAL 


R15, PRINT 


7451 




LI 


R3,Y'7FFFFFF' 


7452 


TSTB.01 


BAL 


R14,SENSTA 


7453 




THI 


R3,X'01' 


7454 




BZ 


TSTB.10 


7455 




BAL 


F15,TSTBRK 


7456 




SIS 


R3,1 


7457 




BNZ 


TSTB.01 


7458 




LA 


R5,TB.E003 


7459 




BAL 


R15,L0OP2 


7460 




B 


PASS 


7461 


TST3.10 


BAL 


R14,CCLEAR 


7462 




BAL 


R14,SENSTA 


7453 




NHI 


B3,X'0V 


7464 




BNZ 


IT.C 


7465 




LI 


SOjY'lDaCO' 


7466 




BAL 


R14,CUNLD 


7467 


TB. 1 


SIS 


R0,1 


746S 




BNZS 


TB.1 


7459 




BAL 


R14,SENSTA 


7470 




NHI 


B3,X'0V 


7471 




BNZ 


PASS 


7472 


* 






7473 




IIS 


R0,4 


7474 




STH 


R0,STATGD 


7475 




LA 


R5,TB.E000 


7476 




BAL 


R14,T0ERR0RA 


7477 




LA 


R 15, MESSAGE 1 


7473 




LA 


R14,DRIVMSG 


7479 




B 


ERRORX 


7480 


* 






7481 


TSTB.END 


BAL 


R15,TST.DRIV 


7482 




LK 


R0,DRIVSAV1 


7483 




THI 


RO^'E' 


7484 




BZ 


TSTEND 


7485 




EAL 


R15,IT.B1 


7485 




B 


TSTB.2 



EXP STATUS 



DISARM INTERRUPTS FROM 0CCU3 D IN^ 

CALCULATE ADDRESSES 

NEXT SEQUENCE 

PROCEED LIMIT 

CHECK THAT DRIVE IS ON LINE 

MESSAGE MUST 3E PRINTED 

ALLOW TIME 

CHECK STATUS FOR NOT DU 

IF IT IS NOT 

ATTEMPT UNLOAD 

CHECK FOR BREAK DEPRESSION 

ELSE BAIT FOR DRIVE TO BE ONLINE 

TIMED OUT WAITING FOR ON LINE STATUS 



CLEAR INTERFACE 

SENSE THE STATUS 

CHECK TO SEE IF DEVICE 

IS ON LINE. GIVE NOTICE IF NOT 

LOAD TIBER C0UNTC2 MINS. ) 

UNLOAD TAPE 

DECREMENT COUNTER 

KEEP DOING UNTIL ZERO 

LOAD STATUS 

IS DEVICE NOW DU? 

YES! END TEST 

EXPECTED STATUS(DU) 
SAVE IT 

TAPE DID NOT UNLOAD 
DRIVE, STATUS'S 



CHECK FOR OTHER DRIVES 

CHECK FLAG 

IS IT SET 

NO, END TEST 

INIT TEST FOR OTHER DRIVES 

BEGIN TEST 3 



5441 5045 2044 4944 

204E 4F54 2055 4E4C 

4F41 4420 

ODQh 

4E4F 2049 4E54 4552 

5255 5054 204F 4343 

5552 5245 4420 4F4S 



7488 TB.EOOO DC 



7489 TB.E001 DC 



C'TAPE DID NOT UNLOAD ' ,X * ODOA ' 



C'NC INTERRUPT OCCURRED ON MANUAL DU',X'ODOA" 



MTD74420 
MTD74430 

WTD7KU50 
MTD74460 
MTD74470 
M""D744^0 
MTD7449C 
M m D74500 
!{Tn74M0 
MTD _ '4520 
MTD74530 
<fTT)74540 
»rD74550 
MTD74560 
HT074570 
H^D74S80 
HTD74590 
M""D74600 
MTn74«10 
MTD74620 
MTD74630 
HT-D74640 
MTn74650 
MTD74660 
MTD74670 
MT"D74680 
MT-D74690 
MTD74700 
MT"D74710 
M"'D74720 
MTD74730 
M'"D74740 
MT'D74750 
MTD74760 
MTD74770 
M"'D747S0 
MTO74790 
M" , D74R00 
MTD7UR10 
MT>74820 
MTD74830 
MTD74840 
M^D7-4850 
T" , D74 5«;n 

MTD74880 



WTD74890 
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TESTS 



00758A 


204D 


414E 


5541 


4C20 


007592 


4455 








007594 


ODOA 








007596 


494K 


434F 


5252 


4543 


00759E 


5420 


5354 


4154 


5553 


0075A6 


2041 


4654 


4552 


2044 


0075AE 


5520 


494E 


5445 


5252 


0075B6 


5550 


5420 






0075BA 


ODOA 








007^BC 


5449 


4D45 


4420 


4F55 


0075C4 


5420 


5741 


4954 


494E 


0075CC 


4720 


464F 


5220 


4F4E 


0075D4 


204C 


494E 


4520 


5354 


0075DC 


4154 


5553 






0075E0 


ODOA 








0075E2 


5455 


524E 


2044 


5249 


0075EA 


5645 


204F 


4646 


204C 


0075F2 


494E 


4520 






0075F6 


ODOA 








0075F8 


5455 


524E 


2044 


5249 


007600 


5645 


204F 


4E20 


4C49 


007608 


4E45 








00750A 


ODOA 









7490 TB.E002 DC C'INCOHPECT STATUS AFTER DU INTERRUPT" , X • ODOA ' M-m^goo 

7491 T3.E003 DC C'TIMED OUT WAITING FOR "N LINE STATDS ■ ,T ■ ODOA • *"'D74910 

7492 TBHSG1 DC C'TUfiN DRIVE OFF LINE' , X ' ODOA • VTD74920 

7493 TB.KSG2 DC C'T'JHN DRIVE ON LINE" , X' ODOA ■ *^D74930 



HIGH ?EH 
""EST Z 
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7495 
7495 
7U97 
7493 
7499 
7500 
7501 
7502 
7503 
750U 
7505 
7505 
7507 
7509 
7509 



******************************************************* 

* * 

* TESTC * 

* * 

* TEST C IS A SCOPE LOOP THAT HILL READ AND WRITE * 

* THROUGH THE SELCH OR THE MUX PUS. lES 1 ' 1 C WILL * 

* WORK IN TESTHODE OR TALK DIRECTLY TO TAPE DE- * 

* PENDING ON OPTION SET-UP. * 

* * 

* APPLICABLE OPTIONS: * 

* * 

* DRIVE, SELCH, ONLINE, TF.HODE, DATA, AND BYTES. * 

* * 

******************************************************* 



YTT)7uq50 
fTD74960 
M^T)74970 
"^074980 
«' T 'D74990 
XTD75000 
YTD75010 
m?D7^020 
KTD75030 
vtq-75040 
WTD75050 
MTD75060 
1TD75070 
STD75080 
«TD"'5190 



0C750C 


4810 


2052 




7511 


TESTC 


LH 


R1,DRIVE+$VALU1 


GET DRIVE ADDRESS 




M^D75110 


007610 


4010 


8DF4 


=008408 


7512 






STH 


R1,DRIVSAV 


SAV IT 




VTD75120 


007614 


2401 






7513 






LIS 


F0,1 


SET FLAG 




>f , D75130 


007616 


4000 


8DF0 


=00840?, 


7514 






STH 


R0,DRIVSAV1 






¥■"075140 


00761A 


4320 


2108 




7515 






LH 


R2,S£LCH+$VAL'J1 


SELCH TRANSFERS SELECTED 




MTD75150 


00761E 


41E0 


867C 


=007C9E 


7515 






BAL 


R14,CST0P 


STOP SELCH 


R01 


HTr>7si60 


*007622 


204B 




=00760C 


7517 






BO 


TESTC 


BEGIN TEST C IF FALSE SYNC 


R01 


w^D75170 


007624 


41 SO 


8676 


=007C9F 


7518 






BAL 


R14,CST0P 


FOR SURE 


R01 


MT.7518O 


007628 


7 3A0 


200C 




7519 






LHL 


R10,BYTES+$VALU1 


GET BYTES VALUE 




<^D75190 


00762C 


27A1 






7520 






SIS 


R10,1 






1TD75200 


00762E 


085A 






7521 






LR 


R5,R10 


LOAD BYTE VALUE INTO ANOTHER 


REGISTER 


"ITD75210 


007630 


4840 


2036 




7522 






LH 


R4,DATA+$VALU1 


LOAD ALTERNATE BYTE PATTERN 




»" , D''5220 


*007634 


2133 




=00763A 


7523 






ENZ 


TC.000 


DATA PATTERN IS USER SPECIFIED 


f" , D75230 


007636 


4840 


8DF6 


=008430 


7524 






LH 


R4,TESTPAT+10 


DATA PATTERN A55A 




*' T, D75240 


00763A 


4040 


8DE6 


=008424 


7525 


TC. 


000 


STH 


P4,DATAPAT 


STORF IT 




"""D75250 


00763E 


4800 


20DE 




7526 


TESTC. 1 


LH 


RC0NLINE+SVALU1 


CHECK IF ONLINE TESTING? 


R01 


!« T 'D75260 


♦007642 


2138 




=007652 


7527 






BNZ 


TESTC. 1A 


YES, THEN SET UP FOR IT 


R01 


WT-D75270 


007644 


27«1 






7528 






SIS 


R10,1 


ADJUST FOR PROPER TRANSFER 




WTD75280 


007646 


41E0 


8580 


=007ECA 


7529 






BAL 


R14,THCLEAP 


OTHERWISE, CLEAR THE BOARD 


R01 


3TD75290 


00764A 


4 1E0 


863E 


=007C8C 


7530 






BAL 


R14,CTESTKDE 


PUT INTO TESTHODE 


R01 


«f T D75300 


00764E 


4300 


8066 


=0076B8 


7531 






B 


TESTC. 1B 


CONTINUE 


R01 


^■^075310 


007652 


41E0 


8544 


=007B9A 


7532 


TEE 


ITC. 1A 


BAL 


R14,CCLEAR 


CLEAR ALL 


R01 


f^D75320 


007656 


4240 


FFB2 


=00760C 


7533 






BO 


TESTC 


START TEST OVER IF FALSE SYNCR01 


HTD75330 


00765A 


F8C0 


007F 


FFFF 


7534 






LI 


RO^^FFFFF" 


SET UP TI5ER 


R01 


«fH)75340 


007660 


41E0 


8578 


=007BDC 


7535 


TC. 


001 


PAL 


R14,SENS7A 


GET DRIVE STATUS 


R01 


M"'D753^0 


007664 


C330 


0014 




7536 






THI 


R3,X"14* 


NO POTION SET 


R01 


*?T>753*0 


*007668 


2135 




=007672 


7537 






BNZ 


TC.002 


YES, NEXT 


R01 


«Tt)75370 


00766A 


2701 






7538 






SIS 


R0,1 


DECRKENT TI*ER 


R01 


f"D75380 


•00766C 


2036 




=007660 


7539 






BNZ 


TC.001 


CONTINUE WAIT 


R01 


STD75390 


00766E 


4300 


FF9A 


=00760C 


7540 






B 


TESTC 


START TEST C OVER IF NOT 


R01 


MTD75400 


007672 


C330 


0020 




7541 


TC. 


002 


THI 


ZZ r y.'20' 


IS TAPE AT BOT? 


R01 


Y T D75410 


007676 


4230 


8030 


=0076AA 


7542 






BNZ 


TC.004 


THEN NO REWIND 


P01 


«Tr)75420 


00767A 


41E0 


8614 


=007C92 


7543 






BAL 


F14,CRFW 


ISSUE REWIND COM*AN 


P01 


fTD75430 
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TEST C 






















00767E 


F800 


007F 


FFFF 


7544 




LI 


E0,Y'7FFFFF' 


TIME? 


R01 


MTD75440 


007684 


41F0 


8554 


=007PDC 


7545 


TC.002A 


BAL 


B14,SENSTA 


CHECK TAPE STATUS 


P01 


v^D754^0 


007688 


2345 




=007692 


7546 




BNOS 


TC.002E 


TAPE IS IN MOTION 


R01 


^"075460 


00768A 


2701 






7547 




SIS 


R0,1 


DECREMENT TIMER 


R01 


fTD75470 


00768C 


2034 




=007684 


7548 




RNZS 


TC.002A 


WAIT 


R01 


M' T, r>754fi0 


00768E 


4300 


FF7A 


=00760C 


7549 




F 


TESTC 


BEGIN' TESTC AGAIN 


P01 


'?' T 'T>75490 


007692 


F800 


007F 


FFFF 


7550 


TC.002B 


LI 


R0,Y'7FFFFF' 


^IKEP 


R01 


•JTD7S500 


007698 


41F0 


8540 


=OO7B0C 


7551 


TC.003 


BAL 


R14,SENSTA 


CHECK DRIVE STATUS 


R01 


MT>75510 


00769C 


C330 


0014 




7552 




THI 


R3,X*14' 


NO MOTION SET? 


R01 


MTD75520 


*0076AO 


2135 




=0076AA 


7553 




6NZ 


TC.004 


OK, CONTINUE 


R01 


M^D75530 


0076A2 


2701 






7554 




SIS 


R0,1 


DECREMENT TIMER 


R01 


H1-D75540 


*0076A4 


2036 




=007698 


7555 




BNZ 


TC.003 


WAIT 


R01 


f rT 'D75550 


0076A6 


4300 


FF62 


=00760C 


7556 




B 


TESTC 


STAR T TESTC AGAIN 


R01 


M'D75560 


0076AA 


41E0 


8524 


=007BD2 


7557 


TC.004 


BAL 


B14,CDESS 


ISSUE DENSITY COMMAND 


R01 


M^D75570 


0076AE 


C3A0 


0001 




7 558 




THI 


R10,X'0001 ' 


IS THIS AN ODD BYTE? 


R01 


M^D75580 


*0076B2 


2333 




=0076P8 


7559 




BZ 


TESTC. 1B 


NO, CONTINUE 


R01 


M^D75590 


0076B4 


41E0 


8630 


=007CE8 


7560 




BAL 


R14,CUR0DBY 


ISSUE ODD BYTE COMMAND 


R01 


M' T 'D75600 


007638 


4800 


2124 




7551 


TESTC. 13 


Lfl 


R0,TRM0DE+$VALU1 


MODE OF TRANSFER? 




^T\JC,K-\Q 


0076BC 


4330 


8136 


=0077F6 


7562 




BZ 


TC.100 


HEAD-WRITE TRANSFERS SELECTED 


MTD75620 


0076C0 


41F0 


874C 


=007F10 


7563 




BAL 


R15,REST0RE1 


ENABLE INT 




MTD75630 


0076C4 


E560 


9308 


=0089B0 


7564 




LA 


E6,WHTBUF 


LOAD ADDRESS OF WRITE BUF 




ifPl)7 51 40 


0076C8 


5060 


8E08 


=0C84D4 


7555 




STA 


R6,WBUF 


STORE ADDRESS 




M'"D75650 


0076CC 


2470 






7566 




LIS 


S7,X*0' 


ZERO CUT INDEX COUNTER 




M'"D75660 


0076CE 


4047 


92FE 


=0089D0 


7567 


LC.1 


STH 


R4,WRTBUF<E7) 


STORE PATTERN INTO WRITE BUF 




MTD75670 


0076D2 


2672 






7568 




AIS 


E7,2 


INCREMENT WRITE BUFFER IOC 




M^D75680 


0076D4 


27A2 






7569 




SIS 


E 1 , 2 






MTD75690 


*0076D6 


2284 




=0076CE 


7570 




BNL 


LC.1 






MTK75700 


0076D8 


41E0 


85C2 


=007C9E 


7571 




BAL 


E14,CST0P 


FORCE SELCH STATE 




M m D75710 


0076DC 


41E0 


85BE 


=007C9E 


7572 




BAL 


S14,CST0P 






M^D75720 


0076E0 


E630 


92EC 


=0089D0 


7573 




LA 


E3,WETBUF 


LOAD WRITE BUFFER ADDRESS 




MTD75730 


0076E4 


0A35 






7574 




AAE 


R3,R5 


CALCULATE ENDING ADDRESS 




M m D75740 


0076E6 


5030 


8DEE 


=0084r8 


7575 




ST 


R3,ENDBD l: ' 


STORE ENDING ADDR. OF BUFFER 




M n 'D75750 


0076EA 


41F0 


860C 


=007CFA 


7576 




BAL 


R14,SRBUF 


SET UP SELCH WRITE ADDRESSES 




VTD75760 


0076EE 


41E0 


858E 


=007C80 


7577 




BAL 


E14,CWEITE 


AND WRITE MODE 




M"'D75770 


0076F2 


E6C0 


8014 


=0077CA 


7578 




LA 


BO, LC.4 


INTERRUPT ADDRESS 




f"D75780 


0076F6 


4000 


21E8 




7579 




STH 


E0,DEVI)JT+2 






wtt)75790 


0076FA 


7300 


200C 




7580 




LHL 


B0,BYTE?+$VALU1 


TI"VAL'JE 




M' T, D75800 


0076FE 


41E0 


8584 


=007C86 


7581 




BAL 


E14,CG0 


GIVE SELCH THE GO 




M"'D75810 


007702 


41F0 


162A 




7582 




BAL 


R15, TIMER 


WAIT FOR INTERRUPT 




T?D75820 


007706 


4300 


FF02 


=00760C 


7583 




3 


TESTC 


BEGIN TEST AGAIN 




KTD75830 


00770A 


4 1F0 


86FA 


=007E0P 


7584 


LC.4 


BAL 


R 15, RESTORE 


RESTORE R1,R2,PSW 




"TD75840 


00770?: 


41E0 


853A 


=007C«C 


7585 




BAL 


R14,SENSTA2 


GET STATUS 




M^D75850 


007712 


41F0 


8588 


=007C9F 


75S6 




BAL 


S14,CST0P 


INIT SELCH 




M' r D75S60 


007716 


41E0 


8584 


=007C9E 


7587 




BAL 


R14,CST0P 


CLEAR IT TOO 




V , D75870 


00771A 


4800 


20DE 




7588 




LH 


S0,0NLISE+$VALU1 


IS THIS ONLINE VERSION? 


R01 


MTP5880 


00771E 


4330 


8050 


=007772 


7589 




BZ 


TC.5 


NO, TESTMODE 


R01 


MTD75890 


007722 


f800 


007F 


FFFF 


7590 




LI 


P.O^^FFFFF' 


SET UP TIMER 


R01 


MTD75900 


007728 


41E0 


84B0 


=007BDC 


7591 


TC.005 


BAL 


R14,SENSTA 


GET DRIVE STATUS 


F01 


MTP75910 


00772C 


3 30 


0014 




7592 




THI 


S3,X' 14' 


NO MO^IOK SET 


P.C1 


M^D75920 


♦007730 


2135 




=00773A 


7593 




BIZ 


TC.006 


YES, NEXT 


R01 


M m D75930 


007732 


2701 






7594 




SIS 


R0,1 


r^vQ'B'iTV'? T]rwT?p 


R01 


MTD75940 


*007734 


2035 




=007728 


7 595 




3NZ 


TC.005 


CONTINUE WAIT 


R01 


MTP75950 


007736 


4300 


FED2 


=00760C 


7 596 




B 


TESTC 


START TEST C OVER IF NOT 


R01 


MTD75960 
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00773A 


C330 


0020 




7597 


TC.006 THI 


R3,X'20' 


IS TAPE AT ROT? 


R01 


1^075970 


00773E 


42 30 


8030 


=007772 


7598 


BNZ 


TC.5 


THEN NO REWIND 


R01 


* m D75980 


007742 


41E0 


854C 


=007C92 


7599 


BAl 


R 14, CREW 


ISSUE REWIND COM AN 


R01 


MTflTCQQO 


007746 


7300 


007F 


FFFF 


7600 


LI 


R0,Y'7FFFFF' 


TIMER 


R01 


* -"076000 


00774C 


41E0 


848C 


=007PDC 


7601 


TC.006B BAL 


R14,SENSTA 


CHECK TAPE STATUS 


P01 


MTD75010 


007750 


2345 




=00775? 


7602 


BNOS 


TC.007 


TAPE IS IN NOTION 


R01 


fTT)75020 


007752 


2701 






7603 


SIS 


E0,1 


DECREMENT TIMER 


R01 


H'"D76030 


007754 


2034 




=00774C 


7604 


BNZS 


TC.006B 


WAIT 


R01 


w , r>76040 


007756 


4300 


FE32 


=00760C 


7605 


g 


TESTC 


BEGIN TESTC AGAIN 


R01 


N^D^SCSO 


00775A 


"800 


007F 


FFFF 


7606 


TC. 007 LI 


RC,Y'7FFFFF' 


TIMER 


R01 


fi" 1)75060 


007760 


41E0 


8478 


=007EDC 


7607 


EAL 


R14,SFNSTA 


CHECK DRIVE STATUS 


R01 


Y'"D76070 


007764 


C330 


0014 




7608 


THI 


R3,X'14' 


NO MOTION SET? 


R01 


H T D76080 


*007768 


2135 




=007772 


7609 


BNZ 


TC.5 


OK, CONTINUE 


R01 


MTD76090 


00776A 


2701 






7610 


SIS 


R0,1 


DECREMENT TIMER 


R01 


WTD76100 


*00776C 


2039 




=00775? 


7511 


BNZ 


TC.007 


WAIT 


R01 


HTD76110 


00776E 


4300 


FE9A 


=00760C 


7612 


B 


TESTC 


START TESTC AGAIN 


R01 


*TD76120 


007772 


E610 


4001 


89D0 


7513 


TC.5 LA 


R1,RFADBUF 


LOAD ADDR. OF READ BUF. 




MTD76130 


007778 


5010 


8060 


=0084DC 


7614 


STA 


R1,RDBUF 


STORE IT. 




WTD76140 


00777C 


0A15 






7615 


A 5 


R1,R5 


ADD IT TO READ BUF. 




f' T 'D76150 


00777E 


5010 


8D56 


=0084D8 


7616 


STA 


R1,ENDBUF 


STORE IT AS END ADDRESS 




*' T 'D76160 


007782 


41F0 


8692 


=007E18 


7617 


BAL 


P15,CLRBUF 


CLEAR READ BUFFER. 




*TP76170 


007786 


41E0 


85A0 


=007D2A 


7618 


BAL 


R14,5EBUF 


SET UP SELCH READ ADDRESSES 




MTD761R0 


00778A 


7310 


8C7A 


=008408 


7619 


LHL 


R1,DRIVSAV 


GET DEV ADDRESS AGAIN 




1 T D76190 


00778E 


41E0 


84C8 


=007C5A 


7620 


BAL 


R14.CREAB 


PUT INTERFACE IN READ MODE 




H'"D75'>00 


007792 


E600 


8014 


=0077AA 


7621 


LA 


RO, LC.20 


INTERRUPT ADDRESS 




"•^076210 


007796 


4000 


21E8 




7622 


STH 


R0,DEYINT+2 






«' T, D76220 


00779A 


7300 


200C 




7623 


LHL 


R0,BYTES+$VALU1 


TIHVALUE 




M" , D"'6230 


00779E 


41E0 


84F6 


=007C98 


7524 


BAL 


R14,CG0READ 


GIYE THE SELCH THE GO 




M'"D76240 


0077A2 


41F0 


162A 




7625 


BAL 


R15,TIHER 


WAIT FOR INTERRUPT 




M^D76250 


0077A6 


4300 


FE62 


=00760C 


7626 


B 


TESTC 


BEGIN TEST AGAIN 




1T>762«0 


0077AA 


41F0 


865A 


=007F08 


7627 


LC.20 BAL 


R15, RESTORE 


RESTORE R1,R2,PSW 




MTD76270 


0077AE 


41E0 


849A 


=007C4C 


7628 


BAL 


R14,SENSTA2 






"TD76280 


0077B2 


41E0 


84E8 


=007C9E 


7629 


BAL 


R14,CST0P 


INIT SELCH 




MTD76290 


007786 


41E0 


84E4 


=007C9E 


7630 


BAL 


R14,CST0P 


CLEAR IT TOO! 




M T D76300 


00 77BA 


2420 






7631 


TC.COSPO LIS 


R2,0 


ZERO OUT TOGGLE INDFX REGISTER 


fTT)76310 


0077BC 


E630 


8C64 


=008424 


7632 


LA 


R3,DATAPAT 


GET ADDRESS OF WHERE DATA IS 




*TD76320 


0077C0 


2470 






7533 


LIS 


E7,0 


CLEAR INDEX REGISTER 




"TD76330 


0077C2 


1)363 


4200 


OOOC 


7534 


TC.COHP L3 


R6,0(R3,R2) 


DATA EXPECTED 




*TD76340 


0077C8 


0387 


4001 


89D0 


7635 


LB 


R8,READBUF(R7) 


DATA READ 




YTD76350 


0077CE 


0568 






7636 


C1R 


R6,H8 


COMPARE FOR EQUALITY 




HTD7 6 36 


0077D0 


4230 


FE38 


=00760C 


7637 


BNE 


TESTC 


BEGIN TESTC IF ERRORS 


R01 


MT-D76370 


0077D4 


2671 






7638 


AIS 


E7,1 


INCREMENT INDEX REGISTER 




MTD76380 


0077D6 


C720 


0001 




7639 


XKI 


R2,1 


REVERSE R2 




HT-D76390 


0077DA 


0557 






7640 


CLS 


R5,R7 


COMPARE TO BYTES 




1 m D76400 


♦0077DC 


208D 




=0077C2 


7641 


EL 


TC.COHP 


CONTINUE UNTIL FINISHED 




W^D76410 


0077BE 


41F0 


1A8C 




7642 


BAL 


R1S,TSTBRK 


CHECK FOR BREAK 




M""D76420 


0077E2 


41F0 


2836 




7543 


BAL 


R15,TST.DRIV 


SEE IF OTHER DRIVES 




"f"D76430 


0077E6 


7300 


8C20 


=00840? 


7644 


LHL 


R0,DRIVSAV1 






MTr>76440 


0077EA 


C300 


OOOE 




7645 


THI 


RO,X*E' 






H' T, D764 c ;0 


0077EE 


4330 


FE1A 


=00760C 


7646 


B? 


TESTC 


ELSE BEGIN AGAIN AT DRIVE 1 




y^D76460 


0077F2 


4300 


FE48 


=00763E 


7647 
7649 


E 
* 


TESTC. 1 






M" 1 1)75070 
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7650 


* 


HEAD 


WRITE 


SCOPE LOOP 






M' ,, D76500 










7651 


* 












*TD76510 


0077F6 


41E0 


8486 


=007C80 


7652 


TC, 


.100 


BAL 


R14,CWRITE 






M~n75520 


0077FA 


9t)14 






7653 


TC. 


.102 


WHR 


R1,F4 


WRITE DATA TO TAPE 




"■"D76530 


0077FC 


27A2 






7654 






SIS 


R10,2 


DECPEHENT BYTE COUN 1 " 




"■"D76 c 40 


*0077FE 


2282 




=0077FA 


7655 






bnl 


TC.102 


CONTINUE 




"•"D76550 


007800 


03 A5 






7656 
7657 


* 




L3 


R10,P5 


RESTORE 310 




"7076560 
MTP76570 


007802 


E690 


4001 


69D0 


7655 






LA 


R9,READB"F 


ADDRESS OF READ 3UFFEF 




WTD76580 


007808 


5090 


8CD0 


=00840" 


7653 






STA 


R9,RDBCF 


SAVr IT 




, 5TD76 C =90 


00780C 


0A95 






7660 






AAR 


R9,RS 


ADD TO IT 3YTES AHOUNT 




MTD76600 


00780E 


5090 


8CC6 


=008408 


7561 






STA 


E9,ENDBUF 


ADDRESS SET UP 




M m D76M0 


007812 


41F0 


8602 


=007F18 


7562 






PAL 


R15,CLRBUF 


CLEAR THIS READBUF 




MTD76620 


007816 


4800 


20DE 




7653 






LH 


R0,ONLINE+SVALU1 


ARE WE TALKING TO TAPE? 


R01 


"•"D75530 


00781A 


4330 


8050 


=00786E 


7654 






BZ 


TC.103 


NO, IN TESTYODE 


R01 


MTD76<;40 


00781E 


F800 


007F 


FFFF 


7665 






LI 


ROjY^FFFFF" 


SET UP TIMER 


R01 


"■"D76*50 


007824 


41E0 


83B4 


=007EDC 


7565 


TC. 


.105 


BAL 


S14,SENSTA 


GET DRIVE STATUS 


R01 


KTI>7pfifiO 


007828 


C330 


0014 




7667 






THI 


R3,X , 14" 


NO MOTION SET 


P01 


MTD76670 


*00782C 


2135 




=007836 


7653 






BNZ 


TC.106 


YES, NEXT 


R01 


M""D76690 


00782E 


2701 






7669 






SIS 


R0,1 


DECRKENT TIKEE 


R01 


MTD76690 


*007830 


2036 




=007824 


7670 






EN7 


TC.105 


CONTINUE WAIT 


R01 


"T0767OO 


007832 


4300 


FDD6 


=00760C 


7671 






B 


TESTC 


START TEST C OVER IF NOT 


R01 


!T"D76710 


007835 


C330 


0020 




7672 


TC. 


106 


THI 


H3,X*20' 


IS TAPE AT BOT? 


P01 


VD76720 


00783A 


4230 


8030 


=00786E 


7673 






ENZ 


TC.103 


THEN NO REWIND 


R01 


MTD75' 7 30 


00783E 


41F0 


8450 


=007C92 


7674 






BAL 


R14,CREK 


ISSUE REMIND COKKAN 


P01 


"■"076740 


007842 


F8 00 


007F 


FFFF 


7675 






LI 


RO^VFFFFF' 


TIKEP 


R01 


HTD76750 


007848 


41E0 


8390 


=007BDC 


7676 


TC. 


106B 


BAL 


R14,SENSTA 


CHECK TAPE STATUS 


P01 


M""D76760 


00784C 


2345 




=007856 


7677 






ENOS 


TC.107 


TAPE IS IN HOTION 


R01 


"/"D76770 


00784E 


2701 






7578 






SIS 


R0,1 


DECREKENT TIMES 


R01 


f"D76780 


007850 


2034 




=007848 


7579 






BN2S 


TC.106B 


WAIT 


R01 


"TD76790 


007852 


4300 


FDB6 


=00760C 


7580 






g 


TESTC 


BEGIN TESTC AGAIN 


R01 


"■"076800 


007856 


F800 


007F 


FFFF 


7681 


TC. 


107 


LI 


R0,Y*7FFFFF' 


TISER 


R01 


1TD76«10 


00785C 


41E0 


837C 


=007BDC 


7582 






BAL 


R14,SENSTA 


CHECK DRIVE STATUS 


P01 


"■"D76820 


007860 


C330 


0014 




7633 






THI 


R3,X*14* 


NO MOTION SET? 


801 


STD76830 


*007864 


2135 




=00786E 


7684 






BNZ 


TC.103 


OK, CONTINUE 


R01 


MTD76840 


007866 


2701 






7685 






SIS 


R0,1 


DECREKENT TISER 


P01 


MTD76850 


*007868 


2039 




=007856 


7686 






ENZ 


TC.107 


"AIT 


R01 


»fH)76860 


00786A 


4300 


FD9E 


=00760C 


7687 






F 


TESTC 


START TESTC AGAIN 


R01 


M." , D76870 


00786F 


41E0 


83E8 


=007C5A 


7688 


TC. 


103 


BAL 


R14,CREAD 






"TD76880 


007872 


S690 


4001 


89D0 


7589 






LA 


P9,READBUF 






MTD76890 


007878 


F800 


0007 


FFFF 


7690 






II 


PCY^FFFF' 


TIMER 


R01 


MTD75900 


00787E 


41E0 


835A 


=007EDC 


7691 


TC. 


104 


BAL 


R14,SENSTA 


CHECK STATUS 




"""076910 


*007882 


2335 




=00788C 


7692 






BNC 


TC. 104A 


BRANCH OUT ON NOT BUSY 


P01 


"■"D76920 


007884 


2701 






7693 






SIS 


50,1 


DECREMENT TIMER 


RO "1 


MTn75930 


*007885 


2034 




=00787E 


7694 






PSZ 


TC.104 


WAIT 


501 


"•"D76940 


007888 


4300 


^D80 


=00760C 


7695 






p 


TESTC 


START TEST C OVER 


R01 


"■"D76950 


00788C 


i)919 


0000 




7696 


TC. 


104A 


SH 


81,0(89) 


READ INTO READ BUFFER 




MTD76960 


007890 


2692 






7697 






AIS 


R9,2 


INCREMENT ADDRESS 




MTT)76°7n 


007692 


711.7 






7698 






SIS 


R10,2 


DECREMENT BYTE COUNT 




YTD76980 


007S94 


228P 




=C0787E 


7699 






BNLS 


TC. 104 


CONTINUE TIL COMPLETE 




MTD76990 


007896 


4300 


FF20 


=0077BA 


7700 






:i 


TC.CO"P0 


CHECK DATA 




VTD77000 
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7704 
7705 
7706 
7707 
770R 
7709 
7710 
7711 
7712 
7713 
7714 
7715 
7716 
7717 
7718 
7719 
7720 
7721 
7722 
7723 
7724 
7725 
7726 
7727 
7723 
7729 
7730 
7731 
7732 
7733 



****************************************************** * 

* T F S T D * 

* * 

* TEST D IS A WRITE-ONLY SCOPE LOOP. * 

* THIS TEST IS DESIGNED TO TEST THE WRITE * 

* CAPABILITIES OF THE 6250 INTERFACE SHOULD * 

* SOKE PROBLEM OCCUF AND WRITE IS SUSFECTED * 

* TO BE AT FAULT. * 

* * 

* THIS TEST CAS BE RUN DIRECTLY FROM THE * 

* INTERFACE TO THE TAPE DRIVE. (TRMODE=0 ) * 

* OR * 

* THIS TEST CAN RUN THROUGH THE SELCH TO * 

* THE TAPE DRIVE. (TR«0DE=1) * 

* * 

* THIS TEST TERMINATES ON BREAK KEY * 

* DEPRESSION ONLY. ERROR "ESSAGES ARE * 

* NOT APPLICABLE IN A ?COPE LOOP. * 

* * 

* OTHER OPTIONS THAT ARE APPLICABLE IN * 

* TEST D ARE (BYTES) AND (RECORDS). * 

* * 

* ALSO, THE (DATA) OPTION IS APPLICABLE * 

* HERE TO ALLOW THE USER TO SPECIFY A * 

* SPECIFIC DATA PATTERN IF DESIRABLE. * 

* * 

* A DRIVE ADDRESS AND SELCH ADDRESSdF * 

* APPLICABLE TO YOUR USE MUST BE SPECIFIED * 

* IN THE DRIVE AND SELCH OPTIONS. * 
******************************************************* 



MT)77040 
WTD77050 
1i , P770fiO 
V'"D77070 
"TD77080 
MTD77090 
HTD77100 
^Tn77110 
1TD77120 
TTD77130 
*fTD77140 
MTD77150 
WTD77160 
*Ti)77170 
HTD77180 
KTD77190 
f n, p77200 
MT077210 
STD77220 
NT077230 
«ttt)77240 
HTD77250 
HTD77260 
^'H)77270 
!f-"D77280 
1TD77290 
MTD77300 
MTD77310 
"'"D77320 
HTD77330 



00789A 
00789E 
0078A2 
*0078A6 
0078A8 
0078AC 
0078BO 
0078B4 



0078B8 
0C78BC 
0078C0 
0078C4 
0078C8 
0078CA 
►0078CE 
007SDO 
0078D4 



41F0 84AC 
41F0 8802 
4840 2036 
2133 

4840 8B84 
4040 8B74 
4800 2124 
4230 8062 



7380 20FA 
41F0 82DA 
41E0 830E 
7350 200C 
2751 
C350 0001 



=007D4A 
=0080A4 

=0078AC 
=008430 
=008424 

=00791A 



=007P9A 
=007BD2 



0078D4 
007CF8 
41F0 83A8 =007C80 



2133 
41E0 8414 



7735 
7736 
7737 
7738 
7739 
7740 
7741 
7742 
7743 
7744 
7745 
774-5 
7747 
7748 
7749 
7750 
7751 
7752 
7753 



TESTD 
TD.O 



TD.000 



BAL R15,TESTINIT 

BAL R15,V?RTENB 

LH R4,DATA+$VALU1 

ENZ TD.000 

LH R4,TESTPAT+10 

STH R4,DATAPAT 

LH R0,TRMODF+$VALU1 

3SZ TD.100 



INIT TEST 



USER SPECIFIED DATA PATTERN 
ELSE USE A55A 

CHECK MODE OF TRANSFER SELECTED 
SFLCH TRANSFERS IF SF^ 



* THIS IS GOING TO BE DONE WITH DATA WRITES 

LHL RS,REC0?DS+$VALU1 

TD.OOAA EAL R14,CCLEAR 

BAL R14,CDENS 

LHL R5,BYTES+$VALU1 

SIS R5,1 

THI R5,y0001' 

BNZ TD.001 

BAL R14,CWRCDBY 

TD.001 PAL R14,CWRI?E 



CLEAP INTERFACE 

DENSITY COMMAND 

GET BYTES VALUE 

DECREASE BY 1 

IS IT AN ODD VALUE? 

NO. 

ELSE ISSUE ODD BYTE COMMAND 



MTD77?50 
MTD77360 
i»TD77370 
"TD77380 
1^077390 
v?D77400 
W"D77410 
WT077U20 
MTD77430 
MTD77440 
MT-0774S0 
VTr,77460 
fTT)77U70 
M T D77480 
vTr)77490 
■« n 'D77S00 
"TD77510 
w""P77S20 
w" 1)77^30 
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TEST 



0078D8 
0078DA 
0078DC 
0078DE 
0078E4 

*0078E8 
0078EA 

*0078EC 
0078EE 
0078F2 
0078F6 
0078FA 

0078FE 
007900 
007904 
007S0A 
00790E 
007912 
*007914 
007916 



00791A 
00791E 
007922 
007926 
00792A 
00792C 
00792E 
007932 
007936 
00793A 
00793E 
007942 
►007946 
007948 
00794C 
007950 
007954 
007958 
00795A 
00795C 
007960 
007964 
007968 
00796C 
007970 
007974 
00797S 



=007806 



=0078F2 



=0078E4 



9814 

2752 

2282 

F800 007F FFFF 

41E0 82F4 =007BDC 

2145 

2701 

2034 

4300 FFA8 =00789?. 

C530 0014 

C330 0020 

4230 80AE =0079AC 

2781 

4230 FFB8 =0078BC 

F800 007F FFFF 

41F0 82CE =007BDC 

4240 809A =0079AC 

2701 

2035 =00790* 

4300 FF80 =00789*. 



0000 


791A 




4820 


2108 




E640 


8302 


=008424 


7380 


20FA 




7360 


200C 




2761 






0856 






41F0 


8512 


=007E44 


41F0 


8 4DA 


=007F10 


41E0 


8250 


=007B9A 


41E0 


8294 


=007BD2 


41E0 


83B8 


=007CFA 


C350 


0001 




2133 




=00794C 


41E0 


839C 


=007CE8 


41S0 


8330 


=007C80 


3600 


8014 


=007968 


4000 


21E8 




0806 






260F 






41E0 


8326 


=007C86 


41F0 


152A 




4300 


FF32 


= 00789?. 


41F0 


8U9C 


=007E08 


41E0 


82DC 


=007C4C 


41E0 


332A 


=007C9F 


u-iEO 


8326 


=007C9F 


F800 


007F 


FFFF 



7754 


TD. 


.002 


WHR 


P. 1 , P. 4 


7755 






SIS 


K5,2 


7755 






5SLS 


TD.002 


7757 


TD. 


.003 


LI 


B0,Y , 7FFFFF' 


7758 


TD. 


,0031 


BAL 


R14,SENSTA 


7759 






BO 


TD.003A 


7760 






SIS 


?0,1 


7761 






PNZ 


TD.0031 


7762 






g 


TESTD 


7763 


TD. 


.003A 


CLHI 


R3 , Y ' 1 4 ' 


7^64 






THI 


P3,X'20' 


7765 






BNZ 


TSTD.END 


7766 


* 








7767 






SIS 


R8,1 


7768 






BNZ 


TD.OCAA 


7769 


TD. 


.004 


LI 


R0,Y'7FFFFF' 


7770 


TD. 


,0041 


BAL 


R14,SENSTA 


7771 






BO 


TSTD.END 


7772 






SIS 


R0,1 


7773 






BNZ 


TD.0041 


7774 






p 


TESTD 


7775 


* DO THIS WHITE ONLY LOOP USING 


7777 


* 








7779 


TD. 


,100 


EQU 


* 


7780 






LH 


R2,SELCH+$VAL01 


7781 






LA 


H4,DATAPAT 


7782 






LKL 


R8,REC0RDS+$VALU1 


7783 






LHL 


R6,BYTES+$VALU1 


7784 






SIS 


56,1 


7785 






LR 


R5,R5 


7786 






BAL 


R15,?EL.3 


7787 






BAL 


R15,REST0RE1 


7788 


TD. 


,1000 


BAL 


R14,CCLEAR 


7789 






BAL 


R14,CDENS 


7790 






BAL 


R14,»33UF 


7791 






THI 


R5,X'0001 ' 


7792 






BNZ 


TD.1C02 


7793 






BAL 


R14,CWR0TBY 


7794 


TD. 


1002 


BAL 


R14,CWRITE 


7795 






LA 


R0,TD.1004 


7795 






STH 


R0,DEVINT+2 


7797 






LR 


R0,R6 


7798 






AIS 


R0,15 


7799 






BAL 


R14,CG0 


7800 






BAL 


R15, TIMER 


7801 






3 


TESTD 


7802 


TD. 


1004 


BAL 


D 15,PEST0RF 


7303 






BAL 


R14,SENSTA2 


7804 






BAL 


R14,CST0P 


7805 






BAL 


R14,CST0P 


7805 


TD. 


1005 


T T 


R0,Y*7FFFFF' 



WRITE CUT TO TAPE 

DECREASE BYT^ COUNT 

CONTINUE UNTIL LESS THAN ZERO 

TIME V.- 1UE 

WAIT FOR SO MOTION 

JUMP OUT WHEN NO MOTION SETS 

DECREMENT TIKE VALUE 

CONTINUE WAIT 

OTHERWISE, START TEST 

TAPE AT EOT? 
REWIND AND END TFS^ 

DECREMENT RECORDS COUNT 
OUTPUT ALL RECORDS 
LOAD TIME LIMIT 
GET INTERFACE STATUS 
END TEST 
DECREMENT' TIMER 
CONTINUE WAIT 
BEGIN TEST AGAIN 



GET SELCH ADDRESS 

GET DATA ADDRESS 

GET RECORD AMOUNT 

GET BYTES AMOUNT 

ADJUST FOR HALFWORD COUNT 

COPY IT 

ENABLE INT 
CLEAR COMMAND 
DESSITY COMMAND 

IS IT AN ODD VALUE 
NO COMMAND IF NOT 

ISSUE ODD BYTE COMMAND 
WRITE COMMAND 
INTERRUPT ADDRESS 

TIMVAL 

INCREASE SOME B01 

SELCH GO COMMAND 

WAIT ?0? SELCH INTERRUPT R01 

BEGIN TEST AGAIN R01 

RESTORE 31,R2,PSW 

CHECK SELCH STATUS 

CHECK ENDING ADDRESSES 

CHECK ENDING ADDRESSES 

TIME VALUE P01 



M" , D77540 
MTD77550 
f m i)77=;fiO 
M'"T>77570 
MTD77580 
M™P77S90 
M"D77600 
1*^1)77610 
H T D77620 
M' r D77630 
m^D77640 
MTD77650 
Hi , D77660 
M^D77670 
M' n D77630 
M'"D77690 
w?r)77700 
M'"D77710 
M" , D77720 
* m D77730 
MTD77740 

VTf)77760 
mt-t)77t7o 

mti)77790 
M T D77800 
M^D77«10 
M n 'D77320 
MTD77830 
M""D77840 
""'D77850 
M"'D77860 
MTD77R70 
MTD77880 
M'"D77890 
"TD77900 
MT , D77910 
MTD77920 
^077930 
vTT) 7 7q tt0 

MTD77950 
w" , D77960 
M" , D77970 
vr-r,77980 

M'"D77990 
MTD78000 
"TD78010 
M""D78020 
MTD78030 
M' T, D73040 
""■D78050 
M' P D78060 
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00797E 


41E0 


825A 


=007EDC 


7807 


TD. 


■10051 


PAL 


R14,SENSTA 


*007982 


2145 




=007980 


7808 






BO 


TD.1005A 


0079S4 


2701 






7809 






SIS 


R0,1 


*007936 


2034 




=0C797E 


7310 






r :i z 


TD. 10051 


007988 


4300 


PFOE 


=0C769A 


7811 






p 


TESTD 


00798C 


C330 


0020 




7812 


TD. 


100 5 A 


?HI 


. K3,X'20* 


*007990 


213E 




=307?AC 


7813 






BNZ 


TSTD.END 


007992 


2781 






7814 






SIS 


R8,1 


007994 


4380 


FF9F 


=007936 


7315 






BNL 


TD.1000 


007998 


F300 


007F 


FFFF 


7316 


TD. 


1006 


LI 


RC,Y*7FFFFF' 


00799E 


41 ?0 


823A 


=007FDC 


7817 


TD. 


10061 


PAL 


E14,SENSTA 


*0079A2 


2145 




=0079AC 


7813 






BO 


TSTD.END 


0079A4 


2701 






7819 






SIS 


R0,1 


*0079A6 


2034 




=00799E 


7S20 






snz 


TD. 10061 


0079A8 


4300 


FEEE 


=00789A 


7821 






3 


TESTD 


0079AC 


41F0 


8722 


=0C8CD2 


7823 


TSTD.END 


SAL 


R15,REWMT 


0079B0 


41F0 


1A8C 




7824 






3AL 


R15,TSTBEK 


0079B4 


41F0 


2836 




7825 






3AL 


R15,TST.DRIV 


007938 


4800 


8A4E 


=00840? 


7826 






LH 


E0,DFIYSAV1 


0079BC 


C300 


OOOE 




7327 






THI 


RO,X"E' 


0079C0 


4230 


FEDA 


=00789E 


7828 






BNZ 


TD.O 


0079C4 


4300 


FED2 


=00789A 


7829 






p 


TESTD 


0079C8 


4300 


FED2 


=00789E 


7830 






B 


TD.O 



WAIT FOR no NOTION 

R01 

DECREMENT TIMER 

CHECK AGAIN 

RESTART TES^ 

IS TAPE AT EOT? 

REWIND AND END. 

DECREMENT RECORD COUNT 

CONTINUE UNTIL FINISHED 

TIKE VALUE 

WAIT FOR NO MOTION 

R01 

DECREMENT TIMER 

CHECK AGAIN 

P01 



R01 
R01 
R01 



R01 
R01 

R01 



501 



OR CSKBF 

CHECK FOR BREAK 

SEE IF OTHER DRIVES ARE SPECIFIED 

LOOK AT DRIVSAV1 



CHECK OTHER DRIVES 



V 


n ?78070 


w- 


"D78080 


V 


"^■»8090 


V 


"") "78100 


V* 


"D78110 


V 


"D78120 


V 


"^3130 


V F 


""78140 


v f 


"D7S150 


V 


"D78160 


vt")78170 


M"D78180 


.MTD78190 


MTD78200 


^078210 


M T D78230 


v r 


"1-78240 


^' , '?78250 


"■"D78260 


»' D78270 


KTrjTgjgo 


MTD78290 


"^578300 
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7333 
7834 
7835 
7836 
7837 
7838 
7839 
7840 
7841 
7842 
7843 
7844 
7845 
7845 
7847 
7848 
7849 
7850 
7851 
7852 
7853 
7854 
7855 
7856 
7857 
7858 
7859 
7860 
7861 
7862 
7863 
7864 
7865 



******************************************************* 

* TEST? * 

* * 

* TEST E IS A READ-ONLY SCOPE LOOP. * 

* THIS TEST IS DESIGNED TO TEST THE ^EAP * 

* CAPABILITIES CF THE 6250 INTERFACE SHOULD * 

* SOHE PROBLEM OCCUR AND READ IS SUSPECTED * 

* TO EE AT FAULT. * 

* * 

* NOTE: TEST D MUST EE EXECUTED BEFORE TEST F * 

* FOR PROPER RESULTS! 

* * 

* THIS TEST CAN BE RUN DIRECTLY FEOH THE * 

* INTERFACE TO THE TAPE DRIVE. (TRKODE=0) * 

* OR * 

* THIS TEST CAN PUN THROUGH THE SELCK TO * 

* THE TAPE DRIVE. (TRK0DE=1) * 

* * 

* THIS TEST TERMINATES ON BREAK KEY * 

* DEPRESSION ONLY. ERROR HESSAGES ARE * 

* NOT APPLICABLE IN A SCOPE LOOP. * 

* * 

* OTHER OPTIONS THAT APE APPLICABLE IN * 

* TEST E f.?.E (3YTFS) AND (RECORDS). * 

* * 

* ALSO, THE (DATA) OPTION IS APPLICABLE * 

* HERE TO ALLOW THE USER TO SPECIFY A * 

* SPECIFIC DATA PATTERN IF DESIRABLE. * 

* * 

* A DRIVE ADDRESS AND SELCH ADDRESSdF * 

* APPLICABLE TO YOUR USE HUST BF SPECIFIED * 

* IN THE DRIVE AND SELCH OPTIONS. * 
******************************************************* 



M' P D'" } 330 
H^T)78340 
KTD78350 
TTD78360 
VTD78370 
•fT 1 7)78380 
»tt>79390 
MTD78U00 
>I' P D78410 
«" , D78420 
M"'D78430 
MTD78440 
1T , D78450 

H'"D78460 
HTD78470 
YTD78480 
M""D78490 
"■^078500 
MTD78510 
STD78S20 
1 m D78530 
, !"'D78540 
f"D78550 
>{ "^78560 
WTD78570 
M""D7S580 
* 1*078590 
1TD78600 
«!^D78610 
"TD78620 

M-»n-78<i30 
M^D78640 
*TD7 8«50 



0079CC 
007 9D0 
0079D4 
*0079D8 
0079DA 
0079DE 
0079E2 
0079^6 



0079EA 
0C79F0 
0079F4 
0C79F8 
0079FA 



41F0 837A =007f4A 

41F0 86FE =0080D2 

4840 2036 

2133 =0079DF 

4840 8A52 =008430 

4040 8A42 =008424 

4800 2124 

4230 8084 =007A6E 



F660 4001 89^0 

5060 8AE8 =0084I>C 

7350 200C 

2751 

9A65 



7867 

7368 
7869 
7870 
7871 
7872 
7873 
7874 
7875 
7876 
7877 
7878 
7879 
7880 
7881 
7882 



TESTE BAL 
TESTE. 00 BAL 

LH 

b;iz 

LH 

STH 

LH 

BNZ 



TSTE.00 



R15,TESTINIT 

R1 5, HEW^T 

R",DATA+3VALU1 

TS?E»00 
R",TFSTPAT+10 

PU,DATA?AT 

RCTPKODE+SYALtn 

TE.100 



INIT TEST 

REWIND TAPE 

LOAD DATA TO BE "EAD 

USER SPECIFIED PATTFPN 



CHECK TRANSFER »!ODE 
SELCH TRANSFERS IF 1 



* THIS IS GOING TO EE DONE WITH DATA READS 



LA 


Sf,RFADBU^ 


ST A 


P6 ,RDBUF 


LHL 


H5,EYTES+$YALU1 


SIS 


P5,1 


A A" 


R6,R5 



GET BYTES VALl'1 

DECREASE BY 1 : 

FIGURE ENDING ADDPFS? 



MTT)7 

K"D7 
>f'D7 
¥?D7 
WTr>7 

VT1)7 
JfT>T ) 7 

WTT)7 
HTTJ7 
V^37 

v"^7 
F37 
>{TD7 
VTIJ7 



8670 
8680 
8690 
8700 
8710 
8720 
3730 
p-7(»0 
8750 
9760 
S^O 
9780 
0790 
8900 
8910 
3320 



K I 3 H PERFOBMANCE(6250)t*A3TAPE DIAGNOSTIC 06-263R01?195A 1 3 FAGE 176 08:34:07 12/23/83 

TEST E 



0079FC 
007ACC 
007AC4 
007AC8 
007A0A 

007A0E 
007A14 
007A1A 

*007A1E 
007A20 

*007A22 
007A24 
007A28 
007A2C 
007A2E 

*007A30 
007A32 
007A38 

*007A3C 
007A3S 

*007A40 
007AU2 
007A46 
007A4A 

007A4E 
007AS2 
007A54 
007A58 
007A5E 
007A62 
007A66 
*C07A68 
007A6A 



007A6E 
007A72 
007A76 
007A7A 
007A7E 
007A32 
007A85 
007A6?, 
007 A 8E 
007A92 
007A914 
007A98 
007A9C 
007AAO 
007AA4 



5060 


8AD8 


=0084D8 


41F0 


8414 


=C07F18 


7380 


20FA 




0375 






41E0 


824C 


=0C7C5A 


E6 60 


4001 


89D0 


p 800 


0007 


FFFF 


41E0 


81BE 


=007EDC 


2385 




=007A28 


2701 






2034 




=007A1A 


4300 


FFA4 


=0079CC 


5916 


0000 




2662 






2772 






22SE 




=007A14 


F800 


007F 


FFFF 


41E0 


81A0 


=007PDC 


2145 




=007A46 


2701 






2034 




=007A38 


4300 


FF86 


=0079CC 


C330 


0020 




4230 


80A0 


=007AEE 



41F0 1A8C 

2781 

4230 FFBO =007A08 

F800 007F FFFF 

41E0 817A =007BDC 

4240 8088 =007AEF 

2701 

2035 =007A5E 

4300 FF5E =0079CC 



4820 


2108 




7380 


20FA 




41F0 


85C6 


=008040 


41F0 


8392 


=007F10 


41F0 


82A8 


=0C7r2A 


41E0 


81D4 


=007C5A 


E600 


8016 


=007AAO 


4000 


21F8 




7300 


200C 




260F 






41E0 


8200 


=007C98 


41F0 


162A 




4300 


FF2C 


=0079CC 


41F0 


8364 


=007108 


41'0 


81A4 


=007C4C 



7883 
7884 
7885 
7886 
7887 
78 = 3 
7S89 
7890 
7891 
7892 
7393 
7394 
7895 
7896 
7897 
7898 
7899 
7900 
7901 
7902 
7903 
7904 
7905 
7905 
7907 
790R 
7909 
7910 
7911 
7912 
7913 
7914 
7915 
7916 
7917 

7919 
7920 
7921 
7922 
7923 
7924 
7925 
7926 
7927 
7 92 3 
7 9 29 
7930 
7931 
7932 
7933 
7934 
7935 



S?A R6,END3UF 

BAL E15,CLEBUF 

LHL R8,EEC0PDS+$V»LU1 

TE.001A LR P7,P5 

BAL PI 4, CPE AD 

* 

LA F6,P ,7 A?? , JF 

TE.002 LI 30,Y'7FFFF' 

TE.003 EAL R14,SENSTA 

BKC TE.0C3A 

SIS 50,1 

BNZ TE.003 

P TESTE 

TE.003A BH R1,0(P6) 

AIS H6,2 

SIS F.7,2 

PNL TE.002 

TE.004 LI P0,Y'7FFFFF' 

TE.0041 BAL R14,SENSTA 

BO TE.004A 

SIS R0,1 

BNZ TE.004 1 

B TESTF 

TE.004A THI ?3,X , 20 1 

PNZ TSTE.END 

BAL E15,TSTBRK 

SIS E8,1 

BNZ TE.001A 

TE.005 LI RO.Y^FFFFF* 

TE.0051 BAL P14,SENSTA 

BO TSTE.END 

SIS R0,1 

ENZ TE.0051 

B TESTE 



CLEAE EEAD3UF 

GET RECORDS VALUE 

LOAD INTO TEMP REGISTER 



GET START ADDRESS 

TIKVAL S01 

GET INTERFACE STATUS 

CONTINUE ON NOT BUSY 

DECREMENT COUNTER 

CONTINUE WAIT 

EESTAET TEST IF TItfED OUT 

READ INTO READBUF 

INCREMENT READBUF ADDRESS 

DECPEASE BYTES COUNT 

CONTINUE UNTIL FINISHED 

TIHE LIMIT R01 

CHECK INTEEEACE STATES 

DECREMENT TI«ER 

RESTART TES-" 
TAPE AT EOT? 
REWIND AND END ^APE 

TEST FOR BREAK DEPRESSION HERE 
DECSEHENT RECORD COIT"T 
CONTINUE 
TIMELIMIT 

JUHP OUT ON NO WOTION 
DECREMENT TIMER 
CONTINUE CHECK 
RESTART TEST E OTHERWISF 



THIS SHALL BE DONE WITH SELCH READS 



TE.100 



TE.1000 



TE.1003 



LH 

LHL 

BAL 

BAL 

BAL 

BAL 

LA 

STH 

LHL 

AIS 

SAL 

BAL 

B 

BAL 

BAL 



R2,S 
P8,R 
E15, 
R15, 
R14, 
E 1 4 , 
S0,T 
SO,D 
SO, 3 
R0,1 
S14, 
R15, 
TEST 
P15, 
P14, 



ELCH+SVALU1 
EC0PDS+$VALU1 

SELSETP 

HEST0RF1 

PEBUF 

CEEAD 

- .1003 

FVIN' 7, + 2 

YTES+SVALU1 

CGCRFAD 

TIKEP 



-ESTCPE 
SENSTA? 



SET UP RECORDS VALUE 
SET UP READ BUFFER 
ENABLE INT 



INTERRUPT ADDRESS 



INCREASE SOME 

WAIT FFOR SELCH INTERRUPT 
BEGIN TES' 1 ' AGAIN 
RESTORE R1,R2,?SW 
CHECK SELCH STATES 



R01 

E01 
R01 
R01 



MTD78830 
MTD79840 
M-"D78850 
1TD78860 
1TD78R70 
MTD78R30 
HTI7 8 990 
"(TD78900 
>f , D78910 
MTD7S920 
MTD73930 
THJ7 8 9U0 
MTD78950 
HTD78960 
VTD78970 
HTD78980 
MTD78990 
STD79000 
MTD79010 
KT57qr)20 
MTD79030 
W^D79040 
»}TD79050 
HTT179060 
MTD7Q070 
MTD79090 
M ""079090 
»f , D79100 

KT079110 

STD79120 
MTI79130 
HTD79140 
MTD79150 
1^D79160 
«TD79170 

ifTD79190 
f^D79200 
MTD79210 
"TD79220 
W""D79?30 
wr,, D79?4n 
»fTD7a250 

>{TT)79270 
STD7 9 28 
1TD79290 
MTD79300 
K^D79310 
fTD79320 
«T'Q7g 33Q 
><TD79340 
'♦'"D79350 
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TEST ^ 



007AA8 
007AAC 
007AB0 
007AB5 

* 007 ABA 
007A3C 

* 7 A 9 E 
007AC0 
007AC4 
007AC8 

007ACC 
007AD0 
007AD2 
007AD6 
007ADA 
007ASO 

*007AE4 
007AE6 

*007AE8 
007AEA 

007AEE 
007AF2 
007AFS 
007A 5, A 
007AFE 



U1E0 


81F2 


=007C9F 


41E0 


S1EE 


=007C9F 


F800 


007F 


FFFF 


41E0 


8122 


=007BDC 


2145 




=007AC4 


2701 






?034 




= 007AF.6 


4300 


FF08 


=0079CC 


C330 


0020 




1*230 


8022 


=0 07AEF 


(UFO 


1A8C 




2781 






4230 


FFAO 


=007*76 


41E0 


81C4 


=007C9F 


F800 


007F 


FFFF 


41E0 


80F8 


=007EDC 


2145 




=007».EE 


2701 






2034 




=0C7AE0 


4300 


FEDE 


=0079CC 


41F0 


2836 




4800 


8914 


=00840* 


C300 


OOOE 




4230 


FED2 


=0079D0 


4300 


FECA 


=0079CC 



7936 




BAL 


514,CST0P 


7937 




PA I. 


H14,CST0P 


7938 


TS.1004 


LI 


'O.Y^FFFFF* 


7939 


TE. 10041 


HAL 


"H 14, SEN Si" A 


7940 




BO 


TE. 1004A 


7941 




SIS 


30,1 


7942 




3NZ 


TE. 10041 


7943 




3 


TESTE 


7944 


TE.1004A 


"HI 


R3,X , 20" 


7945 




BNZ 


TSTE.END 


7346 


* 






7947 




BAL 


P15,TSTBEK 


7948 




SIS 


58,1 


7949 




BSZ 


TS.1000 


7950 




SAT 


R14.CST0P 


7951 


TE.1005 


LI 


B0,Y , 7FFFFF" 


7952 


TE. 10051 


BAL 


R14,SENSTA 


7953 




?1 


TSTE.END 


7954 




SIS 


P0,1 


7955 




RNZ 


TE. 10051 


7955 




3 


TESTE 


7958 


TSTE.END 


BAL 


F15,TST.DRIY 


7959 




LH 


S0,DP.IV5AY1 


7960 




THI 


ROjX'S" 


7961 




BSZ 


TESTE. 00 


7962 




B 


TESTE 



R01 

501 
R01 

R01 



INIT SELCH 
Pqo gTipr 

7jw!? LI KIT 

JUMP OUT ON NOMOTIOS 

DECRE^FNT TI«ER 

R01 

RESTART TEST 

TAPE AT EOT 

EN 7 ) TEST 

CHECK FOR BREAK KEY U EPE 
DECREKENT RECORD COUNT 
CONTINUE TILL THROUGH 

1"T¥7 LI*IT 

NO MOTION SET? 
DECREMENT TI*ER 
CONTINUE CHECK 
RESTART TEST IF TI*ED OUT 

CHECK FOR OTHER DRIVES 
OTHER DRIVES SPECIFIED 



ELSE BEGIN AT START FOR 1ST DRIVE 



^""079360 
f'"D79370 
*T!)79380 
f"D79390 
•»^D7Q400 
NTD79410 
^^079420 
MTD79430 
f"D79440 
*TD79450 
*Tn79460 
fTT)79470 
¥TD79U80 
wtt)79490 
*TD79500 
fTD7<J5io 
1^079^20 
1^0-79530 
»^D79540 
YTD79S50 
*iM)79560 

W"D79580 
371)79*90 
MTD79600 
MTD79610 
YTD79620 
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TEST F 



007302 
007306 
00730A 
00730C 
007510 
007E14 

*007v?ia 

007B1A 
007B1E 
007322 
007E26 
007B28 
007B2C 
007B30 

*007B34 
007B36 
007B3A 
007B3E 
007340 
007344 
007346 
00734A 
00734E 
007B52 

♦007856 
007B58 
007B5A 
007B5C 

*007R60 
007362 

*007B66 
007^68 
007250 



4810 


2052 




401Q 


88FE 


=008408 


2401 






4000 


88FA 


=0 0840" 


41E0 


80C8 


=007EDC 


C330 


0001 




2333 




=007E28 


E650 


294C 




41F0 


884C 


=00836E 


4300 


1358 




2420 






41F0 


1A8C 




41E0 


80AC 


=007PPC 


C330 


0020 




2333 




=007E3A 


41E0 


8598 


=008002 


4860 


2116 




3466 






7300 


2118 




0650 






4842 


201A 




41E0 


8048 


=007396 


41E0 


808A 


=007BDC 


C430 


0014 




2136 




=007^62 


2761 






2133 




=007^60 


41E0 


803A 


=007P9» 


220B 




= 007EliA 


C4 30 


0020 




2333 




=007B6C 


4120 


8556 


=008CD2 


41 SO 


802A 


=007F9A 



7964 
7365 
7966 
7967 
7968 
7959 
7970 
7971 
7972 
7973 
797U 
7^75 
7°75 
7977 
7 97 8 
7 97 9 
7930 
7 9 31 
79S2 

75S4 
7 3 65 
7986 
7937 
7988 
7989 
7990 
7991 
7992 
7993 
7994 
7995 
7996 
7997 
7993 
7999 
8000 
3001 
3002 
8003 
3004 
9005 
3006 
3 07 
3 3 
3 00 9 
3010 
8011 
8012 
3013 
3014 
3015 
8016 



*********************** 



T E S 



r******************************* 



* TEST F IS A SCOPE LOO? DESIGNED TO LOOP 

* ON A SPECIFIED COMMAS': OR LIST OF COMMANDS (1-4) 

* FROM THF OPTION CCHMAS'D. 
* 

* IT WILL LOOP ON THESE COMMANDS, THEN CHECK FOR 



* NSTN AND TBS. 



IS FOUND, A COMMAND 



* CLEAR IS ISSUED AND THE COMMANDS AS r LOOPED ON. * 

* IF TKS IS SET, A RESIST- IS EXECUTED AND THEN * 

* THE CLEAR COMMAND I? GIVEN. * 

* * 

* BREAK KEY DEPRESSION ONLY TERMINATES THE TEST. * 

* * 

* APPLICABLE OPTION'S: * 

* DRIVE, COMMAND, AND TIMELIMT * 
******************************************************* 



TESTF 



TF.000 
TF.OOOA 



TF.001A 



TF.OOOB 



TF.OOBA 
TF.002 



TF.003 



LH 

STH 

LIS 

STH 

BAL 

THI 

E2 

LA 

BAL 

B 

LIS 

EAL 

BAL 

THI 

BZ 

BAL 

LH 

EXHR 

LHL 

OR 

LH 

BAL 

BAL 

NHI 

BNZ 

SIS 

BNZS 

BAL 

._".'' 

NHI 

EZ 

BAL 

BAL 



51, 
51, 
RO, 
RO, 
R14 
R3, 
TF. 
55, 
515 
ABO 
R2, 
R15 
R14 
R3, 
TF. 
R15 
R6, 
K6, 
RO, 
R6, 
R4, 
R14 
R14 
R3, 
TF. 
S*, 
TF. 
R14 
TF. 
E3, 
TF. 
R14 
?14 



DPIVE+SVALU1 

DRIVSAV 

1 

DRIYSAY1 

,SENSTA 

Y«01 ' 

OOOA 

T0.E004 

,L00?2 

ST 



, TST3EK 

,SENS?A 

X*20* 

001 A 

,REW>?T 

TIKILIMT+$VALU1 

E6 

?I!iELI>!T+SVALU2 

?0 

COMKAND+SVALUK 

, OCR 

,3?NS?A 

X* 14* 

02 

1 

OOBA 

, CCLEAR 

OCOE 

•/•2C 

03 

.'5V« 



GET DRIVE ADDRESS 

SET FLAG 

CHECK STATUS OF DRIVE 

IS IT DU? 

IF NOT, CONTINUE 

DRIVE UNAVAILABLE 

OUTPUT MESSAGE? 

END TESTING 

INDEX REGISTER 

CHECK FOR BREAK DEPRESSION 

CHECK STATUS 

HAS TAPS REACHED EOT? 

NO, CONTINUE 

OTHERWISE, REWIND TAPE 

LOAD A TIME LIMIT * 



GET FULLM0R1 VALUE 
R2). 

ISSUE SPECIFIED OUTPUT COMMAND 

SENSE STATUS 

CHECK FOR NO MOTION 

RECEIVED 

DECREMENT TIMER 

CONTINUE TO WAIT 

CLEAR INTERFACE 

CONTINUE IF TOO 

CHECK FOR "SOT" 

END OF TAPE NOT REACHED YET 

ELSE REWIND MAG ""AP* 1 

CLE"" INTERFACE 



MTD79640 
V ?1'D79650 

*TD79670 
MTD796S0 
YTD79690 
MT>n7cn00 
M n, D79710 
WTi)79720 
Mi>T)797^o 
M""579740 
MTD79750 
MTD79760 
MTD79770 
fTD79780 
M' , 'D79790 
MTD79800 
MTD79810 
H^D79820 

MTP79840 
M^D79850 
YTD79860 
1^079870 
1^79880 
HTQ79890 
f^D79900 
WT>79910 
M T D79920 
WTD79930 
M' 1 'D79940 
f^D79950 
XTD79960 
M T D79970 
icpr)79980 
MTD79990 
"TD80000 
K^D80010 
MTD80020 
MTDR0030 
MTD80040 
MTD800-*0 
»TD80060 
*""D80071 
"""DSOOSO 
KTD80090 
"TP80100 
H T D801 10 
YT^SOI 2<"l 
"fTD80130 
MTT)e0140 
•fT")80150 
M ^D80160 
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TEST F 



007B70 


2622 






8017 


007B72 


C520 


ooou 




8013 


007376 


U28Q 


FFAE 


=007B28 


8019 


007B7A 


C520 


OOOE 




8020 


*00737E 


2384 




=007P86 


8021 


007B80 


242E 






8022 


007S82 


4300 


FFA2 


=007F28 


8023 


007B85 


C520 


0012 




8024 


007B8A 


4380 


FF98 


=007E26 


3025 


007B8E 


C820 


0010 




3026 


007B92 


4300 


FF92 


=007P28 


8027 


007R96 


9Eia 






8029 


007398 


030E 






8030 



TF.004 



OCR 



AIS 


R2,2 


CLHI 


32,4 


3L 


TF.OOOA 


CLHI 


32,14 


BNL 


TF.004 


LIS 


R2,14 


B 


TF.OOOA 


CLHI 


52,18 


BNL 


TF.000 


LHI 


32,16 


B 


TF.OOOA 


OCB 


R1,E4 


BR 


R14 



CONTINUE WITH D2IYES 

GET fEXT COMMAND LOCATION 

INDEX REGISTER TO 14 

TRY COMMAND AT THIS LOC 

CHECKED ALL COMMANDS? 

START OVER IF COMPLETED ALL 

INDEX TO 16 

DO COMMAND AT THIS LOCATION 



RETURN 



HTD80170 
^080180 

«^D80?00 
" ,,, D80210 
»» 1 'D80220 
KTD80230 
^080240 
MTD80250 
"^1)80260 
"' P D80270 

TTD80290 
MTD80300 
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TEST SUBROUTINES 



7 a 9 i 
■0C7B?E 



007BAO 
0075A4 
007BA8 
007BAE 
0073E2 

"007BB6 
007BB8 
00733C 

►007B3F 
007BC0 
007BC4 
0073C8 



007BCA 
007BCE 
007BD0 



0073D2 
0073D5 
0073DA 



007BDC 

O073DE 
007BE2 



007BE4" 
007BEA 
007BEC 
007BFO 
007BF4 
007BF6 
0C7BFA 
007BFE 
007C02 
♦007C04 
007C06 



DE10 882C =0083CA 
2303 =00^BAa 



DE10 8831 
DOEO 8CFC 
F800 007F 
41E0 802A 
C330 0014 
2137 

41F0 1A8C 
2701 
2038 

1*300 8042 
D1S0 8CDC 
030E 



C830 00C9 

9E13 

030E 



4830 8836 
DEI 3 880A 
030E 



3D13 

4030 87E2 
030E 



=0083D5 
=0088A4 
FFFF 
=007EDC 

=007BCU 



=007PAF 
=007C06 
=0088A4 



=00840C 
=0083E4 



=0083C4 



F800 007F FFFF 

9D13 

4030 87D4 =0083C4 

C330 0014 

Q23E 

DOEO 8CAA =0086A4 

41F0 1A8C 

D1E0 8CA2 =0088A4 

2701 

203D =007BEA 

5650 8BC0 =0087CA 



8032 

8033 

8034 * 

8 035 CCLEAR 

8036 



SUFROUTI 



CCLEAR 



3038 
3039 
BOao 
3041 
3042 
3 04 3 
3044 
8045 
8045 
80 47 
3048 
8049 
8050 
8051 
8052 

3054 
3055 
8055 
8057 
8058 

8060 
3061 
3062 
8053 
8 05 4 

8056 
3057 
8068 
8063 
8070 

8072 
8073 
8074 
3075 
8 076 
8077 
8.078 
8079 
8030 
8081 
8032 
3033 
8084 



H1,C»DCLP 
CRDC.O 



CLEAR INTERFACE 
RETURN 



SUBROUTINE 



C D R C L R 



CDRCLS 
CRDC.O 

CDRC.1 



CROC. 2 



OC 

STX 

LI 

?AL 

THI 

BN2 

BAL 

PIS 

BNZ 

c 

L» 

BR 



R1,DRVCLP 

R14,SR14SAV 

RCY^FFFFF' 

R14,SENSTA 

R3,X"14« 

CRDC . 2 

R15,TSTBFK 

R0,1 

CDRC.1 

TROOA 

R14,$R14SAV 

R14 



CLEAR FORMATTER AND DRIVE 

SAVE R14 AND R15 

TIME VALUE 

SENSE STATUS FOR NM^V 



CHECK FOR BREAK DEPRESSION 
DECREMENT TIME OUT 

TIMED OUT WAITING FOB NO NOTION 

## RETURN 



♦SUBROUTINE 



T K C L E A R 



TMCLEAR LHI 
OCR 

BR 



R3>X'C9' 
R1 ,R3 
R14 



CLEAR INTERFACE IN TES.THODE 

RETURN 



♦SUBROUTINE CDENS 



CDENS 



LH 




P3,DENSFLAG 




GET FLAG VALUE 


OC 




R1,DEHSEITY(R3) 




PROPER DENSITY (08, 18, 28) 


BR 




514 




RETURN 


R 


a 


TINE S E 


N S 


T A 


SSR 




R1.,R3 




SENSE THE STATUS OF THE DEVICE 


STH 




R3, STATUS 




SAVE STATUS 


Bg 




R14 




RETURN 



SENSTA 



♦SUBROUTINE 



SENSTA \ 
SENSTA 1 A S.S.E 



S E N S T .» 1 



TROOA 



LI 


R0,Y*7FFFFF' 


S.S.E 


R.1.,33 


STH 


?3,,STATUS 


THI 


R3.,X'-14,* 


B3ZR 


P1.4 


ST* 


?1-4,SR14SAV 


BAL 


PISjTSTB^K 


IS 


P1.4,SE14^AV 


SIS 


R0,1 


ENS 


SENSTA 1 A 


LA 


P-,TSTFRRA 



SAVF STATUS 

TEST FOR NO HOTION BITS 

RETURN IF EITHER SE' 7 ' 

SAVE R14 

CHECK FOR BREAK DEPRESSION 

RESTORE REGISTERS 



ritfED OUT WAITIVG FOR "NHTP' 



v-nrigo?20 
"•^80330 
m"D803U0 
MTD80350 
w-080^«0 

"■^080330 
VTD80390 
"< T 980400 
>*t)80410 
vt>dso420 
V, "D80430 
vt fTD80.ttltO 
fTD80450 
""D 8 04 6 
MTD8047O 
f^D80480 
Y'"D80490 
f^DSOSOO 
"■^080510 
S' ,, D30520 

fTOR0540 

"■"D-80560 
"f'T) 90 570 
M m D805 30 

MT>RO*00 

MToeo.610 

>PD80620 
« T D8,0«30 
1^fiQO640 

"•"DgO^eo 
HTD80^7C 
"TD8-05 80 
MTD8 06 90 
"•■"D8 0700. 

»i"D 80^20 
MHM)807'30 
i<TnB07-4.0 
HTria07-50 
*-9 8-0 760' 
»">D80770 
*" T, D80780 
H^-D8079n 
»TD80300 
f^D80810 
«fT)80S?0 
*^D80 8 30 
WTD30R40 
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TEST SUBROUTINES 



007C0A 
007COE 
0O7C12 
007C15 
007C1A 
007C1E 



007C22 
007C28 
007C2A 
007C2E 
007C30 
007C34 
007C38 
007C3C 
*007C3E 
007C40 

007C44 

007C48 



007C4C 
007C4E 
007C52 



007C54 
*007C58 



C800 00114 
4000 87B6 
41F.0 28AE 
E6F0 2A4C 
E6E0 8978 
4300 86AA 



=0083C8 



=008596 
=C082CC 



3035 
8086 
8087 
8088 
8089 
8090 



TROO 



LHI 

STH 

3AL 

LA 

LA 



50,:c if* 1 

HCSTATGD 

H14,T0EER0RB 

R15,MESSAGE1 

R14,C0NTKSG 

ERRO-X 



EXPECTED STATUS 

DRIVE AND STATUS 

SUSPECTED ERROR WITH CONTROLLER 



F800 0000 FFFF 

9D13 

4030 8796 =00S3C4 

038E 

DOEO 8C70 =0088A4 

41F0 1A8C 

D1E0 8C68 =0088A4 

2701 

203B =007C28 

E650 8BA4 =0087E8 

C800 0034 

4300 FFC2 =007COF 



9D23 

4030 8774 =0083C6 

030E 



DE10 8781 =0083D9 
230C =007C70 



8092 *SUBROUT 

8093 * 

8094 SENSTA3 LI 

8095 SENSTA3A SSR 

8096 STH 

8097 BNCR 

8098 3Tf? 

8099 BAL 

8100 LH 

8101 SIS 

8102 BNZ 

8103 LA 

8104 LHI 

8105 B 



V E 



S E N S T A 3 



RCY'FFFF' 

E1,R3 

E3, STATUS 

R14 

R14,S314SAV 

R15,TSTBRK 

R14,SR14SAV 

R0,1 

SS5STA3A 

R5,TSTERFB 

R0,X*34' 

TROO 



RETURN ON NOT BUSY 

SAVE 14 £ 15 

CHECK FOR 3T>f DEPRESSION 

RESTORE REGISTERS 

DECREMENT TIMER 



8107 * 

8108 * 

8109 SENSTA2 SSR 

8110 STH 

8111 BR 



SUBROUTINE 



S E N S T A 2 



P2,P3 

R3,SELSTAT 

P14 



SENSE SELCH STATES 
SAVE SELCH STATUS 
RETURN 



8113 *SUBR0UTINE 

8114 * 

8115 CSKFF OC R1,SKIPFF 
8116 



K F F 



SKIP FORWARD FILE 
RETURN 



007C5A 
007C5E 


DF.10 
030E 


8771 


=0083CF 


8118 
8119 
8120 
8121 


* SOB 

* 

CREAD 


R U 

OC 

SR 


T I S E 

R1 ,?.SAD 
R14 


C 


R 


E 


A 


D 

ISSUE READ COMMAND 
RETURN 


007C60 
007C64 


DE10 
030E 


8768 


=0083CC 


8123 
8124 
3125 
8126 


* s u b : 

* 

CBYRD 


R U ' 

OC 

3R 


r i s e 

S1 # 5VPJ 

R14 


f 


B 


Y 


R 


D 

BYTE READ COMMAND 
RETURN 


007C66 
007C6A 


DE10 
2303 


876E 


=0083D8 
=007C70 


8128 
3129 
8130 
8131 


* SUB 

* 

CSKFB 


r o a 

OC 

B 


TINE 

P1,SKIPFB 
CVPZCF.O 


C 


3 


K 


F 


B 
SKIP FORWARD BLOCK 


007C6C 
007C70 


DE10 

4300 


8766 

FF30 


=0083D6 
=007BA4 


8133 
8134 
8135 
8136 


* SUB 

* 

CVREOF 
CKREOF.O 


R U 

OC 

B 


TINE 

3"! ,-FOF 
CP.DC.O 


c 


H 


R 


F 


F 

WRITE END-0F-FIL3 
RETURN' 



MARK 



MTD80850 
tTD80860 
T'D80S70 
"TD808R0 

M^ososgo 

M^D80900 

MTD80920 
M ,p I>80930 
M n, D80940 
"■"D80950 
M' T 'D80960 
MT>80970 
1^080980 
M"D80990 
Jf-DHIOOO 
«^T)81010 
MTD81020 
f^D81030 
MTD81040 
M^D81050 

M' T 'D81070 
VTD81080 
"f^D81090 
T?TD81100 
f T D81110 

w-dsuso 

*?D81140 
TTP81150 
MTD81160 

MTD81180 
"''•D81190 

M' T 'D81200 
MTD81210 

MTD81230 
MTD81240 
M m D81250 
1TD81260 

»t ,,, D81280 
MTr>81290 
M T D81300 
VD81310 

>C't)81?30 
M"D81340 
MTD81350 
MTD81360 



HI3H 

T* ? Q T 1 
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SUBROUTINES 



007C74 
♦007C78 



007C7A 
*007C7E 



007C80 
007C84 



007C86 
007C8A 



007C8C 
007C90 



007C92 
007C96 



007C98 
007C9C 



007C9E 
007CA2 



007CA4 
007CA8 



007CAA 
007CAE 



007CB2 
*007CB6 



DUO ?763 =0063DB 
2204 =007C70 



D£1G 875C =0083DA 
220^ =007C70 



DE10 874A =0083CE 
030S 



DE20 875E =0083E8 
030E 



DE10 8T3B =0083CP 
030E 



DS10 3737 =0083CD 
030E 



DE20 874D =0083E9 
030E 



DE20 8748 =0083FA 
030E 



D.e20 8743 =0083EB 
030E 



DE10 8722 =0083D0 
4300 FEF2 =007 C A4 



DE10 871E =0083D1 
2204 =007C?E 



3133 


* S U 


B 


3 


U 


TINE 


8139 


* 










8140 


CSKBF 




cc 




R1,SKIPBF 


8141 






75 




CWREOF.O 


3143 


* S U I 




SOU' 


r I S E 


8144 


+ 










8145 


CSK3B 




PC 




R1,SKIPBE 


8146 






3 




CWREOF.O 


8148 


* S U 


B 


R 


u 


TINE 


8149 


* 










8150 


CWRITE 




OC 




81, WRITE 


3151 






3R 




R14 


8152 


* S U 


B 


R 





TINE 


8153 


* 










8154 


CGO 




OC 




P.2,G0 


8155 






BH 




R14 


8157 


* S U 


3 


E 


u 


TINE 


8158 


* 










8159 


CTESTHDE 


OC 




R1,TSTHDE 


8160 






3R 




S14 


8162 


* S U 


B 


5 


u 


TINE 


8163 


CREW 




OC 




R1 ,REWIND 


8164 






ER 




E14 


8166 


* S U 


B 


R 


u 


TINE 


8167 


* 










8168 


CGOREAD 


OC 




R2,G0REA!) 


8169 






BR 




R14 


8171 


* S U 


3 


F 


D 


TINE 


8172 


* 










8173 


CSTOP . 




OC 




R2,ST0P 


8174 






3R 




R14 


8175 


* 










8177 


* s u 


B 


R 


u 


TINE 


8178 


* 










8179 


CSTOPS 




OC 




R2, STOPS 


8180 






BR 




R14 


8132 


* S U 


3 


P 


u 


TINE 


8183 


* 










8184 


CNOPO 




OC 




R1,N0P0 


8185 


CNOPO.O 


3 




CRDC.O 


8187 


* s u 


5 


E 


u 


TINE 


8188 


* 










8189 


CN0P1 




OC 




R1,N0P1 


8190 






B 




CNOPO. 



CSKBF 



SKIF BACKWARD FILE 
RETURN 



C S K B B 



C R I T 



CGO 



SKIP BACKWARD BLOCK 
RETURN 



WHITE *ODE 
RETURN 



S'LCfi GO READ COWHAND 
RETURN 



CTESTHDE 



CREW 



TESTKODE COMMAND 
RETURN 



REWIND 
RETURN 



C G R E A D 



SELCH GO READ 
RETURN 



CSTOP 



STOP 
RETURN 



CSTOPS 



SELCH STOP 
"ETURN 



CNOPO 



RETURN 



C S P 1 



'ET''RN 



MTD813S0 
mtaj 13QO 
jjttis 1 !jOO 
MTD81410 

yTT)g 1U30 
HT>P 1 uuQ 
MTD31450 

HT'P81480 
f T D81490 
1TJS1500 
JPOSISIO 

HTD81520 
•f^SI^O 
f' T, D81^40 

KTrjCI 15^0 

y , D81570 
H T D81580 

M^nsisgo 

«TDS1600 

•fTn81620 
yi-gp 1«30 
YT981640 

"TD81660 
K^D816T0 
MTD81680 
HTD81SQ0 

M""D81710 
W"'D81720 
»f , D817 30 
"TD31740 

\["nr>8 1^60 
YTn81770 

«|TT)g1790 

«Tn81790 
"■"981900 

"^981820 
"■"D81«30 
Y" n D81840 
YTD81850 

YTD81870 
*tt>81880 
M^D818<50 
H T D81900 



HI3H 
TEST 



007CB8 
*007CBC 



007CBE 
*007CC2 



007CC4 
♦007CC8 



007CCA 
007CCE 



007CD0 

Q07CD4 



007CD6 
007CDA 



007CDC 
007CS0 



007CE2 
007CE6 



0C7CE8 
007CEC 



007CEE 
OC7CF0 



007CF2 



PERF0RKRNCE(e250)KA5TAPE 

SUBROUTINES 



DE10 8716 =0083D2 
2207 =007CAF 



0^10 8711 =0083D3 
220A =007CAF 



DE10 870C =0083D4 
220D =007CAF 



DE10 8713 =0083E1 
030E 



DE10 8709 =0083DD 
030E 



DE10 8706 =0083F0 
030E 



DS20 870C =0C83EC 
030E 



DE10 86FC =0083E2 
030E 



DE10 86F2 =0083DF 
030E 
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9E13 
030E 



9913 



8192 
8193 
3194 
8195 

8197 
819fc 
8199 
3200 

8202 
8203 
3 20 4 
8205 

8207 
8203 
8209 
8210 

8212 
8213 
8214 
8215 

8217 
3218 
8219 
8220 

8222 
8223 
3224 
8225 

8227 
8228 
8229 
8230 

8232 
8233 
8234 
8235 

8237 
8238 
3239 
8240 

8242 
8243 
8244 



* SUP 
CS0P2 

* SUB 
CNOP3 

* SUB 

+ 

CNOP4 

* SUB 

* 

CDISAE?! 

* SUB 
CENBLE 

* SUB 

* 

CDISBLE 

* SUB 

* 

CEXTD 

* SUB 

* 

CUNLD 



ROUTINE CN0P2 

OC R1,N0P2 

B CNOPO.O RETURN 

ROUTINE CN0P3 



OC 

n 



K1,N0P3 
CNOPO.O 



RETURN 



R U T I 



C N P 4 



OC 

B 

R 

OC 

ER 



R1,N0P4 
CNOPO.O 



RETURN 
UTIKE. CDISAR1? 



B1, DISARM 
R14 



DISARH INTERRUPTS COWHAND 
RETURN 



ROUTINE CENBLE 



OC 

BR 



R1, ENABLE 
R14 



ENABLE INTERRUPTS COWHAND 



ROUTINE CDISBLE 



OC 
BR 



R1, DISABLE 
R14 



DISABLE INTERRUPTS COWHAND 
RETURN 



ROUTINE CEXTD 



OC 

BR 



R2, EXTEND 
R14 



RETURN 



ROUTINE CUNLD 



OC 

BR 



R1, UNLOAD 
R14 



ISSUE UNLOAD COMMAND 
RETURN 



* SUBROUTINE C 'J ROD BY 



CWRODBY 



* S U 
CGAPLS 



* SUB 
* 

REDE 



OC 
BR 



R1,WF0DDBY 
R14 



ISSUE X'OB' 
RETURN 



ROUTINE 
OCR R1,E2 

PR R14 

ROUTINE 
RHR R1,F,3 



CGAPLS 

GAPLESS COKYAND 
RETURN 

REDE 

FF?.0 ADDRESS COMMAND 



f!' D81 920 
>JTT)8193fl 
w m D81940 
WTD81950 

WT>81970 
«' ,, D81980 
HTD81990 
Wi , D82000 

HTD82020 
"TD82030 
^082040 
1TD82050 

*TD82070 
WTD82080 
NTD82090 
f , "D82100 

WTD82120 
1TD82130 
M^D82140 
HTD82150 

STD82170 
i»TT)82180 
TTD82190 
WTD82200 

W" , D82220 
«tt)82230 
fT082240 
WTD82'' c; 

MTD82270 
« T D82280 
W'D82290 
M^D82300 

^^032320 
fTD82330 
YT'D82340 
WT-D82350 

W'r)S23' ? 
HTD82380 
MTT)82390 
MTD82400 

MTD82420 
MTD82430 
wTDg2440 
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TEST SUBROUTINES 



007CF4 
D07CF8 



007CFA 
007CFS 
007D02 
007P06 
007D0A 
007D0F 
0C7 n 12 



C07D14 
007D18 
0C7D1C 
0C7D20 
007D24 
007D23 



007D2A 
007D2E 
0O7D32 
007D35 
007D3A 
007D3E 
007D42 



007D4A 
007D4S 
007D52 
007D54 

Q07D58 
007D5C 
007D5F 



4030 8750 
030E 



3A20 67D7 
D820 87D4 
5800 87CE 
5000 87DA 
DA20 87CB 
D82C 87C8 
03 0E 



DA20 87D1 
D820 87CE 
5020 87C4 
DA20 87C9 
D820 87C6 
030E 



DA20 87AF 
D820 87AC 
5800 87A6 
5000 87AA 
DA20 879B 
D820 8798 
03CE 



=008^48 



=0084P5 
=0084D6 
=0084D4 
=0084E4 
=008409 
=0084DA 



=0084E9 
=0084FA 
=0084E4 
=0084EP 
=0084EF 



=0084DD 
=0084DE 
=0084DC 
=0084F4 
=0084D9 
=008 4D A 



007D44 


9B23 


007D46 


992D 


007D48 


03 OE 



0000 7D4A 
7310 2052 
4010 86B6 
2401 

4000 86B2 
0000 7D58 
7330 0A54 
95^3 
7320 2108 



=008408 



=00840A 



8245 
8246 

8248 
8249 
8250 
8 251 
8252 
8253 
8 254 
8255 
8255 

8258 
8259 
3260 
8261 
8262 
8263 
8264 
8265 

3267 
9268 
8269 
8270 
3271 
8272 
8273 
8274 
8275 

3277 
8278 
8279 
8280. 
8281 

3233 
8284 
8285 
3286 
8287 



STH 
BR 



R3,SNSKM 
S14 



RETURN 



3290 
8291 
8292 
8293 
8294 
8295 
8296 
8297 



S U 



W5BUF 



U 



H R B U F 



WD 

KH 

L 

ST 

WD 

WH 

3R 



R2,KBUF+1 

R2,WBUF+2 

RO,VBUF 

RO,STARADDR 

R2,ENDBUF+1 

R2,"NDBUF+2 

P14 



SET UP FOR ADDRESSES 
OF WRITE TO SELCH 



SETUP N 



SUBFOUTIN 



V B U F 2 



WREUF2 



WD 
KH 
ST 
WD 
WH 
PR 



R2,WBUF2+1 

R2,W3UF2+2 

R2,S7ARADDR 

R2,ENDBUF2+1 

R2,ENDBUF2+2 

R14 



RETURN 



* SUB 
REBUF 



ROUTINE 

feD R2,RDBUF+1 

WH R2,RDBUF+2 

L RCRDBUF 

ST RO,STARADDF 

WD R2,ENDBUF+1 

WH R2,ENDBUF+2 

BR R14 



REBUF 



SET UP READ ADDRESSES 
FOR SELCH 



RETURN 



♦SUBROUTINE 

* 

REEND 



RDR 
RHR 

BR 



R2,R? 

R2,R13 
R14 



REEND 

READ ENDING ADDRFSSES ON SELCH 
RETURN 

******************************************************* 

* * 

* TEST IUIT ROUTINE * 

* * 
******************************************************* 



3289 TESTINIT EQ'J 



IT.B1 



LHL 

STH 

LIS 

STH 

EQU 

LHL 

EPSR 

LHL 



* 

R1,DFIVE+$VALU1 

R1,DRIVSAV 

P0,1 

RCDPIVSAV1 

* 

R3,PSW3 

314, P3 

?2,PELCH+$VALU1 



LOAD 2ND DEVICE ADDRESS 
SAVE DRIVE ADDR 

SET FLAG TO 1 

ENABLE PROCESSOR INTERRUPTS 

SEE IF THSR" IS A SELCH 



»C , DR24F0 
1TD82460 

MTD82480 
1TD82490 
MTD82500 
MTDS2M0 
MTD82520 
YTD82530 
"TD82540 
^ m D82' : ;50 
""'D82560 

M n, D82580 
^TD82^90 
HTD82600 
"TD82610 
MTD82620 
«TD82' : 30 
MTD82640 
T* , D82650 

S" 1 D82*70 
'i'' , D82680 
*^D82S90 
M" ,r >82700 
MT>82710 
N' T 'D82''20 
HTT)82730 
WT082740 
«Tr>82750 

K^D82770 
tf"D82780 
fTD82790 
*?D82«00 
»f"D82810 

>«TT)8283n 
1TD82840 
1TD82S50 
1TD82360 
vrr)32870 

MTD82890 
ijTr)3290n 
"TD32910 
»f , 'D82920 
* T D82930 
M^T)82940 
* T D82950 
MTD82°6 r > 
«'TT)82970 
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TEST SUBROUTINES 



*007D62 
007D64 
007D68 
007D6C 
007D70 
007D74 
007D78 
007D7C 
007D7E 
007D32 

*007D86 
007Q88 
007D8C 
007D90 
007D94 
007P98 
007D9C 

*007DA0 
007PA2 
007DA6 

007DAA 
007DAE 
007DB2 
007DB6 
007DBA 
007DBE 
007DC2 
007DC6 
*007DCA 
007DCC 
007DD0 
007DD4 
007DD8 
007DDC 

007DEO 
007DE4 
*007DE8 
007BEA 
007DEE 

007DF0 
007DF4 
007DF8 
007DFC 
007E00 
007E04 



007S08 



233B 




=007P78 


41E0 


FF36 


=007C9E 


41E0 


FF32 


=007C9F 


4020 


21E2 




E<5E0 


1CF8 




4020 


21E8 




4800 


20DE 




033F 






41E0 


FE5A 


=007BDC 


C430 


0001 




233B 




=007D9C 


E650 


294C 




41E0 


DFB8 


=005048 


E6F0 


EASE 


=006882 


S6E0 


8784 


=00854C 


4300 


8530 


=0082CC 


41E0 


FDFA 


=007E9A 


204C 




=007P88 


41E0 


FDFA 


=007RA0 


41E0 


FF20 


=007CCA 


41E0 


FE2E 


=007EDC 


C430 


0020 




4230 


802A 


=007DE0 


50F0 


8716 


=0084D0 


41F0 


8314 


=Q08CD2 


58F0 


870E 


=0084D0 


41E0 


FE1E 


=007BE4 


C430 


0020 




213B 




=007DEO 


E650 


89E0 


=0087BO 


41E0 


DF74 


=005D48 


E650 


EAAA 


=006882 


41F0 


8592 


=00836E 


4300 


1358 




41E0 


FDF8 


=007BDC 


C430 


ooco 




2134 




=007DFO 


41 SO 


FDB2 


=007BA0 


03 OF 






E650 


8A38 


=00882C 


41^0 


8576 


=00836F 


41F0 


841A 


=008216 


?6F0 


895A 


=00875A 


E6E0 


8772 


=008576 


4300 


84C4 


=0082CC 



4310 85FC =008408 



8298 
8299 
8300 
8301 
8302 
8303 
9304 
8305 
8306 
8307 
8308 
8309 
8310 
8311 
8312 
8313 
3314 
8315 
8316 
8317 
8318 
8319 
8320 
8321 
8322 
3323 
8324 
8325 
832*; 
8327 
3328 
8329 
8330 
8331 
8332 
3333 
8334 
3335 
3336 
3337 
3338 
8339 
3340 
3341 
3342 
8343 
8344 
3345 
8345 
8347 
8348 
S349 
9350 



IT.B2 



IT.C 



IT. 



IT. 3 



3Z 


IT.B2 


BAL 


R14,CST0P 


BAL 


?14,CST0P 


STH 


R2,DEVSADR+2 


LA 


R14,RET0PSW 


STH 


R14,DEVINT+2 


LH 


R0,ONLINF+$VALU1 


3ZR 


R15 


BAL 


R14,SENSTA 


NHI 


R3,X'0V 


EZ 


IT.1 


LA 


R5,T0.E004 


BAL 


R14,T7ERR0FA 


LA 


R15,T7ERMSG1 


LA 


R14,DRIVFHSG 


B 


ERRORX 


BAL 


R14,CCLEAR 


BO 


IT.C 


BAL 


R14,CDRCLR 


BAL 


R14,CDISARJf 


BAL 


R14,SENSTA 


NHI 


R3,X'20' 


BNZ 


IT. 2 


ST 


R15,SAVR15 


BAL 


R15,REHBT 


LDA 


R15,SAVR15 


BAL 


R14,SENSTA1 


NHI 


RSjX^O* 


BNZ 


IT. 2 


LA 


R5,N0B0T 


BAL 


R14,T7ERR0RA 


LA 


R5,T7ERKSG1 


BAL 


R15,L00P2 


B 


ABORT 


BAL 


R14,SENSTA 


NHI 


R3,X'C0' 


BNZ 


TESTIERR 


BAL 


R14,CDRCLR 


BR 


R15 



IT. 2 



TESTIERR LA R5,ERRBIT 

BAL R15,L00P2 

EAL S15,SNS.C0M1 

LA S15,DSBHSG 

LA S14,F0R3MSG 

3 ERRORX 



IF NOT, CONTINUE INTERFACE CHECK 
OTHERWISE INIT AND 
STOP THE SELCH 
SET UP SELCH ADDR 

IGNORE SELCH INTERRUPTS 
LOCK AT ONLINE OPTION 
RETURN IF NO TAPE NFFDFD 

ZERO IN ON DU 
IF ZERO CONTINUE ON 
DRIVE UNAVAILABLE 
DRIVE AND STATUS 

SUSPECTED ERROR W DRIVF FORMATFR 

CLEAR DRIVE AND INTERFACE 
BRANCH IF FALSE SYNC ON COHNAND 
CLEAR FORMATTER 
DISARM ANY PENDING INTERRUPTS 

CHECK STATUS AGAIN 
ZERO IN 05 BOT 
AT EOT? CONTINUE ON 
SAVE RETURN ADDRESS 
REWIND DRIVE THEN 
RESTORE RETURN LBAL. 
CHECK STATUS 
TRY BOT AGAIN 
AT BOT! CONTINUE 
CAN NOT FIND BOT 
DRIVE AND STATUS 



ABORT TESTING 

CHECK STATUS ONE MORE THE 
HOW ARE THE ERROR BI^S? 
BRANCH IF ONE IS ACTIVE 
CLEAR FCU AND DRIVE 
RETURN 

ERROR 'ITS ARE SFT 

WHAT EESOR BITS 

SUSPECTED ERROR WITH FORMATTER 



su 

AF 



3R0UTINE TO RESTORE R1, R2 AND ?SW3 
TER RETURNING FROM TIMER ROUTINE. 



RESTORE LH 



R1 ,DRTVS»V 



RESTORE R1 



NTD82980 
«TTr)829Q0 
w T DS3000 
"TD83010 
KTD83020 
w^DRSOSO 
MTDR3040 
N^D83050 
Y^D83060 
STD83070 
MTD83080 
f^D83090 
hi>t)83100 
NTD83110 
MTD83120 
^^093130 

"TD83150 
fTr>83i50 
MTD93170 
MTD83180 
MTD83190 
*td33200 
f^D83210 
fT'D83220 
VTrt83230 
M'"D83240 
NTD83250 
1^D83260 
MTD832^0 
M" , D83280 
KTT)83290 
M^DSSSOO 
^•^083310 
W"D83320 
MTD83330 
MTD83340 
MTD83350 
MTD833«0 
MTD83370 
STD83380 
NTD83390 
MTD83400 
fD83410 
Y^D83420 
MTD83430 
WTD83440 
MTD83450 
MTD83460 
MT-D83470 
MTD83480 
MTD83490 
1TD83=0O 
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007E0C 
007E10 
007E14 
007E16 



007E18 
007E1C 
007E20 
007E24 
007E26 
007E28 
007E2C 
007E2E 
*007E30 
007E32 
007F36 



007E33 
007S3C 
007E40 

*007F42 
007E44 
007P48 
GQT"UC 
C07E50 
007S54 
007E58 
007E5A 
007E5E 
007E60 

*007E62 
007HS4 
007K68 
007ESC 
007S6E 
0O7 r 72 
007:-'75 



7320 2108 
48D0 0A54 
95ED 
030F 



0000 7E18 

D000 8534 =008450 

5810 863C =0084DC 

5820 86R4 =0084D8 

2622 

2430 

4031 0000 

2612 

0512 

2224 =007F28 

D100 861A =008450 

030F 



0000 


7F38 




DOOO 


8654 


=008490 


7360 


200C 




2761 






2303 




=007F48 


DOOO 


8648 


=008490 


4820 


2108 




"630 


8B80 


=008900 


5030 


8680 


=0084D4 


4 8 34 


0000 




2470 






4037 


8B72 


=0089PO 


2572 






057(5 






2224 




=007F5A 


41E0 


FE36 


=007C9E 


F6 30 


8364 


=0089DC 


0A63 






5050 


8666 


=0084D8 


D100 


861A 


=008490 


030F 







8351 
8352 
3353 
3354 

3356 
3357 
8358 
8359 
3360 
8351 
8362 

8364 
8365 
8366 
8367 
8368 
9369 
8370 
8371 
8372 
8373 
8374 
8375 

8377 
8378 
8379 
8380 
8381 

8383 
8384 
8385 
8386 
8387 
8388 
8389 
8390 
8391 
8392 
3393 
8394 
3395 
3396 
3397 
8398 
8399 
8400 
3401 
3402 
d403 



IHL 
RSST0RS1 LH 

EPSE 

BR 



R2,SELCK+SV?.I'J1 

313,PSW3 

R14,R13 

R1S 



RESTORE R2 

?SW 70F0 

FNFORCE 

RETURN INT ENABLED 



******************************************************* 

* * 

* WE COME HERE TO CLEAR OUT THE READ BUFFER * 

* RDBUF = START ADDRESS, ENDB'JF = END ADDRFSS * 

* * 
******************************************************* 



CLRBUF 



:lr.i 



EQU 

STM 

LDA 

LDA 

AIS 

LIS 

STH 

AIS 

CLAR 

BNP 

LH 

P.R 



R0,REGS 

R1, RDBUF 

R2,EHDBUF 

R2,2 

R3,0 

R3,0(?1) 

R1,2 

R1,B2 

CLR.1 

RO,REGS 

R15 



SAVE REGISTERS 

LOAD ADDRESS OF START 

LOAD ADDRESS OF END 

DO ONE EXTRA HW 

LOAD ZEROS FOR BUFFER 

STORE ZEROS IN BUFFER LBAL 

INCREMENT LBAL 

ARE «E AT END? 

NO! STORE SOME MORE 

RESTORE REGISTERS 

RETURN TO CALLER 



******************************************************* 

* * 

* COME HERE TO SET UP WRITE BUFFER FOR SELCH * 

* * 
******************************************************* 



SELSETW 



SEL.3 
SEL.31 



SEL.1 



EQU * 

STM RCREGSAVE 

LHL R6,BYTES+$VAL'J1 

SIS R6,1 

3 SEL.31 

ST* R0,REGSAVE 

LH R2,SELCH+$VALU1 

LA R3,WRTBUF 

STA P3,WBUF 

LH R3,0(R4) 

LIS R7,X'0'' 

STH P.3,WRTBUF(R7) 

AIS R7,2 

CLAR R7,R6 

BNP SEL.1 

BAL R14,CST0F 

LA R3,WRTBUF 

AAR R6,R3 

ST R6,ENDBUF 

LM R0,REGSAVE 

SR P15 



STORE REGISTERS 
LOAD RECORD SIZE 
ALLOW FOR BYTES 

SAVE REGISTERS 

LOAD SELCH ADDRESS 

LOAD ADDRESS OF WRITE BUF 

STORE THE ADDRESS 

LOAD TEST PATTERN 

ZERO OUT INDEX COUNTER 

STORE PATTERN INTO WRITE BUF 

INCREMENT WRITE BUF LBAL 

WRITE BUFFER FULL? 

NO! STORE SOSE fORE 

FORCE SELCH STATE 

LOAD WRITE BUFFFR ADDRESS 

CALCULATE ENDING ADDPESS 

STORE ENDING ADDR. OF BUFFER 

RESTORE REGISTERS 

BRANCH BACK TO CALIF" 



" T D83510 
NTD83520 
NTD83 c; 30 
MTD83 c i40 

MTD83S60 
N^D83570 
>!' ,, D835S0 
N' T 'D83590 
MTD83R00 
f?D83610 
»TD8?«20 

STD83640 
MTD83550 
ttTT>836«0 
fTi)83670 
M^DHSeSO 
M T D83690 
M"'D83-'00 
>f'D83710 
MTD83720 
f^D83''30 
T"D83740 
YTD83750 

«?TD83770 
MTD83780 
MTH83790 
HTD83800 
STD83810 

M T D83830 
»f'P83840 
MTD83850 
HTD83860 
*TD83870 
NTD83880 
MTD83890 
MTD83900 
MTD83910 
MTD83 Q 20 
«^D83930 
WTD83940 
"TD83950 
»C'D83960 
«i , D83970 
«f^D83980 
^■"083990 
1TD84000 
¥^D84010 
M^D34020 
1^084030 
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007E78 
007F7C 
007E80 
007E84 
007F.83 
007E8A 
007E8E 
007E92 
007E96 
007E9A 
007E9C 
007EAO 
007SA4 
007EA8 
007EAC 
007EAS 
007EE2 
007EB6 
007EBA 
007EBE 
007EC2 
007EC6 
007ECA 

0C7ECE 
007ED6 
007FDE 
007EE6 
007EEC 
007EES 
007FF6 
007EFE 
007FO0 



007F02 
007F05 
007FCA 
0C7F0C 
007FOF 
007F12 
C075'H 
007F1A 
7 F IF. 



41E0 


FDDO 


=007C4C 


41E0 


FE1E 


=007C9F 


41E0 


FE20 


=007CA« 


C530 


0000 




03^F 






DOOO 


8302 


=008990 


41F0 


84DC 


=00836E 


S650 


8038 


=007FCF 


4810 


2108 




2103 






5620 


8048 


=007FE6 


mro 


1680 




41F0 


84C6 


=00836E 


4810 


851A 


=0O83C6 


2404 






E520 


8049 


=007FFE 


41F0 


1680 




D100 


8AD6 


=008990 


S650 


8030 


=007FEE 


41E0 


DE86 


=005P48 


E6F0 


E9BC 


=006882 


E6E0 


86CC 


=008596 


4300 


83FE 


=0082CC 



494E 434F 5252 4543 

5420 5354 4154 5553 

204F 4E20 5345 4C43 

4820 2A2A 2A20 

ODOA 

5345 4C43 "820 5354 

4154 5553 3D2A 2A2A 

2A20 

ODOA 



41F0 rr )D6 
41E0 FE3A 
3U33 
06 3D 

5030 S5CE 
41 EO FD88 
41E0 FCC2 
58A0 85C2 
55A0 85B6 



=007CDC 
=007044 



=0O84E0 
=007C9F 
=007EDC 
=0084F0 
=0084D8 



3404 
3405 
8UO ft 
340"? 
8403 

3410 
3^11 
8412 
8413 
8414 
8415 
8416 
8417 
8418 
8419 
8120 
8421 
8422 
8423 
8424 
3425 
8426 
8427 
8428 
6^29 
6430 
8431 
8432 
8433 
8434 



8435 

8437 
3438 

sUtio 
6441 
8^42 
8UU3 
Bnun. 

S --5 
8liu6 
SUU7 
2 - - c 
3^49 



* * 

* COSE HERE TO CHECK SELCH STATUS * 

* * 



SELCHK 



BAL 

BAL 

BAL 

CLHI 

BER 

ST* 

BAL 

LA 

LH 

LIS 

LA 

BAL 

BAL 

LH 

LIS 

LA 

BAL 

LH 

LA 

BAL 

LA 

LA 

B 



R14,SENSTA2 

R14,CST0P 

R14,CST0PS 

R3,X*0' 

R15 

R0,EE8SAVE 

R15,L00P2 

E5,EPEBSG8 

H1,SELCH+SVALU1 

HO, 3 

B2,EEEBSG8+26 

R15,HEXASC 

R15,L0CP2 

R1,SELSTAT 

E0,4 

R2,ERRMESS8+13 

B15,HEXASC 

B0,ERRSAYE 

R5,ERRKESS8 

R14,T7EPF0SA 

R15,T7ERMSG1 

P14,C0NTKSG 

ERRORX 



CHECK STATUS 

INIT SELCH 

STOP SELCH AND ENABLE STATUS 

COMPARE ^OR BAD STAT 

AND IF GOOD BRANCH OUT 

SAVE REGISTERS 

OUTPUT PENDING MESSAGES 

INCORRECT STATUS IN SELCH *** 

SELCH ADDRESS 

DIGITS TO CONVERT 

STORED HERE 

CONVERT 

OUTPUT FIRST MESSAGE 

SELCH STATUS 

DIGITS TO CONVERT 



2ND HSG 

DRIVE AND DRIVE STATUS 

SUSPECTED EEROR V CONTROLLER 
OUTPUT MESSAGE 



ERRMSG8 DC 



C'INCOEFECT STATUS ON SELCH *** , ,X , 0DOA" 



S"35 EBRSESS8 DC 



C* SELCH STATU3= 



',X'0D0A' 



***+***************#****+****************************** 

* COME HERE TO CHECK SELCH ENDING ADDRESS * 

******************************************************* 



SELEND 



BAL 

BAL 

EXHR 

OAR 

STA 

BAL 

3AL 

LDA 

CLA 



E14 
R14 
*3, 
R3, 
53, 
F14 
E14 
R10 
810 



,CEX 

,REE 

E? 

R13 

STOP 

,CST 

,SEN 

,STO 

,END 



ND 



ADR 

OP 

STA 

PAD? 

BUF 



SET EX. ADDRESS BI 1 " 

READ ENDING ADDRS ON SELCH 

SET UP UPPEE HALF 

OP THE TWO TOGETHER 

AND STORE IT 

RESET SELCH 

LOAD INTERFACE STATUS 

LOAD ENDING ADDRESS 

COMP'.RE ACTUAL AND CALCULATED 



*fTr)f3H040 
MT084050 
fTT)840«;0 

nn>84070 

M^D84080 

MTT)84100 
MTD34110 
MTD84120 
M^DSIISO 

*ml)Oft 1JJ Q 

n-rr>Rm5o 

M" , D84160 
M^DSttl^O 
M^D84180 
M"'D84190 
MTD84200 
MTD84210 
MTD84220 
?f n D84230 
MTD84240 
MTD84250 
M T D84260 
«Tf. 81)2 70 
^084280 
MTD84290 
M^DSaSOO 
M^D84310 
MTD84320 
M T D8U330 
"■"D84340 



M"'D84350 



MTD84360 

MTD84370 
w^DSISSO 

VTD84400 

ifTD84410 
MTD84420 
MTD84430 

VTD34450 
M m D844S0 
Mi 1 D84470 
MTD84480 
w n D84490 
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TEST SUBROUTINES 



C07F22 
0C7F24 
007F28 
007F2C 

"007F30 
007F32 
007F36 

*007F3A 
007F3C 

*0C7F40 
007F42 
007F46 
007F4A 
007F4C 
007F50 
007F54 
007F58 
007F5C 
007F60 
007F64 
007F68 
007F6C 
007F70 
007F72 
007F76 
007F7A 
007F7E 
007F82 
007F84 
007F88 
007F8C 
007F90 
007F92 
007F96 
007F9A 
007F9E 
007FA2 
007FA6 

007FAA 
007FB2 
007FBA 
007FC2 
007FCA 
007FD0 
007FD2 
007FDA 
007FE2 
007FE4 
007FE6 
007FEE 
007FF6 
007FFE 



033F 






DOOO 


8A68 


=008990 


41F0 


8442 


=00836E 


55A0 


8534 


=0O84F4 


213D 




=0C7F4A 


58C0 


85SE 


=0084F4 


5500 


85A2 


=0084DC 


2334 




=007F42 


E650 


80EC 


=C0802C 


2303 




=007F46 


E650 


80D4 


=008C1A 


41F0 


8424 


=00836E 


2403 






4810 


2108 




S620 


8078 


=007JCC 


41F0 


1580 




D100 


8A34 


=008990 


E6 50 


804A 


=007F*A 


41S0 


DDE4 


=005D48 


E650 


E91A 


=006882 


41F0 


8402 


=00836F 


DOOO 


8»20 


=008990 


2404 






4810 


8450 


=008306 


C410 


OOFF 




E620 


8061 


=007FDF 


41F0 


1680 




2406 






5810 


8550 


=0084D8 


E620 


806B 


=007FF7 


41F0 


1680 




081A 






E620 


807B 


=008011 


41F0 


1680 




D100 


89F2 


=008990 


E6F0 


8030 


=007FD2 


S6E0 


85F0 


=008596 


4300 


8322 


=0082CC 


494E 


434F 


5252 4543 


5420 


454E 


4UU9 4F47 


2041 


4444 


5245 5353 


2Q4F 


4F20 


5345 4C43 


4820 


2A2A 


2 A 20 


ODOA 






5345 


4C43 


4820 5354 


4154 


5553 


3D2A 2A2A 


2?. 20 






8D0A 






4558 


5045 


4354 4544 


2041 


4444 


5245 5353 


3D2A 


2A2A 


2A2A 2A20 


enoA 







8450 


EEF 


R15 


S451 


SELEND.1 STK 


EO,ERRSAVE 


8452 


F.AL 


?15,L00P2 


8453 


CLA 


R10,STASADDR 


8454 


3NE 


SELFPR.1 


8455 


T. 


PO,STARADDR 


8451 


CLA 


RO,RDBUF 


8 457 


BE 


SELERRA 


8458 


LA 


R5,ERMSGBA 


8459 


B 


SELERRAA 


8460 


SELERRA LA 


R5,ERMSGAA 


8461 


SELERRAA BAL 


R15,L00P2 


8462 


SELERR.1 LIS 


SO, 3 


8463 


LH 


R1,SELCH+SVALU1 


8464 


LA 


R2,ERRKSG9+34 


8465 


BAL 


R15,HEXASC 


8466 


LS 


BO,ERRSAVE 


8467 


LA 


E5,EHRSSG9 


8"68 


EAL 


R14,T7ERR0SA 


8469 


LA 


R5,T7ERKSG1 


8470 


BAL 


R15,L00P2 


8471 


STf! 


RO,ERRSAVE 


8472 


LIS 


R0,4 


9473 


LH 


R1,SELSTAT 


8474 


NHI 


R1,X'O0FF' 


8475 


LA 


R2,HESSAGE9+13 


8476 


BAL 


P15,HEXASC 


8477 


LIS 


R0,6 


3478 


L 


R1,ENDBUF 


8479 


LA 


R2,HESSAGEA+17 


8480 


BAL 


R15,HEXASC 


8481 


LR 


R1,R10 


8482 


LA 


R2,HESSAGEB+17 


8483 


BAL 


P15,HEXASC 


8484 


LH 


RO,EERSAVE 


8485 


LA 


R15,HESSAGE9 


8486 


LA 


R14,C0NT«SG 


8487 


B 


ERRORX 


8488 


* 




8489 


ERRMSG9 DC 


C" INCORRECT ENE 



CONTINUE IF EQUAL 

SAVE REGISTERS 

OUTPUT PENDING YESS»3ES 



COMPARE TO RDEUF STAFT 
NO READ OCCURRED 
NO WRITE OCCURRED 

NO READ OCCURRED 

3 DIGITS 
SELCH ADDRESS 



INCORRECT ENDING ADDRESS ON SELCH *** 
DRIVE AND STATUS 



4 DIGITS 

ACTUAL STATUS 

CLEAR HIGH ORDER BITS 

STORFD HERE 

SIX DIGITS 

EXPECTED ENDING ADDRESS 

STORED HERE 

ACTUAL ENDING ADDRESS 

CONVERT 

RESTORE REGISTERS 

SUSPECTED ERROR W CONTROLLER 



8490 HESSAGE9 DC 



8491 MESSAGE* DC 



C'SELCH STATns=**** 1 ,X'8D0A' 



C'EXPECTED ADDRESS=******' ,X , 8DCA' 



MTD84500 
"TD84510 
YTD34520 
YTD84530 
■4^084540 
fTD84550 
w"D845«0 

^084^80 
yfT)g(t5Q0 
rTD34600 
^"'084610 
MTD84*20 
y , D34630 
*TD84«40 
ffD84650 
MTD84560 
*,TD84670 
MTD84680 
«? m D84690 
«"'D84700 
tfTO84710 
«TT)84720 
1' T, D84730 
wtt)8H740 
vrT>ri84750 
w , D84760 
w' T 'D84770 
KTD84780 
>f , D34790 
*'"D84800 
MTI84810 
^Tngup20 
VTD8 4830 
^084840 
M T D84850 
* ,T 'D84860 
f^D84870 
■f"'D84880 
HTD94890 



*'"D84900 



MT)84910 
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TEST SU3<?0UTINFS 



008000 


4143 


5455 


414C 


2041 


00S003 


4444 


5245 


5353 


2020 


008C10 


3D2A 


2A2A 


2A2> 


2? 20 


003018 


ODOA 








0C801A 


4E4F 


2052 


4541 


4420 


008022 


4F43 


4355 


5252 


4544 


00802A 


ODOA 








00502C 


4F4F 


2057 


5249 


5445 


008034 


204F 


4343 


5552 


5245 


00803C 


4420 








Oucujr, 


ODOA 









8492 MESSAGEB DC 



C'ACTUAL ADDRESS =******' ,Y ' ODOA ! 



0C8040 
008044 
00804A 
00804E 
008052 
008054 
008056 
00S05A 
00805E 
008062 



008064 
008068 
00806C 
008070 
008072 
008076 
00807A 
00807C 
00807E 
008080 
00SC84 
003088 
00808C 
0O8C90 
008094 



0000 8040 

DOOO 844C =008490 

E610 4001 89D0 

5010 848E =0084DC 

7320 200C 

2721 

0A12 

5010 847E =008408 

41F0 FDBA =007E18 

D100 842F =008490 

030F 



0000 


8064 




C860 


01FF 




41E0 


FB70 


=007EDC 


C330 


0014 




033F 






41 SO 


FB66 


=007PDC 


C430 


0020 




023F 






2761 






203B 




=008068 


41E0 


FB58 


=007BEC 


41F0 


82F6 


=00836E 


E650 


8 6A8 


=008734 



8493 ERMSGAA DC C'NO READ GCC'JRRFD ' ,X ■ ODOA ' 



8494 ERKSGBA DC C'NO WRITE OCCURRED" ,X' ODOA ' 



8495 * 

8496 ******************************************************* 

8497 * * 

8498 * COKE HERE TO SET UP READ BUFFER * 
.8499 * . * 

8500 ******************************************************* 



8502 
8503 
8504 
8505 
8506 
8507 
8508 
8509 
8510 
8511 
8512 
8513 
8514 
8515 
3516 
8517 
8518 
8519 



C800 0020 

4000 8334 =006 

41F0 28 AF 



3C6 



522 

523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 



SEISETR EQU * 

STM R0,REGSAVE 

LA R1,READBUF 

STA R1,RDBUF 

LHL R2,BYTES+$VALU1 

SIS R2,1 

AAR R1,R2 

ST R1,ENDBUF 

BAL R15,CLRBUF 

LM RO,RFGSAVE 

BR R15 



STORE WORKING REGISTERS 
LOAD ADDR. OF READ BUFFER 
STORE IT 

LOAD RECORD LFNGHT 
ALLOW FOR BYTES 
CALCULATE 3UFFER SIZE 
STORE ENDING ADDRESS 
CLEAR OUT READ 3UFFER 
RESTORE REGISTERS 
RETURN TO CALLER 



******************************************************* 

* * 

* THIS ROUTINE IS TO MAKE SURE MAG. TAPF * 

* EXCEPTS REMIND COWHAND * 

* * 



8521 RWTMOUT FQU 



RW. 1 



LHI 

SAL 

THI 

3ZP 

BAL 

SHI 

BNZ? 

SIS 

BNZS 

3 Al 

BAL 

LA 

LHI 

3TH 

BAL 



R6,X' 1FF' 

R14,SENSTA 

PS/X'IU' 

R15 

S14,SENSTA 

33,X'20' 

R15 

R6,1 

P.H.1 

R14,SENSTA 

?15,L00P2 

°5,C0MERKS8 

R0,X*20' 

RO,STATGD 

R15,T0EREOBB 



LOAD TIMEOUT COUNT 

DO A STATUS CHECK 

FOR NHTM 

OK IF NMTM D?0?S 

CHECK TO SEE I? BACK AT BOT AIRE 

ZERO IN OH BO? 

BACK TO PROGRAM IF AT BOT 

OTHERWISE DECREMENT COUNTER 

KEEP TRYIVG UNTIL ZERO 

LOAD STATUS 

OUTPUT PENDING *"SSAGES 

DRIVE TIME 0".*r ON REMIND 

EXPECTED STAT-'S 

DRIVE AND STATUS'S 



WT5S4920 



*' T 'D84930 



V"D84940 



MTD84950 
WTD84960 
KTD84970 
M'*'D849S0 
H^D84990 
"TD^OCO 

?fH)85020 
MTD85030 
MTD85040 
"""DSSOSO 

w^sso^o 

W' n D85070 
^ T D85080 
"^085090 
WT185100 
VTD85110 
MTD85120 
YTD85130 
MTD85140 

M"'D85160 
M^D85170 
WTD85180 
«f T D85190 



MTD8 
mtdb 
f m D8 
MTD8 

HTT)g 

WTT)8 

M^D8 
VD? 

"TDS 

l(-n-)a 

^TD8 



5210 
5220 
5230 
e?ac 
5250 
5260 
52 7 
5280 
5290 

5310 

5 320 
5^30 
5 340 
5 3 C 
5^« ~ 
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TEST SUBROUTINES 



0C8098 


z.6^0 


2A4C 




8537 






LA 


?15,KESSAGE1 






1""D95370 


008C9C 


^6E0 


6 4 8 A 


= 00852*. 


8533 






LA 


E14,DRIVrSG 


SUSPECTED ERROR WITH TAPE DP 


IVE 


MTD85^80 


0080AO 


J- 3 


8228 


=0C82CC 


8539 
B5U0 


* 




^ 


ERRO*X 






W7'D85 3^0 
WTD9^400 










9541 


****************************************************** 




MTD95410 










3542 


* 








* 




WTD85420 










8543 


* 


COSE 


HERE TO 


CHECK WPITF INHIBIT 


05 FILE PROTECT ACT*VF 




MTT)35430 










3544 


* 








* 




M'"D9 5tt40 










8545 


******************************************************* 




f")85!t50 




00 00 


80A4 




354"? 


WR 


TENB 


EQU 


* 






WTD854" 7 


0080A4 


4800 


208A 




8543 






LH 


R0,DRVTYPE+$VALU1 


LOOK IF TELEX OR STC 




M"'D85480 


0080A8 


023? 






8549 






BNZR 


315 


RETURN 




MTD85490 


0080AA 


4130 


FC10 


=007CBE 


3550 






BAL 


R14,CN0P3 


ADDRESS STATUS HW 3 




M^DSSSOO 


0030AE 


41E0 


FC40 


=007CF2 


8551 






BAL 


R14,REDF 


READ STATUS HW 




MTD85510 


0080B2 


C430 


1000 




8552 






NHI 


R3,X'1000* 


FILE PROTECT ACTIVE? 




MTD85520 


0080B6 


033F 






8553 






BZR 


R15 


NO! GO BACK TO CALLER 




MTD85530 


0080B8 


2403 






8554 






LIS 


R0,3 


DIGITS TO CONVERT 




MTD85540 


0080BA 


4810 


834A 


=008408 


3555 






LH 


R1,DRIVSAV 


DRIVE ADDRESS 




MTD85550 


0080BE 


"620 


379E 


=008860 


3555 






LA 


R2,WRTINH+32 






M" , D85560 


0080C2 


41F0 


1680 




8557 






BAL 


R15,HEXASC 


CONVERT 




M?D85^70 


0080C6 


E550 


8776 


=008840 


8558 






LA 


R5,WRTINH 


WRITE INHIBIT SET 




MTD95580 


0030CA 


41F0 


82A0 


=00836E 


8559 






BAL 


R15,LOOP2 






MTD85590 


0080CE 


4300 


1359 




8560 
3561 


* 




B 


ABORT 


AND ABORT TEST 




MTD85600 
MTPP5610 










8552 


******************************************************* 




MTD85620 










8553 


* 








* 




M T D85630 










8564 


* 


COME 


HERE TO 


REWIND HAG TAPE DRIVE * 




M"'D85K40 










8565 


* 








* 




M m D85650 










8565 


******************************************************* 




MTD85660 




0000 


80D2 




8569 


RS 


KMT 


EQU 


* 






MTD85680 


0060D2 


41E0 


FB06 


=007EDC 


8569 






BAL 


R14,SENSTA 






M^DSsego 


008OD6 


C330 


0020 




8570 






THI 


R3,X'20* 


IS BOT SET ALREADY 




MTD85' 7 00 


0080DA 


02 3F 






8571 






BNZR 


R15 


DO NOT ISSUE REWIND IF SO 




MTD85710 


0080DC 


C330 


0010 




8572 






THI 


R3,X'10" 


NO MOTION SET 




MT085720 


0080EO 


2133 




=008OE6 


3573 






BNZ 


RW.2A 






MTD8573'0 


0080E2 


41E0 


FAFE 


=007PE4 


8574 






BAL 


R14,SENSTA1 






KTD85740 


0080E6 


41 SO 


FBA8 


=007C92 


8575 


RW 


.2A 


BAL 


B14,CREW 


GIVE COMMAND 




MTD85750 


0080EA 


C800 


077F 




8576 






LHI 


R0,X'77F' 


TIMEOUT VALUE 




MTD85760 


0080EE 


41E0 


FAEA 


=007EDC 


8577 


RW 


.3 


BAL 


F.14,SENSTA 


SENSE STATUS 




MTD85770 


0080F2 


234D 




=00810C 


8579 






ENOS 


RW.3B 


WAIT FOR NMTN TO DROP 




MTD85730 


0080F4 


2701 






8579 






SIS 


R0,1 


DECREMENT TIMER 


R01 


MT08579O 


0080F6 


2034 




=0080EF 


3590 






BNZ 


RW.3 


CONTINUE VfAIT FOR MOTION 


R01 


«r^D85800 


0080F8 


S650 


870C 


=008808 


8531 






LA 


R5,TSTERRC 


TI"ED OUT WAITING FOP TAPE M 


OTION P01 MTD95810 


0080FC 


41E0 


DC48 


=0051-48 


3532 






BAL 


R14,T7EPR0?.A 


DRIVE 6. STATUS 


R01 


■""D85920 


008100 


26 70 


E77E 


=006882 


3533 






LA 


R15,T7EEMSC1 


P01 




M^DSSSSO 


008104 


S6E0 


848E 


=008596 


8594 






LA 


R14,C0NT"SG 


SUSPECTED ERROR W CONTROLLER 


R01 


yrpessuo 


008108 


4300 


31C0 


=0082CC 


9535 






B 


ERROEX 


"01 




YTpn^fl^o 


00810C 


41E0 


FAD4 


=007BE4 


8596 


RW 


.3B 


BAL 


R14,SENSTA1 


THEN WAIT FOR NMTN 




MTD8^860 


008110 


3 OF 






3537 






BR 


?15 


AND RETURN TO CALLER 




^Tn85P70 










8 5 3 3 


* 


***************************************************** 




M^PflSB^O 










35^9 


* 








* 




vrnR^ggri 



HIGH PERF0RMANCF(6250)MAGTAPE DIAGNOSTIC 06-263R01 K95A 13 PAGE 191 08:34:07 12/23/83 
TEST SUBROUTINES 



oosn-2 

00'81*f6 
OOBi'lA 
00811E 
00S122 
*008126 
008128 
00812C 
00 8130 
008134 
008138 

00813A 



O0813E 
008142 



00811*6 
00814A 
00814E 



008152 
008156 
00S15A 
00 8 15C 
*008160 

008162 

oos-'fs 

003 16 A 
00816E 



ooei _, 2 

008175 

0P817A 

ocei~- 



0000 


8112 




41F0 


FAC6 


=007EDC 


C4 30 


0001 




4230 


FC6A 


=007D88 


41E0 


FAC2 


=007EE4 


C4 30 


OOCO 




213A 




=00813A 


50F0 


83A4 


=0084DO 


41F0 


1A8C 




58F0 


839C 


=0084D0 


41E0 


FAA4 


=0C7BDC 


03 OF 






41E0 


FA9E 


=007BDC 



0000 313E 
C430 0080 
4330 804C =008192 



7330 827A 
C430 0040 
4330 8030 



41E0 FB54 
41E0 F398 
243E 

7430 82E8 
2339 

E650 84CC 
41F0 8204 
E550 84F0 
4300 803E 

0000 3 172 
E650 84BC 
41F0 81F4 
F.650 84FC 
4 300 802F 



=0083C4 
=008182 



=007CAA 
=007CF2 

=008448 
=008172 

=008632 
=00836E 
=00865E 
=0081B0 



=008632 
=00836E 
=00867A 
=0081BO 



3590 
8591 
8592 
8593 
8594 
8595 
8596 
8597 
3598 
8599 
8600 
3601 
8602 
8503 
8604 
8605 
8606 
3607 
3608 
8609 
8610 
8611 
8612 

3514 
3515 
8615 
3617 
3518 
8619 
3620 
8521 
8622 
8523 
8624 
8525 
3625 
8627 
3528 
3529 
8530 
8631 
8632 
8633 
363^ 
8635 
8636 
8537 
663? 
3539 
8640 
£54 1 
PS 42 



* COME HERE TO CHECK OUT THF STATUS BYTE * 

* * 

* ***************************************************** 
STATCHK 



EQU * 

BAL R14,SENSTA 

SHI W,X'01' 

BfZ IT.C 

BAL R14,SENSTA1 

SHI R3,X'C0' 

BNZ STAT.EE 

STA R15,SAVP15 

EAL R15,TSTBRK 

IDA R15,SAVR15 

STATCHK1 BAL R14,SENSTA 

BR R15 
* OTHERWISE CHECK SEASON FOR ERROR 

STAT.EF BAL R14,SENSTA 



LOAD STATUS 

IS DEVICE GONE D'J? 

YES! FLAG I"" 

WAIT FOR NK^N 

SHECK STATUS FOR ERROR BITS 

BRANCH TO ERROR IF SET 

SAVE PETHRN LOC 

TEST FOR BREAK 

RESTORE RETURN LOC 

LOAD STATUS AGAIN 

AND RETURN TO CALLS'? 

LOAD STATUS 



******************************************************* 

* * 

* COME HERE TO CHECK OUT STATUS BYTE ERROR BITS * 

* * 

******************************************************* 



SNS.ERR 



EQU * 

NHI R3,X'80* 

SZ SNS.ERB 

THIS ELIMINATES RECEIVE 
WRITE UNDERFLOW AND FCU 

LHL R3, STATUS 

NHI R3,X"40* 

3Z SNS.EBC 



IS ERR BIT SET? 

NO! CHECK OTHER BIT 

PARITY, READ OVERRUN 
OFFLINE 

LOAD STATUS AGAIN 
IS TERR SET ALSO? 
NO! CHECK TRANSFER ERRORS 



THIS MEANS BUS PARITY OR FORMATTER OVERRUN 



BAL 


R14,CN0P0 


BAL 


R14,5EDE 


LIS 


R3,14 


T3T 


R3,SNSHW 


BZ 


SNS.ERD 



*MUST BE BUS PARITY ERROR TO '. 
LA R5,C0KE5"S0 
BAL R15,L00P2 
LA R5,C0BE*!:S1 
B STATERR 

♦MUST BE FORMATTER OVERRUN' TO 

SNS.ERD EQU * 

LA R5,C0MERMSC 
3AL 215,LOO?2 
LA R5,COM"?yS2 
3 STATERR 



ADDRESS A STATUS HW 

READ AND LOAD IT 

LOAD TEST OFFSET 

TEST FOR BUS PARITY 

BRANCH TO ANOTHER CHECK 
ET HERE 

INCORRECT DEVICE STATUS HALF»ORD 

OUTPUT 1ST MESSAGE? 

•BUS PARITY' IS INDICATED 

BRANCH TO COMMON ROUTINE 
GET HERE 

INCORRECT DEVICE STATUS HALFWORD 

•FORMATTER OVERRUN' IS INDICATED 
BRANCH TO COMMON ROUTINE 



M^D85900 
Hn, T)85 Q 10 

M" , D85920 
MTD85930 
MTD85940 
"^085950 
M' P D85960 
M'!'D85970 

M^DssgBo 

M^D85990 
M^D36000 
<*TD85010 
M"'D86020 
M""D86030 
MT85040 
MTDS6050 
HTD86060 
M T D86070 
MT-D86080 
M^DBfiOOO 
M^D86100 
M*^D86110 
M^D96120 

MTD86140 
M^DSei^O 
M^D86160 
MTD86170 
MTD86180 
M-"D86190 
M^D86200 
M^D96210 
MTD86220 
MTD86230 
M ,p D86240 
M^D86250 
^^D86260 
MTD85270 
MTD86280 
M'TD86290 
M"'D86300 
MTD86310 
MTD86320 
M^D86330 
MTI35340 

M^Dseaso 

MTD86370 
, » q, D8«330 
M m D36390 
M m D85400 
MTD8P410 
W ^D86420 
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TEST ~ U R ~ ? " ? I K F S 



00 8182 
008185 
00818? 
00818E 



008192 
008196 
00819A 
0Q819C 
0081A0 
008 1A4 
0081 A3 
0081AC 
0081BO 
0081B4 
0081B8 
0081BC 
*0081CO 
0081C2 
0081C6 
0081CA 
0081CE 
0081D2 
0081D5 



0081D8 
0081DA 
'0081DE 
0081E0 
0081E4 
0081F8 
0081EC 



0081F0 
*0081F4 
0031F5 
008 1FA 
0081FE 
008202 



008206 
008 20A 



0000 8182 

1550 84AC 

41FQ 81E4 

E650 850E 

4300 801E 



=008632 
=00836F 
=00869C 

=0081B0 



0000 


8192 




41E0 


FB14 


=007CAA 


!i1K0 


FB58 


=007CF2 


243D 






74 30 


82A8 


=008448 


4 3 30 


3034 


=0081D8 


"6 50 


848A 


=008632 


4 1?0 


81C2 


=00836E 


S650 


8510 


=0086C0 


41F0 


81BA 


=00836F 


4810 


8250 


=008408 


41F0 


805A 


=008216 


4800 


208A 




2335 




=0081CA 


E6F0 


8588 


=00874E 


4300 


8106 


=0082DO 


5650 


8580 


=00874E 


41F0 


819C 


=00836E 


E6F0 


85CE 


=0087A4 


2208 




=0081C6 


0000 


81D8 




243F 






7430 


826A 


=008448 


2339 




=0081F0 


S6 50 


844E 


=008632 


41F0 


8186 


=00836E 


"650 


84F4 


=0086E0 


4300 


FFCO 


=0081B0 


0000 


81F0 




7430 


31 DO 


=0083C4 


23 39 




=008206 


£650 


8438 


=008632 


41FQ 


8170 


=00836E 


2550 


84FC 


=0086FE 


4300 


FFAA 


=0081B0 


OOCO 


3206 




E550 


8428 


=008632 


41FG 


S1S0 


=00836E 



S64j 
3644 
J 6 4 5 
6645 
8647 
8 6 4? 
S649 
= 550 
3651 
3 5 52 
6553 
3554 
3 655 
3555 
8557 
8553 
8559 
8560 
3661 
8552 
8663 
8564 
3665 
3565 
8667 
3668 
8669 
8670 
8671 
8672 
3573 
8574 
8675 
8676 
3577 
3573 
8579 
8680 
8681 
8582 
3685 
86S4 
8535 
3 5 S 5 . 
8557 
86S3 
8 6 89 
S6 9C 
3 591 
8692 
8693 
8694 
3595 



HERE WE'LL CHECKOUT ERR BIT STATUS 

WHICH MEANS BASICALLY REJECT OP. TATA CHECKS 



SNS.ERC 



FQH 

LA 

BAL 

LA 

B 



SNS.FRE 



STATER5 



STATERO 
STATER 1 



R5,COMFR«S0 
R15,L00P2 
R5,C0HEE>IS3 
STATERR 



INCORRECT DEVICE STATUS HALFWORD RETU 

REJECT OR DATA CHECK IS INDICATE*) 
BRANCH TO COMMON ROUTINE 



COSE HERE TO CHECK OUT TERR 3IT STATUS 



EQU 

BAL 

BAL 

LIS 

TBT 

BZ 

LA 

BAL 

LA 

BAL 

LH 

BAL 

LH 

B7 

LA 

B 

LA 

BAL 

LA 

BS 



SNS.ERBA EQU 
LIS 
TBT 
BZ 
LA 
BAL 
LA 
B 



SNS.EREB 



EQU 

T3T 

BZ 

LA 

BAL 

LA 



♦OUTPUT ? THEN 

SNS.ERBC EQU 
LA 
EAL 



R14,CN0P0 

B 14, REDE 

R3.13 

R3,SNSHV 

SNS.ERBA 

R5,CO*ER*S0 

R15,LO0P2 

R5,C0HER!1S4 

R15,LOOP2 

R1,DRIVSAV 

R15,SNS.C0K1 

R0,DRVTYPE+$VALU1 

STATER1 

R15,DSBKSG0 

ERBOE 

R5,DSBKSG0 

R15.L00P2 

R15,DSB4^SG 

STATERO 



R3,15 

R3,SNSKW 

SNS.ERBB 

R5,COKERKS0 

R15,L00P2 

R5,C0MERMS5 

STATERR 



R3, STATUS 

SNS.ERBC 

R5,C0MER*S0 

R15,LOO?2 

R5,CO*?EB»rS6 

STATFRP 

9 



E5,C0MERMSC 

PI?, LOO?? 



ADDRESS A STATUS HW 

AND LOAD BUS STATUS HW 

LOAD TEST OFFSET 

TEST FOR WRITE UNDERFLOW 

CHECK NEXT ONE IF ZERO 

INCORRECT DEVICE STATUS HALFWORD RETU 

•WRITE UNDERFLOW IS INDICATED 
OUTPUT PENDING MESSAGES 
LOAD DRIVE ADDR 

LOOK IF STC OR TELEX 
STC IF 



LOAD 0-3 DSH 
OUTPUT IF POSSIBLE 
LOAD 4TH DSH 
ERROR ROUTINE 



LOAD TEST OFFSET 
TEST FOR READ OVERRUN 
CHECK NEXT ONE IF ZEPO 
INCORRECT DEVICE STATUS HALFWORD 

READ OVERRUN IS INDICATED 
AND BRANCH TO EBROR ROUTINE 



TEST FOR DU 

LAST CHANCE? 

INCORRECT DEVICE STATUS HALFWORD 

FORMATTER VENT OFFLINE 
AND OUTPUT ERROP 



INCORRECT DEVICE STATUS HALFWORD 



HTT)0f;u^0 

MT??644C 

ytt)3 f. 4^0 
mths <^470 
™ q, D?648P 

li" , D8 5 500 
vn-nqf 510 

* m ^?6530 
y q, D?fc540 
MTD3 6 550 
MTD86560 
NTDS6570 
"TDS6580 
w"D86590 
WTD96600 
MTD86610 
1" ,r >°6620 
1' 7 'D86630 
w , DS6640 
M T D?6650 

M^Dseefio 
"■"Deee^o 

*' r D85690 
M" !, D?66 < »0 
^T'n86"'00 
M^D86710 
M^DS6720 
1'"n85730 
S"'D86740 
1VD8S750 
«c ,, D86''60 
MTD86770 
f T D86780 
"TD86790 
M T D86800 
«C'D86810 
MTD86820 

vosesao 

H^"86840 
M^D8 6 850 
^DSfiBfiO 
yr.T)g5P70 

"TD86890 
M"D86900 
"TD86910 
H T D86920 
wTnggSSO 

, «' T ")86940 

M^^86^50 



HI3H PERF03KANCE(6250)KASTAPE DIAGNOSTIC 06-263RO1 *95A 1 3 PAGE 193 08:34:07 12/23/83 

TEST SUBROUTINE?; 



CCS 20.-; 
006212 

0C8216 
00b 2 1? 
00821C 
008220 
008224 
003228 
00922C 
C0S23C 
008234 
008238 
00823C 
008240 
008244 
008248 
00824C 
008250 
008254 
003258 
00825C 
008260 
008264 
008268 
00S26C 
008270 
008274 
003278 



0G827A 
00S27E 
008290 
008284 
008288 
00S23C 



00823E 
00^292 
008296 
*00S29A 
00829C 
0032A0 
Q0 82A4 



-,«so 


8506 


=008718 


4300 


FF9A 


=008150 


DOOO 


8776 


=008990 


2403 






r 620 


8534 


=008754 


41F0 


1680 




4 1E0 


FA92 


=007CAA 


41FC 


FAC6 


=007CF2 


ES20 


8549 


=008779 


41F0 


8046 


=008?7A 


41E0 


FA7A 


=007CE2 


41F0 


FAB6 


=007CF2 


£620 


8545 


=008785 


41F0 


8036 


=00827? 


41E0 


FA70 


=007CB8 


41E0 


FAA6 


=007CF2 


3620 


8541 


=008791 


41F0 


8026 


=008?7A 


41E0 


FA66 


=007CBF 


41E0 


FA 96 


=0C7CF2 


56 20 


853D 


=C0879D 


41F0 


8016 


=00827A 


41E0 


FA5C 


=007CC4 


41E0 


FA86 


=007CF2 


S620 


8539 


=0087A9 


41F0 


8006 


=00827A 


D100 


8718 


=008990 


030F 






0000 


827A 




DOOO 


8212 


=008490 


2404 






7310 


81C4 


=008448 


41F0 


1680 




D100 


8204 


=008490 



030F 



OGOO 828E 
41E0 F908 =007B9A 
41E0 F93C =007?D2 
0001 



f 350 
2133 



8696 
8697 
8698 
8699 
8700 
8701 
870? 
8703 
8704 
8705 
8706 
8707 
8708 
87C9 
8710 
8711 
8712 
8713 
8714 
8715 
8716 
8717 
8718 
8719 
3720 
8721 
8722 
3723 
8724 
8725 
8726 
8727 
3723 
8729 
3730 
8731 
3732 
8733 
8734 
8735 
3736 
8737 
S738 
873 9 



LA 
P 

SNS.C0K1 STH 
LIS 
LA 

BAL 

BAL 

BAL 

LA 

PAL 

BAL 

BAL 

LA 

BAL 

BAL 

BAL 

LA 

BAL 

BAL 

BAL 

LA 

BAL 

BAL 

BAL 

LA 

BAL 

LK 

BS 



SNSCONV 



EQU 

STK 

LIS 

LHL 

BAL 

LS 

BR 



R5,C0HERHS7 
STATFRR 

R0,EPFSAVE 

PC, 3 

R2,DSBKSG0+6 

R15,HEXASC 

R14,CN0P0 

R14,SEDE 

R2,DSB0+5 

R15, SNSCONV 

P14,CN0P1 

R 14, REDE 

R2,DSB1+5 

R15, SNSCONV 

R14,CN0P2 

P14,PEDE 

R2,DSB2+5 

R15,SNSC0NV 

R14,CN0P3 

P14,EEDE 

R2,DSB3+5 

R15, SNSCONV 

E14,CN0P4 

R14,REDE 

R2,DSB4HSG+5 

R15,SNSC0NV 

?0,EERSAV£ 

R15 



R0,PEGSAVE 

R0,4 

R1,SNSHW 

R15,HEXASC 

SO,EFGSAVF 

P15 



REASON OF FAILURE UNKNOWN 



SAVE RFGISTEP.S 
DIGITS TO CONVERT 



ADDRESS ">SBO 
LOAD DSBO IN 
LOAD ADDR. OF 
CONVERT HW STA 
ADDRESS DSB1 
LOAD IN DSB1 
LOAD ADDP. OF 
CONVERT HW STA 
ADDRESS DSB2 
LOAD IN DSB2 
LOAD ADDRESS 
CONVERT Hrf STA 
ADDRESS DS33 
LOAD IN DSB3 
LOAD ADDRESS 
CONVERT HW STA 
ADDRESS DSB4 
LOAD IN DSB4 
LOAD ADDR. OF 
CONVERT KV STA 
RESTORE RESIST 
RETURN 



STORAGE 

TUS TO ASCII 



STORAGE 

TUS TO ASCII 



F STORAGE 
US TO ASCII 



F STORAGE 
S TO ASCII 



STORAGE 

TUS TO ASCII 

ERS 



LOAD BYTE COUNT 

LOAD HW STATUS 

CONVERT HW STATUS TO ASCII 

RESTORE REGISTERS 

RETURN TO CALLER 



******************************************************* 

* * 

* COKE HERE IF TC WRITE A RECORD USING WRITE DATA'S * 

* E5 = BYTE COUNT R4 = DATA PATTERN * 

* * 
******************************************************* 



=0082AO 



C1E0 FA48 =007CE8 
41F0 T 9DC =007C8C 
41E0 F97A =007C22 



8741 DWRITE 

8742 

6743 

87414 

8745 

87U5 

8747 

8 74 8 



D'rf.O 



EQU 

BAL 
BAL 
THI 
BNZ 
BAL 
BAL 
BAL 



P14,CCLEAR 

P1U,CDFNS 

B5,X'0001 • 

DW.O 

R14,CWR0DEY 

P14,CWRITE 

P14,SEMSTA3 



CLEAR INTERFACE 

DENSITY COMMAND 

IS BYTE VALUE ODD? 

NO 

ISSUE ODD BYTE COH v AND 

PUT INTERFACE IN WRITE TODE 

LOOK AT BUSY 



M T D86960 
WTD86970 

r^Dsesso 

<fTi>8^9<lC 
?*' ,, 087000 

*f'"r)R7020 
f^D87030 
w , D87040 
VD97050 
KTD87060 
!T'D87070 
TTD97080 
1TD87090 
K T D87100 
^087110 
H m D87120 
<? T DR7130 
1^87140 
HTD97150 
HTD87160 
"■"D87170 
1TD87180 
^087190 
*t" , D87200 
»C'D87210 
"' T 'D87220 
"'"D87230 
HTD87240 
HTD87250 
K"'D87250 
"^087270 
* m D37280 
WTD87290 
"""D87300 
w"037'10 
»[T'T)P7320 
»fTDS7330 
W'D87'*40 
"! ""037350 
*TD<57360 
"? n 'D97370 
Ht>t,s735o 

"TD87390 

y"'^p.->u 1 
Jf" 1)87420 
w , D87430 

tf"^Q7UU0 

W"D?745C 
MTnaTd'SO 
VTD87470 
, C'D8 7 , 4 8 



KI3H ?ERFOR*AN'CS(6250)MAGTAPE DIAGNOSTIC O6-263R0 1 *95A1 3 PAGE 194 08:3U:07 12/23/83 

TEST SUBROUTINES 





0000 


?2A8 




8749 


0C62A8 


98 1U 






8750 


CCE2AA 


27 52 






3751 


CC0 2AC 


22S2 




=0082»8 


8752 


0082AE 


"1E0 


F92A 


=007 PDC 


3753 


0082B2 


CU 30 


OOCO 




8754 


008236 


4230 


FE58 


=008112 


8755 


00S2BA 


C3 30 


0020 




3756 


0082EE 


023F 






8757 




0000 


82C0 




8758 


0082C0 


41E0 


r 920 


=0C7BE4 


8759 


0082CU 


C330 


0010 




8760 


0O82C8 


023F 






8761 


008 2CA 


220E 




=0082AE 


8762 



DW.1 



DW.2 



DW.3 



EQ'J 


* 


V H R 


H1 ,RU 


SIS 


R5,2 


EN'IS 


DW . 1 


BAL 


Ria,SENSTA 


VRI 


H3,X'C0" 


BN'Z 


STATCHK 


THI 


R3,X'20' 


BNZR 


E15 


EQU 


* 


SAL 


R14,SENSTA1 


THI 


P3,X'10' 


3NZR 


S15 



BS 



DV.2 



WRITE CUT DATA 
DECREMENT BYTE COUNT 
CONTINUE UNTIL ZERO 
CHECK STATUS FOR 
ERROR BITS SET 
AKD IF SET CHECK IT OTT 

RETURN IF EOT 

ALSO CHECK STATUS 

FOR SHTN 

PETURN TO CALLER IF STOPPED 

OTHERWISE WAIT 



1TD87U90 
1TD87500 
WTD87510 
M7D87^20 

1T>87540 

aTr>87~*0 
1TD875' 7 
MTD87580 
M^D875Q0 
HTD87600 
»?TD87610 
f n "D87«20 



HIGH PERFOP«AHCE(625C)SAGTAPE DIAGNOSTIC 06-263R01 "95A13 PAGE 195 08:30:07 12/23/83 
TEST ERR9P SUBROUTINE'? 

£.755 ****************+*********************+*********+****** 

8766 * * 

d767 * * 

876S * EHSOE ROUTINES * 

8769 * * 

b770 * * 

j-, 77 i ****+****************•********•************************ 

STORE BOARD YSG *DDP 
STORE BODY *SG ADDR 
SAYE 50-315 

INCREHENT TOTAL ERROR 

LOOK AT ERROR FLAG 

OUTPUT MESSAGE? 

STORE ERROR FLAG 

'FAIL* 

OUTPUT MESSAGE IF NO LOOP 2 

SET EBE.^LG 

EXIT 

GET ADDRESS OF BODY OF HSG 

OUTPUT IF TOT LOOP 2 

ADDR OF BOARD MESSAGE 

NO BOABD MESSAGE APPLICABLE 

OUTPUT IF NOT LOOP 7 

LOOK AT PROCEED OPT 

OUTPUT MPRO OVERRIDES LOO 1£2) 

PROCEED ON ERROR AS FAR AS POSSIBLE 



006 2CC 


50E0 


8120 


=0083F0 


8773 


ERROPX 


ST 


R10,B0AFD«SG 


0OS2DO 


50F0 


8120 


=0083FO 


6770 


ERROR 


ST 


B15,FIESTHSG 


00S2D0 


DOOO 


86B8 


=008990 


3775 




STM 


PO,ERRSAVE 


0082D8 


2011 






8776 




LIS 


51,1 


0082DA 


6110 


1E5C 




8777 




AHM 


R1,T0TERR 


0082DE 


0800 


811E 


=008000 


3778 




LH 


PO,EPR.FLG 


0082E2 


0330 


801E 


=008300 


8779 




3Z 


ERROR. 1 


*0082E6 


2315 




=0082F0 


8780 




BNM 


STERFLG 


0082E8 


26 50 


821A 


=008506 


8781 




LA 


F5,FAILMSG 


0032EC 


01F0 


807F 


=00836F 


3732 
8783 
8780 


* 


3AL 


R15,L00P2 


00S2F0 


0800 


810E 


=008002 


STERFLG 


LH 


RO, LOOP. OPT 


0032FO 


0000 


8108 


=008000 


8785 




STH 


R0,ERR.FLG 


0082F8 


0330 


8006 


=008302 


8786 




BZ 


NEXTSEQ 


0082FC 


58F0 


80F8 


=0083F8 


3787 


LOOPOUT 


L 


R15,0PTP0INT 


008300 


0300 


80B0 


=0083B8 


8788 




B 


LOOP. IT 


008300 


5850 


80EC 


=0083F0 


3789 


ERROR. 1 


L 


R5,FIRSTHSG 


008308 


01F0 


8062 


=00836E 


5790 




BAL 


R1S,L0OP2 


00830C 


5850 


80E0 


=0083F0 


3791 




L 


R5,B0ABDKSG 


♦008310 


2333 




=008316 


3792 




BZ 


ERROR. 1A 


003 312 


01F0 


8058 


=00836E 


8793 




BAL 


R15,L00P2 


008316 


0800 


20EC 




3790 


ERROR. 1 A 


LH 


R0,PROCEED+$VALU1 


00831 A 


0330 


OABC 




3795 




PZ 


0PTIN1 


00B31E 


C500 


0001 




8796 




CLHI 


P0,1 


008322 


0230 


FFCA 


=0082F0 


3797 




BSE 


STERFLG 


008326 


53F0 


30CE 


=0083F8 


3793 




L 


R15,0PTP0INT 


00832A 


58FF 


0000 




3799 




L 


R15,ADC(?15) 


00832E 


5800 


80CA 


=0083FC 


3800 




L 


R0,tfPROCEED 


*008332 


2330 




= 008331" 


3 801 




BZ 


NEVLIM 


008330 


05F0 






3802 




CLR 


R15,R0 


008336 


0380 


FFB6 


=0082F0 


8803 




BNL 


STERFLG 


00833A 


50F0 


80BE 


=0083FC 


S800 


NEWLI1 


ST 


R15,K?E0CEED 


006332 


0300 


FFAE 


=0082F0 


8805 




R 


STEPFLG 


008302 


58F0 


80B2 


=0083F8 


8806 


NEXTSEQ 


L 


P15,0PTPOINT 


003306 


58 FF 


0000 




8807 




L 


R15,0(R15) 


00830A 


0300 


806C 


=0083BA 


S808 
8809 
8810 


* 


3 


LOOPEXIT 


00330E 


DOOO 


863E 


=008990 


8811 


PASS 


ST« 


EO,EERSAVE 


008352 


4800 


80AA 


=008000 


8312 




LH 


RO,EPS.FLG 


003356 


0210 


FF96 


=0082FO 


8813 




PM 


STERFLG 


♦00835A 


223C 




=008302 


8310 




»z 


NEXTSEQ 


00335C 


25C1 






3815 




LCS 


R0,1 


D0835E 


0000 


809E 


=008000 


3815 




STH 


P0,ERR.FLG 


00S362 


E650 


819A 


=008500 


881" 7 




LA 


?5,?ASSKSG 



SET ERROR FLAC 



EXIT 



LOOP IF PASSED LAST time 

SKIP IF NO ERROR LAST TIME 

R0 = -1 

SET ERR.FLG 

•PASS' 



*' 1 'DS7650 
F^r)87«'>0 
y n 'O87670 
»»' I 'D87680 
^087690 
MTH87700 

MTD87730 
HTD87700 
T , D87750 
MTD87760 
>»TD87770 
M q1 D87780 
!f r D87790 
»T'D87800 
fTD87810 
M T D87820 
*'"087330 
MTD87«00 
* m D87850 
>f^D87P60 
MTD87870 
TH)87880 
X'"D87890 
*f^D97900 
MTD37910 
MTD87920 
MTD87930 
fTD87900 
MTD87950 
MTD87950 
f"D87970 
MTD3793P 
MTD87990 
MTD88000 
WTD88010 
M"'D88020 
YTD88030 
M^D88OO0 

^538060 
1TD83070 
WTD88080 
MTD88090 
WT-D88100 

roesno 

STD38120 

HTT) 88130 

HT-pssmo 

M m D88150 
M^D891«0 
MT0S817O 



HIGH PERfOEHANCE(e250)KASTAPE DIAGNOSTIC 06-263S01 H95A 13 PAGE 196 08:34:07 12/23/83 
TEST ERROR SUBROUTINES 



008366 


41F0 


8004 


=00836E 


8818 




BAL 


K15,LOOP2 


out?';: :? not loop2 


MTpa a -] op 


0083SA 


4300 


FF8E 


=0082FC 


8819 
8820 


* 


3 


LOOPOUT 




■ITDSai^O 
MTD88200 


00e36E 


4800 


20EC 




8821 


L00P2 


* u 


P0,?50CEED+$VALU1 


LOOK AI PROCEED option 


MTD88210 


008372 


4330 


1=!02 




3 322 




51 


PRINT 


PROCESS OVERRIDES LOOP OPTION 


MTD88220 


008376 


4800 


8086 


=008400 


8823 




T.H 


R0,E3P..FLG 


CHECK 15505 FLAG RC1 


W-T, D88230 


008374 


4230 


FF72 


=D082FC 


3S24 




Bm'Z 


STSRFLG 


SO P5:s? IF HAVE ALREADY R01 


H' P D88240 


00837E 


USOJ 


8080 


=008402 


8825 




LH 


HO, LOOP. OPT 




H' 1, D83250 


008382 


C500 


0002 




8826 




"v-:i 


50,2 




VTD88260 


008386 


033F 






3827 




3E5 


515 


DO NOT OUTPUT MESSAGES 


M -1, n38?" 7 


008388 


43C0 


1802 




8823 




"* 


PRINT 


PRINT MESSAGE 


•1^088280 


00838C 


26F3 






8830 


LOOPTOP 


AIS 


R15,ADC-1 




*TDS8300 


00838E 


C4F0 


FFFC 




6831 




MHI 


515, -ADC 


ROUND 515 


HTD3S310 


008392 


50F0 


8062 


=0083F8 


8832 




cm 


R15,0PTP0INT 


SET CPTPOINTCPROCEED LIBIT) 


■f T D88320 


008396 


DOOO 


85F6 


=008990 


8833 




sx* 


R0,ERRSAVE 


SAVE REGISTERS 


MTDS8330 


00839A 


55F0 


805E 


=0083FC 


3834 






51 5, '.'PROCEED 


LOOK AT '.DDRESS VALUF 


HTD88340 


00839E 


218D 




=0083E8 


8835 
8836 
8837 


* 
* 


3L 


LOOP. IT 




fTD88350 
H^D88360 


0083A0 


2406 






8 83 8 


PROLIH 


LIS 


50,6 


DIGIT CONVERSION 


HTD88380 


0083A2 


081F 






8 839 




LR 


R1,R15 


ADDRESS 


■TD88390 


0083A4 


E620 


8172 


=00851A 


8840 




LA 


R2,LIMHSG+14 


STORED HERE 


VD88400 


0083A8 


41F0 


1680 




3841 




BAL 


R15,HEXASC 


CONVERT 


1TD38410 


0083AC 


E650 


815C 


=00850C 


8842 




I A 


35,LIMHSG 


•PROCE-D LIHIT ****** REACHED" 


1TD88420 


0083B0 


41^0 


1802 




8843 




BAL 


R15, PRINT 


PRINT MESSAGE 


M m D88H30 


0083E4 


4300 


OABC 




8844 
3845 


* 


B 


0PTIN1 


* 


«f^D88440 
"TD88U50 


0083B8 


26F8 






8846 


LOOP.IT 


A I 


515,2*ADC 




*" , DS8460 


0083BA 


50F0 


85D2 


=008990 


8847 


LOOPEXIT 


ST 


R15,ERRSAVE 


SAVE P. 15 


MTDS8470 


0083BE 


D100 


85CE 


=008990 


8348 




L* 


R0,EFRSAVE 


RESTORE REGISTERS 


1™D99M0 


0083C2 


0300 






8849 




BR 


RO 


RETURN 


»IT , D8849n 
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0083C4 






0083C4 






0083C6 






0083C8 






00S3CA 


09 OC 






0000 


83CB 


00S3CC 


ODEO 






OOCO 


83CD 


00b3CE 


5040 






0000 


83CF 


0083PO 


0001 






0000 


83D1 


00S332 


02C3 






0000 


83D3 


0083D4 


0410 






0000 


83D5 


0083D6 


CODO 






0000 


83D7 


00S3D8 


30A0 






0000 


83D9 


0083DA 


9080 






0000 


83DB 


0083DC 


5048 






0000 


83DD 


0083DE 


OEOA 






0000 


83DF 


0083E0 


88C8 






0000 


83E1 


0033E2 


FOOO 




0C83E4 


0818 




0OS3F6 


2830 






0000 


83E7 


0083E8 


5474 






0000 


8 3ES 


0C83EA 


4C0C 






0000 


83EB 


0083EC 


4800 




0083^0 


0000 


0000 


O0E3F4 


0000 


0000 


0083F8 


0000 


0000 


CC83FC 


0000 


0000 


008400 


0000 




008402 


0000 




008404 


OOFF 




008406 


0000 




008408 


0000 




00840A 


0000 




00840C 


0000 




00840F 


0000 





S851 


* 




STATUS STORAGE 


6852 




ALIGN 4 


3853 


STATUS 


DS 


2 


8854 


SELSTAT 


ns 


2 


8855 


STATGD 


DS 


2 


8656 


+ 




SAG TAPE COHKASDS 


3857 


CBDCLB 


DC 


X'090C 


8858 


TST*DE 


EQU 


CSDCLR+1 


8859 


BYRD 


DCX 


ODEO 


8P60 


REMIND 


FQU 


BYRD+1 


8861 


WRITE 


DCX 


6040 


S862 


READ 


FQU 


WPITE+1 


8863 


NOPO 


DCX 


0001 


S864 


N0P1 


EQU 


NOPO+1 


8865 


N0P2 


DCX 


0203 


8866 


NOP 3 


EQU 


N0P2+1 


8867 


NOP 4 


DCX 


0410 


3868 


DRVCLR 


EQU 


N0P4+1 


8869 


WEOF 


DCX 


CODO 


8870 


EGAP 


EQU 


WEOF+1 


8871 


SKIPFB 


DCX 


BOAO 


3872 


SKIPFF 


EQU 


SKIPFB+1 


3873 


SKIPBB 


DCX 


9080 


8374 


SKIP3F 


EQU 


SKIPBB+1 


8875 


RDBACK 


DCX 


5048 


8876 


ENABLE 


EQU 


RD3ACK+1 


8877 


SRODDBY 


PCX 


OBOA 


3878 


GAPLSS 


EQU 


WRODDBY+1 


8879 


DISABLE 


DCX 


88C8 


8880 


DISARK 


EOU 


DISABLE+1 


3881 


UNLOAD 


DCX 


FOOO 


8882 


DENSEITY 


DC- 


x'osis^x^sso* 


8883 


TTUS 


EQU 


PENSEITY+3 


8834 


* 




SELCH COMMANDS 


S 885 


GO 


DC 


X'5474' 


8886 


GOREAD 


EQU 


GO+1 


8887 


STOP 


DC 


X'4C0C 


8888 


STOPS 


EQU 


STOP+1 


3S89 


EXTEND 


DC 


X'4800* 


B89C 


* 




TEST CONSTANTS 


8891 


BOARDKSG 


DCY 





8892 


FIRSTHSG 


DCY 





6693 


OPTPOINT 


DCY 





8894 


WPROCEED 


DCY 





8 8 95 


ERE.FLG 


DCX 





3896 


LOOP. OPT 


DCX 





8897 


BYSAV 


DCX 


FF 


8896 


EECSAV 


DCX 





8899 


DRIYSAV 


DCX 





8900 


D3IVSAV1 


DCX 





8901 


DENSFLAG 


DCX 





8902 


DECFLG 


DCX 






CLEAR INTERFACE 
INTERFACE IN TEST MODE 
SYTE READ MODE 
REWIND MAG TAPE 
WRITE *ODE 
"EAD KODE 
NOP COMMANDS 



CLEAR DRIVE 

WRITE END OF FILE HARK 

ERASE GAP 80DE 

SKIP FORWARD BLOCK 

SKIP FORWARD FILE 

SKIP BACKWARD BLOCK 

SKIP BACKWARD FILE 

READ BACKWARD 

ENABLE INTERFACE INTERRUPTS 

WRITE ODD BYTES 

GAPLESS *ODE COWHAND 

DISABLE INTERFACE INTERRUPTS 

DISARM INTERFACE INTERRUPTS 

UNLOAD HAG TAPE 

1600,6250,300 

TAPE UNIT STATUS COMMAND 

GO TO WRITE ON SELCH 
READ THROUGH SELCH 
STOP SELCH 
STOP £ INIT SELCH 
EXTENDED ADDR OF SELCH 



»' r D88510 

M m D88530 
*TD88540 
mt])<3°S<;0 
MTD88560 
KTn885"'0 
N^DSSSRO 

*TD88600 

■'■"Dsseio 

*!' ,, D88620 
M^D88630 
fTD88640 
<TD88550 
"TD88660 
1^088670 
MTD88530 
M^D88690 
MTD88700 
M^D89710 
N^D88720 
1TD88730 
f^D88740 
»! 'prigs'rso 
MTD8S760 
«H , D88770 
f^D88780 
HT-D88790 

i^dsssoo 

MTD88810 
"■"D88820 

"^088830 
"TD88840 
5^088850 
*TD88860 
W'D88870 
MTD88880 
KTD88890 
* W DS8900 
NTD88910 
H T D88950 
f^D88930 
??TD88940 
1 •"088950 
WTD88960 
*"'D88970 
wTT)8gq80 
M m D88990 
MTD89000 
W ^D89010 
fTD89020 
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PUFFERS AND TEST CONSTANTS 



008410 
00bM2 
008411: 
008416 
008418 
00841A 
00841C 
00841E 
008420 
00842C 
008424 

008426 
003428 
00842A 
00842C 
00842E 
008430 
008432 
008434 
008436 
008438 
00843A 
00843C 
00843E 
008440 
008442 
008444 

008446 
008448 
00844A 
00844C 
008450 
008450 
008490 
0084D0 
0084D4 
0084D4 
0084D8 
0084DC 
0084E0 
0084E4 
0084E8 
0084EC 
0084F0 
0084FC 
0034FE 



0000 
0000 

0000 

coco 

1600 
4FC0 
OBOO 
UFOO 

0003 AOOO 
0000 

FF11 
2244 
8855 
EECC 
3377 
A55A 
5AA5 
DBA A 
0123 
4567 
89AE 
CDEF 
"EDC 
^98 
7654 
3210 



0000 



0000 0000 



BASE 

datapa: 



8903 BECFLG1 

8904 SECFLG2 

8905 INDEX 

8906 ZEROS 

8907 GAPLEN 
8908 

8909 

8910 

8911 

8912 

8913 

3914 * 

8915 TESTPAT 

8916 

8917 

8918 

8919 

8920 

8921 

8922 



rex 

HCX 
DCX 
DC 
r f 

DC 

DC 

DC 

ALIGN 

DC 

DCX 






c 

X'OOCO' 

X ' 1500' 

X'4F00' 

X'OBOO' 

X'4F00* 

4 

Y'3»000" 





TEST PATTERNS 

DC X•FF11•,X , 2244• 

DC X'SSSS 1 ,X*EECC 

DC y3377* .X'ASSA' 

DC X-5AA5' ,X r DDAA' 

DC X'0123' ,X'HS6T 

DC X'89AB' ,X'CDEF* 

DC 7.'TEVC' ,y:•Bh98• 

DC X'7654 , ,X , 3210* 



8923 


+ 




DATA STORAGE 


8924 


BUFFZ 


DS 




2 


8925 


SNSHW 


DC 




X'OOOO 1 


8926 


LENSAV 


DS 




2 


8927 


FILSAV 


D3 




2 


8928 




A LI 


GN 


4 


8929 


REGS 


DS 




64 


8930 


REGSAVS 


nc; 




6 4. 


3931 


SAVB15 


DC 




Y'O' 


3932 




A LI 


GN 


4 


8933 


SBUF 


DS 




4 


8934 


ENDBUF 


DS 




4 


3935 


RDBUF 


DS 




4 


3938 


STOPADR 


r>~ 




4 


3937 


STARADD? 


DS 




4 


8938 


WBUF2 


DS 




4 


3939 


SNDBUF2 


DS 




4 


8940 


TSTBUF 


DS 




12 


8941 


WSTORE 


DS 




2 


8942 


RSTORE 


DS 




1 



HTD89030 
^089040 
"?TD<?90SO 

"•^Dsgoeo 

«fTl)8<)070 
MTD89080 
H^D89090 
MTD89100 
MTD89110 
H T D89120 
"TTD89130 
Y^D89140 
W*D89150 

•?^D89160 

1TQ89170 

«Tn89180 

ljir)8qion 

^•"1)89200 

TTD89210 
fTr)892?0 

HTD89230 
!?TD89240 
YTQ89250 
1TD89260 
MTD89270 
M' n D89280 
«f"D89290 
MTD89300 
M ,p D39310 
MTD89''20 
fTD89330 
MT089340 
•(TD89350 
•fTD89^60 
YTDR9370 
MT089380 
t'TD8939n 
WTD89400 
MTD89410 
M" , D89420 
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TEST MESSAGES 



008500 


5041 


5353 






008504 


ODOA 








008506 


4641 


494C 






00850A 


CDOA 








00850C 


5052 


4F43 


4545 


4420 


00S514 


4C49 


4D49 


5 4 20 


2A2A 


0C351C 


2A2A 


2A2A 


2052 


4541 


008524 


4348 


4544 






00652S 


ODOA 








0C852A 


5355 


5350 


4543 


5445 


008532 


4420 


4552 


524F 


5220 


00 8 53 A 


5749 


5448 


2054 


4150 


008542 


U520 


4452 


4956 


4520 


00854A 


ODOA 








00 854C 


5355 


5350 


4543 


5445 


008554 


4420 


4552 


524F 


5220 


00B55C 


5749 


5448 


2044 


5249 


008564 


5645 


204F 


5220 


464F 


00856C 


524D 


4154 


5445 


5220 


008574 


ODOA 








008576 


5355 


5350 


4543 


5445 


00857E 


4420 


4552 


524F 


5220 


008586 


5749 


5448 


2046 


4F52 


00858E 


4D41 


5454 


4552 




008594 


CDOA 








008596 


5355 


5350 


4543 


5445 


00859E 


4420 


4552 


524F 


5220 


0085A6 


5749 


5448 


2043 


4F4S 


0085AE 


5452 


4F4C 


4C45 


5220 


0085B6 


ODOA 








0085B8 


5355 


5350 


4543 


5445 


0085C0 


4420 


4552 


524F 


5220 


0085C8 


5749 


5448 


2053 


454C 


00S5D0 


4348 








0085D2 


ODOA 








0085D4 


4E4F 


204D 


4154 


4348 


0085DC 


204F 


4E20 


5345 


4C43 


0085E4 


4820 


4144 


4452 


4553 


0085EC 


5320 








0085EF. 


odoa 








0085F0 


224E 


4D54 


4E22 


2044 


0085F8 


4944 


204F 


4F54 


2053 


008600 


4554 


2041 


4654 


4552 


008603 


2052 


4557 


4 9 4E 


4420 


008610 


ODOA 








008612 


2242 


4F54 


2220 


4449 


00361A 


4420 


4E4F 


5420 


5345 


008622 


5420 


4146 


5445 


5220 


00362A 


52U5 


5749 


4F44 




008630 


ODOA 








0C8632 


494E 


434F 


5252 


4543 


00863A 


5420 


4 4 4 5 


5649 


4345 



8944 * TEST MESSAGES 

8945 PASSMSG DC C ' PASS * ,X ' ODOA • 

3946 FAILKSG DC C FAIL' ,X" ODOA * 

894'' LIHKSG DC C'PROCEED LIMIT ****** REACHED* ,X* ODOA ' 



8948 DRIVHSG DC 



8949 DRIVFKSG DC 



C'SUSPECTED ERROR WITH TAPE DEI VF ■ ,X ■ ODOA ' 



C* SUSPECTED ERROR WITH DRIVE OR FORMATTER" ,X'OD0A ' 



8950 FORBHSG DC C'SUSPECTED ERROR WITH FOPMATTER' ,X ' ODOA" 



8951 CONTHSG DC C'SUSPECTED ERROR WITH CONTROLLER ' ,X ' ODOA ' 



8952 SELMSG DC C'SUSPECTED ERROR WITH SELCH ' , X ' ODOA ' 



8953 NOSELCH DC C'NO HATCH ON SELCH ADDRESS ' ,? ' ODOA ' 



J954 ERMSGA DC C'NKTN" DID NOT SET AFTER REWIND' ,X" ODOA ' 



3955 ERHSGB DC C "BOT" DIE NOT SET AFTER REWIND * ,X' ODOA ' 



3955 COSERMSO DC C'INCORRFCT DEVICE STATUS HALFSORD RETURNED ' ,X" ODOA ' 



w^D89440 
HTO89450 

w,r D89460 

MTD89470 



Hi'D8 Q 4< > 



w ,7, D89490 



"TD89500 



W' n D89510 



WTD89520 



»«' , 'D89530 



YTD89540 



w,p D89550 



"TD89560 
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008642 
00864A 
008652 
90S65A 
00865C 
00865E 
008666 
00866E 
008676 
008678 
00867A 
008682 
00868A 
008692 
00869A 
00869C 
0086A4 
0086AC 
00S6B4 
00363C 
0086BE 
0086C0 
0086C8 
0086D0 
0086D8 
0086DE 
0086E0 
0086E8 
0086F0 
0086F8 
0086FC 
0086FS 
006706 
00670E 
008716 
008718 
008720 
008728 
008730 
008732 
008734 
00873C 
008744 
00874C 

00&74E 
008756 
0Q8758 
00875A 
00876? 
00876A 
006772 
008774 



2053 


5441 


5455 


5320 


43 '41 


4C46 


574F 


5244 


2052 


4554 


5552 


4F45 


4420 








ODOA 








2242 


5553 


2050 


4152 


4954 


5922 


2049 


5320 


494E 


4449 


4341 


5445 


4420 








ODOA 








2246 


4F52 


4041 


5454 


4552 


204F 


5645 


5252 


554E 


2220 


4953 


2049 


4544 


4943 


4154 


4544 


ODOA 








5245 


4A45 


4354 


204F 


5220 


4441 


5441 


2043 


4845 


4343 


2049 


5320 


494E 


4449 


4341 


5445 


4420 








ODOA 








2257 


5249 


5445 


2055 


4E44 


4552 


464C 


4F57 


2220 


4953 


2049 


4E44 


4943 


4154 


4544 




ODOA 








2252 


4541 


4420 


4F56 


4552 


5255 


4E22 


2049 


5320 


494E 


4449 


4341 


5445 


4420 






ODOA 








464F 


524D 


4154 


5445 


5220 


5745 


4E54 


204F 


4646 


20 4C 


494F 


4520 


ODOA 








5245 


4153 


4F4E 


204F 


4620 


4641 


494C 


5552 


4520 


554E 


4B4E 


4F57 


4E20 








ODOA 






" 


4452 


4956 


4520 


5449 


4D45 


?04F 


5554 


2P4F 


4E20 


5245 


5749 


4F44 


ODOA 








44 52 


4956 


4520 


2A2A 


2 A 20 








8D0A 








4445 


5649 


4345 


2053 



3957 C0HEHKS1 DC C'BUS PARITY" IS INDICATED ' ,X ' ODOA" 



J958 C0MERMS2 DC C "FORMATTER OVERRUN" IS INDICATED ■ ,X ' 0D0.» ' 



3959 C0MERKS3 DC C'EEJECT OR DATA CHECK IS INDICATED ' ,X * ODOA ' 



8960 C0KERKS4 DC C "WHITE UNDERFLOW" IS INDICATED ' ,X* ODOA ' 



8961 C0HERHS5 DC C*"READ OVERRUN" IS INDICATED' ,X* ODOA 1 



8962 C0MERHS6 DC C'FOPSATTER WENT OFF LINE" , X' ODOA' 



8963 C0KERMS7 DC C'REASON CF FAILURE UNKNOWN ', X ' ODOA * 



8964 C0KERfS8 DC C'DPIVE TIKE OUT ON REWIND ' ,X ' 000 A ' 



e?e5 * 

8966 DSUiiSGO DC 



C'DEIVE *** , ,X , 8D0A* 



5441 5455 5320 4841 

4C46 574F 5244 533A 

3D0A 

4453 4230 3D2A 2A2A 



6967 DSBMSG DC C'DEVICE STATUS HALFWOFDS : ■ , f ' 5 DOA ■ 



8968 DS50 DC C DSB0=**** ' ,X ' 8D0A ' 



'''"D89570 



v^ngcmqo 



«n^riggc;g 



"^089600 



vt-T)89610 



*TD89«20 



* ""089630 



Kfr>89640 



*' ,, D8 9*)S0 

^■"589660 



"TD8967P 



MTngg^jsn 



HIGH PEH?OEMASC'='(6250)J1A3TAPE DIAGNOSTIC 06-263E01X95A 13 PAGE 201 08:34:07 12/23/83 
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00877C 
00877E 
008780 
006788 
00878A 
00378C 
008794 
008796 
0C8798 
0087A0 
0087A2 
0C67A4 
0087AC 
0087AE 
0087B0 
0087B0 
0087B8 
0067C0 
0087C8 
00 87CA 
0087D2 
0087DA 
0087E2 
0087E6 
0087E8 
0087F0 
0087F8 
OC8800 
008806 
0C8808 
008610 
0C8818 
008820 
008828 
00882A 
C0882C 
00882C 
0C8834 
00383C 
C0883E 
008640 
008840 
0C8848 
008850 
nngfca 

008860 
008864 
008868 
008868 
003670 
00.?878 
00887A 
00 8 Ee 2 



2»?0 








8D0A 








4453 


4231 


3D2A 


2A2A 


2120 








8DOA 








4453 


4232 


3D2A 


2A2A 


2S20 








8D0A 








4453 


4233 


3D2A 


2A2A 


2A20 








ODOA 








4453 


4234 


3D2A 


2A2A 


2 A 20 








ODOA 








4445 


5649 


4345 


2043 


414E 


204E 


4F54 


2046 


494E 


4420 


424F 


5421 


ODOA 








5449 


4D45 


4420 


4F55 


5420 


5741 


4954 


494E 


4720 


464F 


5220 


224E 


4D54 


4F22 






ODOA 








5449 


4D45 


4420 


4F55 


5420 


5741 


4954 


494F 


4720 


464F 


5220 


4E4F 


4E2D 


4255 


5359 




ODOA 








5449 


4D45 


4420 


4F55 


5420 


5741 


4954 


494E 


4720 


464F 


5220 


5441 


5045 


204D 


4F54 


494F 


4E20 








ODOA 








4552 


524F 


c 220 


4249 


5453 


2041 


5245 


2053 


4554 








ODCA 









U649 4C45 2050 524F 

5445 4354 2049 5320 

41U3 5449 5*45 204F 

'it;?0 4452 49-6 4520 
2A2A 2A20 
ODOA 

4F50 5449 4F4E 204F 

4E4C 494E 453r 3020 

OOOD 

4452 4956 4520 2A2A 

2A2C 4953 204F 4646 



8969 DSB1 PC C'DSB1=**** , ,X'8D0A' 



5970 DSB2 DC C • D?R2=****' ,X * 8D0A ' 



8971 DS83 DC C ' DSB3=**** ■ ,X ' ODOA " 



8972 DSB4KSG DC C ' DSB4=**** • ,X 'ODOA * 



8973 

897ii NOBOT 



ALIGN' 4 

TC C'DEVICE CAN NOT FIND EOT !", X ■ ODOA • 



6975 TSTERRA DC C'TIMED OUT WAITING FOE "KKTN" ' ,X' ODOA * 



8976 TSTEBEB DC CUBED OUT WAITING FOE N0N-BU3Y ' ,X * ODOA • 



8977 TSTERRC DC CTI*ED OUT WAITING FOR TAPE 1 CTION ' ,X ' ODOA • R01 



8978 AUG": 4 

6979 ERRBIT DC C'EEHOR BITS ARE SET',X'0D0A' 



8980 ALIGN 4 

8981 WRTINH DC C'FILE PROTECT IS ACTIVE ON DRIVE ♦♦♦•jX'ODOA 1 



8982 ALIGN' 4 

8983 ONLINO DC C'OPTION ONLINF=0 ■ , X ' OP " 



8984 DEVOFF DC C'DRTVE *** IS OFF LIN" ' ,X ' ODO V 



»t i>89690 



* m D89700 



MTD89710 



* m D89720 



»TD89730 
Mt , D89740 



¥Tri89750 



y p DS9760 



fTr)89770 



■?™D89780 
*TD89790 



v . 1 ' r )B9800 
* T D89810 



vn, D89820 
'f"D89830 



•'"D39840 
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TEST MESSAGES 



00688A 
f) n g p q f) 

cese98 

003bO8 
0088'.0 
0CS8A4 
008PAC 
Q038FC 
00894C 
0C39UC 
008950 
008990 



2QUC 494E 4520 

000. » 

0000 8891 

0000 8898 



? c £ ~ 


LNZ3 


2QU 


*-1 


B °P fi 




ALIGN 


8 


8987 


PSWSAVE 


3QU 


* 


3 98* 


STBRKSV 


DS 


8 


8989 


SR15SAV 


OS 


4 


8990 


SR14SAV 


j 3 


8 


8991 


SOUTBUF 


OS 


SBUFLEN 


3992 


$INBUF 


DS 


SBUFLEN 


8993 




ALIGN 


4 


S994 


R15SAVE 


OS 


4 


8995 


RSAVE 


ns 


64 


8996 


ERRSAVE 


DS 


64 


8997 


**ekd et: 


PER05 1 


)ATA STA 



LAS'" PROGRA" BYTE 

P?F PSW SAVE AREA (MOVES) 
STORAGE FOR TSTBRX ROUTINE 

tfUST BE SEPARATE 
LENGTH IS SBUFLEN 
LENGTH IS SBUFLEN 



REGISTER SAVE AREA 
STORAGE FOR ERROR ROUTINES 



YT)3985 r ) 
M Tt!S9360 

M^DSgnoO 
1^089690 
TTT>89900 
^DSggiO 
W ' I ">89920 
•^Tn89930 
"» "^89940 
1TTD89950 
MTD89960 
vtt)89970 



0089D0 
0189D0 
028930 



8999 


WRTBUF 


DS 


65536 


9000 


READBUF 


DS 


65536 


9001 




END 





MTD89990 
MTD90000 
M-"D90010 
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SYMBOL TABLE >". CROSS REFERENCE LIST 

ASSEMBLED BY CAL/32 O3-338F00-00 

ST?RT OPTIONS: T=32,EFLST 

HO CAL ERRORS 
NO CAL 'MARKINGS 
7 PASSES 

TABLE SPACE USED : 



39K 



DISC SECTORS : 



SACTIKD 


0000 


0001 


3BRKEND 


0000 


1F53 


SBRKFLG 


0000 


1E4A 


SBS.COH 1 ! 


0000 


1534 


3BUFI0 


0000 


0001 


SBUFLEH 


0000 


0050 


$CKRO0T 


0000 


0008 


SCLKSTRT 


0000 


1337 


SCLOCK 


0000 


0001 


SC0M1 


0000 


1D90 


$C0MS2 


0000 


1DA6 


SCON 


0000 


0A5C 


$C0MPA<3 


0000 


1E3C 


$DEC0 


0000 


10E8 


SDEC.1 


0000 


10EA 


SDEC.2 


0000 


10FE 


SDEC.3 


0000 


1106 


SDEC1 


0000 


1634 


$0EC2 


0000 


16BA 


SDEC3 


0000 


16CC 


SDECASC 


0000 


0001 


SDECHEX 


0000 


0001 


SDECTAB 


0000 


0001 


SDISPADR 


0000 


1432 


$DISPLAY 


0000 


0001 


SDU.X 


0000 


1B50 


SE8RF1 


0000 


1D8E 


$ERRF2 


0000 


1D86 


SERRF3 


0000 


1D38 


SERRF4 


0000 


1CFC 


$ERRF5 


0000 


1D8A 


SSRRF5 


0000 


1DC0 


$FRRF7 


0000 


1976 


SE3RF9 


OOOD 


1.07 A 


3SK2F9 


0000 


1D7E 


5FKSF9CH 


0000 


1D7E 


SGTCH. 1 


0000 


1950 


$'->EXA. 1 


0000 


163C 


SINB'JF 


0000 


8 3FC 


SIS.DiJ 


0000 


134E 


5K3INT 


0000 


0001 


SKBR. 1 


0000 


1398 



88* 


1402 


1449 


1481 








1501 


2290* 












213 


234 


1497 


1498 


1678 


1703 


2235 


2095 


2100 


2105 


2111* 








89* 


1379 


1551 










70* 


1191 


1384 


1557 


1612 


3991 


8992 


65* 


757 


770 


786 


789 


804 


807 


833 


341 


344 


1349 


1352 


1368 


1373 


2222* 














86* 


1217 


1219 


1237 








2152* 














2158* 


2160 












191* 


1511 












1653 


1741 


1786 


1798 


2225* 






733* 


752 












734* 


747 












740* 


743 












741 


744* 












1316* 


1330 












1318* 


1323 


1325 










1319 


1326* 












84* 


1307 












83* 


724 












82* 


2253 












1001 


1015 


1018* 










87* 


935 


999 










1756 


1758* 












1850 


2137* 












1836 


2115* 












1843 


2042* 


2083 










1968 


1974 


2016* 










1895 


2129* 












1979 


2021* 












1898 


2099* 












1892 


2104* 












114 


2109* 












114* 


1861 












1558 


1551* 












1298* 


1305 












257 


356 


1190 


1561 


1603 


8992* 




1749 


1754 


1757* 










85* 


1791 


1904 


1960 


2231 






1788 


1790* 













809 



811 



813 



815 



817 



s>20 



930 
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S^EEP.1 


0000 


1292 


SXEEP.2 


0000 


129A 


$:<EEP1 


0000 


1200 


SXEEP2 


0000 


12D6 


SXESP2.1 


0000 


12FA 


3 KEEP 3 


0000 


131C 


SKSEP5 


0000 


1358 


SKEEP5.1 


0000 


1372 


SKE3P5.2 


0000 


138C 


3KEEP7 


0000 


13A4 


SLC0R1 


0000 


1BDC 


3LCD32 


0000 


1BEC 


SLC0R3 


0000 


1BF0 


SLC0R4 


0000 


1C24 


SLC0R5 


0000 


1C30 


SLCORXIT 


0000 


1C58 


SLINCST 


0000 


2134 


SLINEPOS 


0000 


1E54 


SLSTB. 


0000 


16FE 


SLSTB. 1 


0000 


1715 


SLSTB. 2 


0000 


1724 


SLSTB. 2A 


0000 


1726 


SLSTB. 2B 


0000 


1744 


SLST3.2C 


0000 


1754 


SLST3.A 


0000 


16F2 


SLSTB. B 


0000 


16FC 


SLSTBIT 


0000 


16E0 


SLSTPAS 


0000 


1E3E 


SffAXIO 


0000 


0006 


SJtw.1 


0000 


1D50 


$KH.2 


0000 


1D5A 


SHtf.3 


0000 


1D6A 


S^SGPRT 


0000 


15C0 


SKSGPRT1 


0000 


1590 


SNLFCNTS 


0000 


1S44 


SNLFDEV 


0000 


0A58 


SNLFFLAG 


0000 


1E40 


SKLFHIST 


0000 


1E42 


SNODI3P 


0000 


1428 


SNOT.DU 


0000 


194A 


S3PT.0 


0000 


1140 


SOPT.OA 


0000 


114A 


SCPT.2 


0000 


115E 


SOPT.3 


0000 


122A 


SOPT.5 


0000 


1246 


SOPT.6 


0000 


127C 


SCPT.A 


0000 


1152 


SOPT.3 


0000 


115A 


SOPT«(A«E 


0000 


0000 


SOPTPRT 


0000 


1128 


SOPTV.O 


0000 


15EE 


S0PTV.2 


0000 


160A 



858 


872* 


875 




873 


876* 






892* 


951 






994* 


908 


941 




903 


905* 






918* 








897 


946* 






953 


955* 






958 


961* 






966 


974* 






1820* 


1323 






1830* 








1831* 


1833 






1862* 


1854 






1884* 








1901* 








779 


853 


2335* 




1383 


1389 


1440 


1556 


1350* 


1364 






1353 


1357* 






1361* 








1351 


1362* 






1369 


1371* 






1374 


1376* 






1346* 


1372 






1345 


1349* 






793 


1339* 






1631 


1745 


2226* 




132* 


762 


1621 




2065 


2070* 






2067 


2073* 






2068 


2072 


2073 


2083* 


1104 


1113 


1126 


1168* 


1095 


1173* 






1407 


1409 


2229* 




189* 


1485 






235 


977 


1076 


1161 


2227* 








1452 


1459 


1463 


2228* 


10Q4 


1015* 






1751 


1755* 






760 


767* 






776* 








782* 


737 






824 


339* 






794 


846* 






861* 








778* 


851 


861 




780* 


954 






«4* 








313 


313 


759* 




1190* 


1195 


1206 




1199* 


1202 







1560 



1563 



1573 



2240* 



1174 



1417 



1422 



1450 



1482 



1504 



1707 



1768 



1776 



2162 
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1704 2241* 



SYMBOL TAPIS r , CROSS RFFERSNCF LIS" 1 

1200 1204* 

1515* 1526 

1516* 1521 

1520* 1528 

1519 1523* 

1514 1522 1530* 
1532* 1540 
1542* 1547 
1517 1533 1535 1538 1543 1545 1548* 

783 789 804 307 809 811 813 815 817 820 
9 83 93i{ 986 1355 1358 1366 1387 1411 1412 1434 

1431 1438* 

1398 1435 1439* 1607 

1515 1520 1530 2247* 
215 912 955 959 978 980 1427* 1505 1669 2034 

1450* 1476 1479 

1451 1462* 

1453 1460 1466* 

1473 1482* 

1503* 1723 

1483 1487* 

1465 1486 1493* 

1502 1507* 

1477 1496 

1403* 

1385 1387* 

1094 1101 1110 

8098 8100 8990* 

1026 1030 1035 1040 1046 

1276* 1285 1288 

1280 1282* 

81* 1259 

1571* 1601 

1572* 1602 1613 

1574* 1614 

1580 1586* 

1588 1590* 

1595 1597 1600* 

1599 1603* 

1605 1608* 

1609 1612* 

243 355 1559 1570* 

754 1265* 1277 1306 1331 

316 316 866* 

1531 1807* 

952 2248* 

1623 1525* 

1626 1528* 

1633 1638* 

1655 1658* 

1661 1663* 

1227* 1232 

63* 68 387 388 400 406 574 575 587 593 



SCPTV.3 


0000 


1616 


SOTC.O 


0000 


1802 


S3TC.1 


0000 


13D6 


SCTC.2 


0000 


18E2 


SOTC. 3 


0000 


18EA 


S0TC.4 


0000 


18FE 


SOTC. 5 


0000 


1906 


$0TC6 


0000 


1924 


SOTC. 7 


0000 


1932 


S0UT3UF 


0000 


83AC 


$?0 


0000 


1802 


S?1 


0000 


1803 


SPAU3E 


0000 


1E62 


SPRINT 


0000 


17E6 


SPRT.2 


0000 


1822 


SPRT.2A 


0000 


1844 


SPRT.2B 


0000 


1354 


SFRT.3 


0000 


1876 


SP3T.3A 


0000 


18B0 


SPRT.3B 


0000 


1886 


SPRT.3C 


0000 


188C 


SP3T.4 


0000 


18C0 


SP3TFLG 


0000 


1E56 


SPRTILF 


0000 


1790 


SPUTC.1 


0000 


176E 


SR143AV 


0000 


88A4 


S315SAV 


0000 


88A0 


SP.53.1 


0000 


16 5A 


S35B.2 


0000 


1668 


S353IN 


0000 


0001 


S3D.1 


0000 


196A 


S3D.2 


0000 


196C 


SRD.3 


0000 


1972 


S33.3A 


0000 


1992 


S30. 4 


0000 


19A0 


SSD.5 


0000 


19C2 


S3D.6 


0000 


19CC 


S3?,. 7 


0000 


19E0 


SKD.S 


0000 


19EC 


S3SAD 


0000 


1964 


SSSAV'RST 


0000 


1643 


S3UNIT 


0000 


1230 


5SE?'.'P 


0000 


13B3 


SSHUTDHN 


0000 


1E64 


SSTC.1 


0000 


1A0 8 


ssrc.2 


0000 


1A05 


SP7C.3 


0000 


1A2C 


SSTC. 4 


0000 


1A6C 


S3TC.5 


0000 


1A7A 


SSTIU1 


0000 


1630 


SST3UC1 


0000 


OOOE 



830 
8991« 



2183 



833 



2203 



841 



4455 



844 



6517 



1119 1132 



1148 



1163 



1179 1817 1901 



8042 



8051 



8079 



8081 



1052 1085 1382 1390 1555 1564 5275 5302 8989 



1442 1499 1302 



700 



701 



713 



■719 
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STBRK3V 


0000 


8898 


STESTOP 


0000 


OBCC 


STIVER 


0000 


162A 


STISRST 


0000 


1640 


STI«VAL 


0000 


0A5A 


STISXT 


0000 


16 45 


ST3TB.1 


0000 


1A9A 


STSTB.U 


0000 


1AA0 


STSTB.2 


0000 


1AA8 


STST3.3 


0000 


1ABA 


STST3.4 


0000 


1AD4 


STSTB.4B 


0000 


1AF2 


$TSTB.5 


0000 


1AFC 


3TSTB.6 


0000 


1B0A 


STSTB.7 


0000 


1B10 


$TSTDU.1 


0000 


1B32 


STSTOP.1 


0000 


0BS4 


STST0P.3 


0000 


OBFE 


STSTOP.4 


0000 


OCOO 


STST0P.5 


0000 


OCOE 


$VALfJ1 


0000 


OCOA 



SVALU2 


0000 


oooc 


SHASDU 


0000 


1E58 


$XI1 


0000 


1CBE 


SXI2 


0000 


1CCE 


SXI32 


0000 


1C9E 


5XI32CH 


0000 


1C9E 


.A 


oooo 


00C1 


.B 


0000 


00C2 


.C 


0000 


00C3 


.D 


0000 


O0C4 


.¥. 


0000 


00C5 


.F 


0000 


00C6 


.1 


0000 


00C9 


.L 


0000 


OOCC 



812 


6-16 


821 


346 


2825 


2833 


















1676 


1684 


8988* 
























297 


297 


321* 
























1218* 




























1233 


1258* 


























190* 


1229 


























12=59* 




























1682* 


1694 


1696 


1699 


1729 




















1684* 


1705 


























1680 


1687* 


























1690 


1692* 


























1701* 


1737 


























1721* 




























1692 


1725* 


























1727 


1730* 


1736 
























1732* 


1733 


























1744 


1746* 


























330* 


344 


























337 


340* 


























339 


341* 


























324 


342 


346* 
























66* 


222 


238 


346 


358 


367 


373 


385 


387 


400 


414 


433 


449 


WO 


482 


494 


501 


514 


527 


553 


561 


572 


574 


587 


595 


623 


632 


640 


650 


656 


662 


670 


678 


698 


700 


713 


792 


803 


812 


825 


839 


«70 


907 


950 


2408 


2412 


2422 


2423 


2425 


2432 


2434 


2446 


2447 


2451 


2454 


2456 


2460 


2473 


2563 


2627 


2645 


2729 


2730 


2744 


2825 


2954 


3018 


3042 


3071 


313P 


3140 


3142 


3148 


3150 


3166 


3177 


3215 


3238 


3271 


3278 


3283 


3316 


3356 


3371 


3397 


3421 


3444 


3451 


3495 


3626 


3708 


3717 


3725 


3735 


3744 


3753 


3762 


3771 


3780 


3801 


3810 


3819 


3828 


3837 


3846 


3855 


3864 


3873 


3892 


3924 


3943 


3979 


4103 


4116 


4117 


4120 


4152 


4153 


4154 


4167 


4211 


4326 


4338 


4341 


4345 


4378 


4379 


4385 


4433 


4515 


4541 


4543 


4548 


4580 


4622 


4626 


4629 


4661 


4695 


473-f 


4782 


4794 


4822 


4866 


5043 


5048 


5255 


5280 


5369 


5376 


5381 


53^7 


5408 


5447 


5470 


5496 


5526 


5529 


5993 


5997 


6004 


6005 


6007 


6050 


6141 


6142 


6143 


6263 


6270 


6272 


6283 


6392 


6394 


6446 


6508 


6620 


6625 


6858 


7104 


7110 


7116 


71-6 4 


7176 


7209 


7219 


7511 


7515 


7519 


7522 


7526 


7561 


7580 


7588 


7623 


7663 


7737 


7741 


7745 


7748 


7780 


7782 


7783 


7869 


7873 


7880 


7885 


7921 


7922 


7929 


7984 


8000 
8821 


8004 


8290 


8297 


8304 


8351 


8385 


8389 


3413 


8463 


8506 


8548 


8657 


8"?94 


67* 


347 


386 


388 


394 


406 


573 


575 


581 


593 


668 


699 


701 


707 


719 


808 


816 


827 


867 


2335 


2817 


2833 


8002 












217 


961 


976 


1444 


1758 


1760 


2161 


2242* 














1967* 


1972 


























1970 


1973* 


























115 


1951* 


5855 


5925 


6087 


6162 


6222 
















115* 


1829 


























2343 


2363* 


























2341 


2364* 


























2340 


2342 


2356 


2365* 






















2343 


2344 


2345 


2346 


23U7 


2348 


2349 


236** 














2338 


2344 


2349 


2356 


2358 


2367* 


















2350 


2351 


2351 


2368* 






















2345 


2350 


2351 


2352 


2359 


2369* 


















2339 


2350 


2353 


2370* 
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• J! 


0000 


OOCD 


. f 


0000 


OOCF 


.0 


0000 


OOCF 


.F 


0000 


OODO 


• P 


0000 


0002 


. $ 


0000 


00D3 


.T 


0000 


00D4 


.U 


0000 


00D5 


.V 


0000 


O0D6 


• X 


0000 


00D8 


.Y 


0000 


0009 


SPRINT 


0000 


17F4 


ABORT 


0000 


1358 


ABSTOP 


0002 


89D0 


ADC 


0000 


0004 



AMSG 


0000 


1F40 


ASCIDSV 


0000 


1ECB 


ASCIDEV2 


0000 


1EDA 


ASCILDC 


0000 


1F11 


ASCI1AW 


0000 


1EFA 


ASCIMSW 


0000 


1EE7 


ASCIPSW 


0000 


1F05 


ASCISTA 


0000 


1ED3 


BASE 


0000 


8420 


BOARDHSG 


0000 


83F0 


BP.K.SAV 


0000 


1E6C 


BEKK33 


0000 


1F42 


BRKVECT 


0000 


1E48 


BTESTHD 


0000 


1E5E 


BUFFZ 


0000 


8446 


BUFSAV 


0000 


7090 


BYKS30 


0000 


1F9C 


BYRD 


0000 


83CC 


BYSAV 


0000 


8404 


BYTE. 1 


0000 


0C56 


BYTE.C*D 


0000 


0C52 


BYTE.DSF 


0000 


0C4C 


BYTES 


0300 


2002 



C300ADS 

CAR2ND 

CARPD 

CARRQ23 

CBYRO 

CCLE«3 



0000 0A1E 
0000 0A42 
0000 0A40 
0000 0A4C 
0000 7C60 
0000 7E9A 



2342 


2348 


2359 


2371* 






















2344 


2352 


2353 


2372* 






















2339 


2339 


2340 


2342 


2353 


2354 


2355 


2373* 














2348 


2354 


2355 


2374* 






















2345 


2346 


2347 


2355 


2356 


2357 


2350 


2375* 














2346 


2358 


2376* 
























2338 


2343 


2347 


2349 


235.2 


2354 


2359 


2360 


2377* 












2348 


2357 


2378* 
























2346 


2347 


2379* 
























2349 


2380* 


























2341 


2381* 


























845 


994 


1370 


1375 


1418 


1433* 


















945* 


3146 


4699 


5259 


7993 


8332 


8560 
















885 




























119 


202 


744 


769 


1066 


1067 


1069 


1093 


1135 


1152 


1168 


1169 


1172 


1 IT? 


1176 


1187 


1275 


1315 


1329 


1403 


1404 


1424 


1427 


1428 


1430 


1708 


1825 


1837 


1844 


1851 


1867 


1937 


1984 


2006 


2044 


2084 


2116 


2121 


2133 


2138 


2145 


2171 


2185 


2189 


8799 


8830 


8831 


8846 


















239 


2287* 


























1122 


2269* 


























1105 


2273* 


























1158 


2231* 


























2200 


2277* 


























2181 


2275* 


























1141 


2279* 


























1114 


1127 


2271* 
























5908 


6076 


6127 


8912* 






















8773 


8791 


8891* 
























2250* 




























1506 


2288* 


























1683 


1709 


1710 


2234* 






















893 


894 


898 


922 


2245* 




















2852 


P924* 


























7181* 




























534 


546 


2296* 
























8125 


8859* 


8860 
























237 


374 


8897* 
























371 


373* 


























300 


372* 


























300 


370* 


























238 


373 


449 


482 


2311* 


2422 


2446 


2447 


2451 


2729 


3177 


3215 


3233 


3278 


3283 


3316 


3371 


3397 


3421 


3451 


4120 


4154 


4345 


4385 


4433 


4548 


4590 


4629 


4661 


4737 


4782 


4794 


4822 


4865 


5048 


5280 


5381 


5387 


5408 


5447 


5470 


5496 


5529 


6007 


6050 


6143 


6283 


6446 


7219 


7519 


7580 


7623 


7748 


7783 


7880 


7929 


8385 


8506 


























141* 




























172* 




























171* 




























181* 




























7246 


8125* 


























472 


7478 


2657 


3147 


3173 


3367 


4118 


4156 


4343 


5144 


5192 


5218 


5277 


5443 


5472 


5607 


5642 


5674 


5706 


5783 


6006 


6274 


7218 


7243 


7461 


7532 


7746 


77«8 


8011 


3015 


8035* 


8314 


8742 
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CDENS 


0000 


7BD2 


CDISA31 


0000 


7CCA 


CDIS3LE 


0000 


7CD6 


CDRC.1 


0000 


7BAF 


CDRCLR 


0000 


7BA0 


CFNBLE 


0000 


7CD0 


CEPGAP 


0000 


4892 


CEXTD 


0000 


7CDC 


CGAPL3 


0000 


7CEE 


CGC 


0000 


7C86 


CG05EAD 


0000 


7C98 


CLIF2ND 


0000 


0A3A 


CLIFADR 


0000 


0A16 


CLIFRD 


0000 


0A38 


CLR.1 


0000 


7F28 


CLRBUF 


0000 


7E18 


CHDCLR 


0000 


83CA 


CNOPO 


0000 


7CAA 


CNOPO.O 


0000 


7CAE 


CKOP1 


0000 


7CB2 


CNOP2 


0000 


7C38 


CNOP3 


0000 


7CBE 


CN0F4 


0000 


7CC4 


COK.O 


0000 


0C78 


CCK.1 


oooc 


OCCA 


COM. CUD 


0000 


0C68 


COM.DEF 


0000 


0C64 


COHERMSO 


0000 


8632 


COMERHS1 


0000 


855E 


CO?IE3ftS2 


0000 


867A 


COHERSS3 


0000 


869C 


C0*ERMS4 


0000 


85C0 


COBERHSS 


0000 


86E0 


CO"?ERMS6 


0000 


86FE 


COKER8S7 


0000 


8718 


COSER>!S8 


0000 


8734 


COHH 


oooo 


1D90 


COHHAND 


0000 


2010 


CON2ND 


0000 


0A30 


CONCTD 


0000 


0A32 


CONENRD 


0000 


0A31 


COHRADR 


0000 


0A2A 


CONRO 


0000 


0A2E 


CONS02S 


0000 


0A48 


CONT.1 


0000 


0C44 


CONT.CHD 


0000 


0C3A 


CONT.D2F 


0000 


0C36 


CONTIH 


0000 


1FP4 



3176 
5UU4 
7789 
5609 
7445 
5644 
8044* 
2479 
5624 
5344 
4239 
6947 
6895 
3187 
7581 
3217 
163* 
137* 
167* 
8370* 
2760 
8035 
3628 
8185* 
3701 
3794 
3890 
8204* 
378 
390 
301 
301 
8633 
8635 
8641 
8650 
8663 
8682 
8690 
8696 
8533 
2111 
385 
162* 
164* 
163* 
157* 
160* 
177* 
363 
299 
299 
367 



3353 3501 

5508 5643 

8062* 8743 

5693 5722 

S209* 8317 

6151 8219* 
8049 

8041* 8316 

5656 5682 

5400 6475 

4471* 6871 

7039 8224* 
8239* 

3293 4227 

7799 8154* 

3318 4284 



8373 
3466 
8857* 
6705 
8190 
8189* 
8194* 
4169 
8719 
384* 
396 
379* 
377* 
8639 
8957* 
8958* 
8959* 
8960* 
3951* 
8962* 
8963* 
8964* 
2119 
386 
163 
1636 
1797 
1643 
161 
1630 
367* 
364* 
362* 
950 



4277 
8858 
6711 
8195 
8707 
8711 
5179 



402 



8648 



2130 

387 

1649 

1646 

1687 
1647 
1651 



4119 

5675 

5768 



8337 
5713 
7422 

8441 

4250 

4387 



4934 

6757 
8200 



8561 



4221 

570"> 

5306 



573^ 
821 4* 



4356 
4796 

5392 

6761 
82C5 



8199* 8550 



407* 



868C 



2144* 

388 394 

1648 1511 

1783 1796 

1658 17°4 

1652 1662 



4254 
5784 

6002 



5749 

4724 
4881 

6669 
6803 

8715 

8688 



400 



4344 
6018 

6054 



5789 

4755 

5480 



4559 
5282 

6190 



5812 

4841 
6416 



7617 7662 
8184* 8627 



4640 
6634 

5262 



6017 

5291 

66-78 



7684 
8656 



4717 
6739 

6310 



5062 

5457 
7006 

8364* 
8703 



4749 
6870 

6415 



6125 

6313 
7624 

8510 



4834 
7227 

6490 



6174 

6642 
7931 



5042 
7557 

6521 



6192 

6911 
8168* 



5278 

771(7 



7417 



6?7T 



6931 



8694 



8956* 



406 



801 



2312* 8004 



1959 

1789 1800 



2310* 2454 
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SYMBOL TABLE C CROSS REFERENCE LIST 



C0NTS3G 



0000 8595 



CON'rfADfi 


0000 


0A2C 


CCNWRT 


0000 


0A2F 


COUNT 


0000 


1E60 


C°DBACK 


0000 


5808 


CRDC.O 


0000 


7SA4 


CRDC.2 


0000 


73C4 


OREAD 


0000 


7C5A 


CREW 


0000 


7C92 


CRLF 


0000 


1782 


CRLFJ1SG 


0000 


1F60 


CRT2SD 


0000 


0A36 


CRTRD 


0000 


0A34 


CRTRQ2S 


0000 


0A49 


CSKBB 


0000 


7C7A 


CSKBF 


0000 


7C74 


CSKFB 


0000 


7C66 


CSKFF 


0000 


7C54 


CSTOP 


0000 


7C9E 



CSTOPS 


0000 


7CA4 


CTESTHDE 


0000 


7C8C 


CUNLD 


0000 


7CE2 


C*3E0F 


0000 


7C6C 


CWREOF.O 


0000 


7C70 


CWRIT5 


0000 


7C80 


CHRODBY 


0000 


7CE8 


D.ERS 


0000 


4814 


DO 


0000 


0D32 


DO.O 


0000 


0D34 


D1 


0000 


0D36 


02 


0000 


0D48 


Z2.1 


0000 


0B56 


D3 


oooc 


0D66 


DAT.1 


0000 


47F4 


DAT.1ISS 


0000 


5F42 


DATA 


0000 


202C 


DATA. 1 


0000 


OCDA 


DATA.CMD 


0000 


0CD6 


DATA.DEF 


oooo 


0CD2 



2471 


2436 


2496 


2579 


2587 


2595 


2603 


2671 


2795 


2985 


3002 


3015 


3067 


32*4 


3326 


3391 


3435 


3492 


3611 


3635 


4177 


4193 


4316 


4415 


4452 


4963 


5094 


5160 


5137 


5251 


5432 


5515 


5665 


5946 


6026 


6214 


6247 


6302 


6701 


6714 


6999 


7100 


7278 


7323 


7353 


7435 


8089 


8431 


8486 


8584 


8951* 












158* 


1581 


1645 


1921 






















161* 


1582 


1924 
























900 


932 


934 


2246* 






















5394 


5474 


5554* 
























8036 


3042* 


8136 


8185 






















8046 


8051* 


























484 


2751 


2989 


3076 


3211 


3312 


3399 


3467 


4157 


4181 


4279 


4381 


4403 


4593 


4669 


4790 


4875 


5075 


5163 


5202 


5224 


5754 


5874 


5149 


6227 


6401 


6477 


6673 


6720 


7002 


7 247 


7620 


7688 


7887 


7926 


8120* 














3394 


5736 


5858 


6128 


5377 


7543 


7599 


7674 


8163* 


8575 










214 


229 


451 


453 


879 


1396* 


2163 
















1605- 


2292* 


























166* 




























165* 




























173* 




























5219 


5220 


5221 


5241 


5959 


6987 


6988 


8145* 














5199 


5200 


5242 


5243 


5466 


5489 


6657 


8140* 














478 


3888 


5073 


5201 


5972 


8130* 


















5146 


5194 


5195 


5239 


5240 


8115* 


















2413 


2414 


3162 


3163 


3269 


3270 


3307 


3308 


3330 


3331 


4208 


4209 


4335 


433* 


4705 


4706 


4778 


4779 


4819 


4820 


4863 


4864 


4919 


5038 


5039 


5365 


5366 


5441 


5442 


5493 


5494 


5542 


6265 


6266 


6372 


6373 


6621 


662? 


6662 


6663 


6899 


6901 


6906 


6907 


6 924 


6925 


6952 


6968 


6969 


7021 


7022 


7038 


7044 


7058 


7059 


7127 


7516 


7518 


7571 


7572 


7586 


7587 


7629 


7630 


7804 


7805 


7936 


7937 


7950 


8173 


8299 


3300 


8398 


8411 


8446 




















8179* 


8412 


























2749 


2972 


3039 


3286 


3455 


7530 


8159* 
















7466 


8229* 


























3602 


4138 


4369 


5056 


5063 


5265 


5270 


6102 


6345 


8135* 










8116 


S131 


8136* 


8141 


8145 




















2750 


2973 


3048 


3181 


3287 


3369 


3456 


4125 


4222 


4255 


4350 


4532 


4560 


4641 


4718 


4750 


4835 


5284 


5451 


5683 


5714 


5793 


5019 


6287 


6635 


6740 


6773 


6795 


6902 


7232 


7577 


7652 


7753 


7794 


8150* 


8747 














3180 


3375 


4124 


4348 


4531 


4556 


4637 


4714 


4746 


4831 


5283 


5450 


6011 


6286 


6772 


7231 


7560 


7752 


7793 


8234* 


8746 
















4437 


4445* 


























441* 


491 


























442* 


464 


























443* 


452 


























447 


449* 


























450 


453* 


























456 


458* 


























4434* 


4442 


























6202 


5208* 


























414 


2314* 


2744 


2954 


3013 


3165 


3271 


3?56 


3444 


349=: 


4541 


4543 


4622 


462'= 


5376 


5993 


6626 


7209 


7522 


7737 


7869 
















412 


414* 


























302 


413* 


























302 


411* 
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DATAPAT 


0000 


8424 


DATCOMP 


00 


4TF2 


DATC3MP2 


0000 


5F24 


DBASE 


0000 


708C 


DECASC 


0000 


15A8 


DECFL3 


OOOC 


840E 


DECHEX 


0000 


10DP 


DECHEX1 


0000 


1120 


DECIAB 


0000 


1E74 


DEFTSSTS 


0000 


21EE 


DEN'S. 


0000 


OC^A 


DENS.1 


0000 


0D04 


DENS.CMD 


0000 


OCEC 


DENS.DEF 


0000 


0CE2 


DENSEITY 


0000 


83E4 


DESSFLAG 


0000 


840C 


DENSITY 


0000 


203A 


DEVINT 


0000 


21E5 



DEVHS3 


0000 


1EC7 


DEVBS32 


0000 


1ED6 


DFVOFF 


0000 


887A 


DEVSADR 


0000 


21E0 


DISABLE 


0000 


83E0 


DISARM 


0000 


83E1 


DISPLAY 


0000 


13F3 


DRIV.O 


0000 


1084 


DEIV.CSD 


0000 


1074 


DRIV.DEF 


0000 


106E 


DRIVE 


0000 


2043 


DRIVE. 1 


0000 


10D6 


DRIVFS53 


0000 


854C 


DRIVSSS 


0000 


852A 


DRIVSAV 


0000 


8408 


DRIVSAV1 


0000 


840A 


DRVCLR 


0000 


83D5 


DRV3.00 


0000 


0EF6 


DRVS.1 


0000 


0F48 


DRVS. 1 A 


0000 


0F4A 


DRVS. 1AA 


0000 


0F88 


DRVS. 13 


0000 


0F92 


DRVS.CMD 


0000 


0FE6 


DRVS.DEF 


0000 


OEEO 


D5VS*SS 


0000 


1F62 


DRVSTAT 


0000 


2064 


DEVT. 1 


0000 


0ED8 



2747 


2777 


2959 


2960 


3171 


3172 


3276 


3277 


3361 


3362 


3449 


3450 


4711 


4712 


5377 


53 8 


5405 


5605 


5535 


5660 


5996 


6197 


6271 


5444 


6629 


6530 


7212 


7259 


7358 


7525 


7632 


7740 


7781 


7872 


8913* 
















4400 


4429* 


























6199* 


6206 


























7162 


7130* 


























1312* 




























4527 


4528 


4703 


4349 


8902* 




















730* 




























753* 




























739 


1317 


2254* 


















I 






321 


32? 


2394* 
























422 


425* 


























426 


429* 


























303 


420* 


























303 


417* 


























2504 


8063 


8882* 


8383 






















220 


432 


2503 


4215 


4248 


4270 


4295 


8052 


8901* 












222 


433 


2315* 
























1973 


2387* 


3184 


3214 


3290 


3315 


4225 


4258 


4232 


4353 


4384 


4721 


4753 


4793 


4838 


4878 


5288 


5454 


5477 


5611 


5637 


5646 


5655 


5679 


5712 


5731 


5748 


57«1 


5854 


5870 


5954 


5970 


6016 


6100 


6124 


6155 


5225 


6276 


6312 


6342 


6375 


6398 


6414 


6474 


6511 


6637 


6672 


7421 


7579 


7622 


7795 


7928 


8303 








1128 


2268* 


2269 


2270 


2271 




















1106 


2272* 


2273 
























508 


510 


8984* 
























1957 


2334* 


6507 


6509 


3301 




















8219 


8879* 


8880 
























8209 


8330* 


























936 


1001* 


























691 


697* 


























304 


692* 


























304 


690* 


























698 


699 


700 


701 


707 


713 


719 


7 97 


2316* 


2408 


255 3 


2817 


2325 


2833 


7511 


7934 


8290 
























703 


709 


715 


720* 






















8312 


8949* 


























2669 


7478 


8538 


8948* 






















439 


471 


2409 


2467 


2564 


2610 


2647 


2805 


2819 


2827 


2P35 


2866 


3112 


3990 


5102 


5992 


6031 


7175 


7296 


7512 


7619 


7985 


3291 


8350 


8555 


8665 


889?* 




2411 


2515 


2566 


2800 


2814 


2821 


2829 


2837 


2841 


3510 


4001 


4462 


4990 


5307 


5546 


6525 


6812 


7184 


7376 


7482 


7514 


7644 


7826 


7959 


7987 


8293 


8900* 




8041 


8868* 


























565 


571* 


























577 


583 


589 


594* 






















595* 


609 


515 
























610* 


613 


























611 


514* 


























305 


56 6* 


























305 


564* 


























599 


503 


605 


2294* 






















572 


573 


574 


?:1S 


581 


587 


593 


595 


799 


231P* 










557 


56 1* 
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DHVT.CSD 0000 OSCE 
DRVT.DEF 0000 OECA 
DBYTYPE 0000 2080 



DSBO 


0000 


8774 


DSB1 


0000 


8780 


DSB2 


0000 


878C 


DSB3 


0000 


8798 


DSB4MSG 


0000 


87A4 


DSBHS3 


0000 


875A 


DSBKS30 


0000 


874E 


DUMP 


0000 


208E 


DUMP. 2 


0000 


0DB8 


DUMP. 2A 


0000 


0DC6 


DCMP.CMD 


0000 


0D7E 


DUMP. DBF 


0000 


0D1A 


DUMP. END 


0000 


ODDE 


DUMPC1 


0000 


ODAE 


DW.O 


0000 


82A0 


DM.1 


0000 


82A8 


DH.1A 


0000 


596C 


DW.2 


0000 


82AE 


DW.3 


0000 


82C0 


DWRIT5 


0000 


828E 


EGAP 


0000 


83D7 


ENABLE 


0000 


83DD 


EKDBUF 


0000 


84D8 


EBDBUF2 


0000 


84EC 


E0TMS5 


0000 


1F2F 


EESSGA 


0000 


85F0 


EEMSGAA 


0000 


801A 


ERMS38 


0000 


8612 


ERMS39A 


0000 


802C 


EER 


0000 


1434 


ERR.FLG 


0000 


8400 


EPR1 


0000 


1510 


ESRALL 


0000 


149C 


ERRBIT 


0000 


382C 


ERRCOM 


0000 


14P4 


ERRC0K1 


0000 


14E2 


ERE COS 2 


0000 


1502 


ESRD 


0000 


11*44 


EESD1 


0000 


1520 


ERRD5V 


0000 


1E32 


ERRDS 


0000 


146C 


ERRDS1 


0000 


1550 


EFRL 


0000 


1484 


ERRL1 


0000 


1594 


EREL1A 


000 


15A6 


ES3IVL 


0000 


1F2D 



305 


558* 


























306 


556* 


























514 


561 


2320* 


3S26 


370S 


3717 


3726 


3735 


3744 


3753 


3762 


3771 


3730 


3801 


3810 


3819 


3828 


3837 


3846 


3855 


3864 


3873 


3892 


3924 


3943 


3979 


4167 


9548 


8667 




























8705 


8968* 


























8709 


8969* 


























8713 


8970* 


























8717 


8971* 


























518 


8673 


8721 


8972* 






















516 


521 


8343 


8967* 






















8669 


8671 


8701 


8966* 






















470 


2321* 


























440 


475 


477 


481* 






















485* 


489 


























307 


466* 


























307 


435* 


























437 


438 


467 


468 


491* 




















478* 


480 


























5614 


5648 


8745 


8747* 






















5694 


5723 


8749* 


8752 






















5678 


5691* 


























8753* 


8762 


























8758* 




























5052 


5055 


5059 


5062 


5383 


8741* 


















4471 


8870* 


























8214 


8876* 


























2759 


3465 


4276 


4916 


4933 


5391 


5406 


5495 


5534 


6668 


6888 


6955 


6960 


6979 


7026 


7030 


7047 


7575 


7616 


7661 


7883 


82^4 


8255 


8273 


8274 


8367 


8401 


8449 


8478 


8509 


8934* 
























6892 


6957 


6959 


8263 


8264 


8939* 


















956 


2284* 


























2491 


8954* 


























8460 


8493* 


























2500 


8955* 


























8458 


8494* 


























1026* 


2164 


























883 


8778 


8785 


8812 


8816 


8823 


8895* 
















1070 


1094* 


























1052* 


2028 


























8340 


8979* 


























1027 


1031 


1036 


1041 


1048 


1053 


1060* 
















1028 


1033 


1038 


1044 


105C 


1056 


1074* 
















1079 


1084* 


























1030* 




























1032 


1042 


1101* 
























1103 


1121 


2217* 
























1040* 




























1054 


1119* 


























1046* 




























1049 


1148* 


























1158* 




























2025 


2283* 
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ESRMESS8 
E?HMS3 
E3HS3J8 
E = 3?!SG9 

error 

ERROR. 1 
FFRC*. 1A 

£ p R R X 



ERSPL1 

SREPL1A 

ERRPL18 

ERRS 

ERRS1 

ERRSAVE 



ERPSTA 

ET.0Q5A 

ET.1 

ET.3 

FT.D 

ETESTNO 

EXTD.O 

EXTD.OO 

EXTD.OA 

EXTD. 1 

EXTD.CHD 

EXTD.DEF 

LXTD1SG2 

EXTDR1TS 

EXTEND 

FAILSSS 

FIF.1 

FIF.CMD 

FIF.DEF 

FIFO 

FILE.1 

FILE.C&D 

FILE.DEF 

FILES 

FILSAV 

FIRSTtSG 

FOHM^SS 

GfPLEN 

GAPL3S 

GETCMR 

GO 



OOQO 7EEE 
0000 1EA2 
0000 7ECE 
0000 7FAA 
000 1FAA 
0000 82D0 
0000 8304 
0000 8316 
0000 82CC 



0000 1578 

OOCO 1586 

0000 159E 

0000 1458 

0000 1538 

0000 8990 



0000 1E34 
0000 2DE6 
0000 258E 
0000 26B8 
0000 2EF4 
0000 1EA8 
0000 0E2A 
0000 OEOO 
0000 0E50 
0000 0E76 
0000 ODEC 
0000 0DE2 
0000 1F8A 
0000 209C 
0000 83EC 
0000 8506 
0000 OFAC 
0000 0FA2 
0000 0F9E 
0000 20B8 
0000 0EC2 
0000 OEBE 
0000 OEBA 
0000 20AA 
0000 844C 
0000 83F4 
0000 8576 
0000 8418 
0000 83DF 
0000 1938 
0000 83E8 



8425 

1096 

8417 

8464 

2023 

8670 

8779 

8792 

2472 

3198 

4416 

6248 

8345 

1055 

1141* 

1144 

1035* 

1037 

1050 

3219 

7309 

8699 

1112 

3179 

2696* 

2701 

3240* 

1064 

505 

495 

515 

529* 

308 

308 

523 

494 

8224 

8781 

619 

310 

310 

623 

551 

309 

309 

553 

6278 

8774 

8344 

4217 

6893 

1555* 

8154 



8428 

2263* 

5420 

3457 

2030 

3774* 

8789* 

8794* 

2487 

3223 

4453 

6303 

8432 

1132* 

1150* 

1043 
1084 
3225 
7311 
8723 
1125 
3181* 
2705 
2705* 
3247 
2254* 
513* 
502* 
521* 
533 
496* 
493* 
2295* 

501 
8889* 
8946* 
623* 
620* 
618* 
2324* 
553* 
552* 
550* 
2323* 
6281 
8789 
8950* 
"250 
8878* 



8435* 

2264 

8434* 

8489* 

2154 



2497 
3255 
4964 
6470 
8487 
2167 



1110* 

1340 

3987 

7313 

8775 

2219* 



527 



2434 



4116 

8927* 

8892* 

4272 



2265 



2165 



2580 
3304 
4987 
6702 
8539 



1376 
3997 
7321 
8811 



2322* 



2730 



4152 



4297 



2265* 



2588 
3327 
5095 
6715 
8585 



1405 
5097 
7345 
8833 



30U2 



4338 



8907* 



2596 
3392 
5151 
7000 
8773* 



1423 
5118 
7347 
8847 



2604 
3436 
5188 
7101 



2640 
3493 
5252 
7279 



2670 
3612 
5433 
7324 



2796 
3636 

5516 
7354 



2987 
4178 
5666 
7436 



3003 
4194 
5947 
7479 



3015 
4317 
6027 
8090 



306°. 
4330 
621 c 
8313 



2609 
6029 
7372 
8848 



2615 
6040 
7374 
8996* 



2852 
6292 
8415 



287'' 

6298 
8427 



3104 
6316 

8451 



3128 
6321 
8466 



3139 3195 
7270 7272 
8471 8484 



3071 



4378 



5004 



6141 



62-70 



«392 



3835* 8886 
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SYMBOL TABLE r CROSS REFERENCE LIST 



GOREAD 


0000 


83E9 


HAL^9 


0000 


1394 


HEXASC 


0000 


1680 



H EXT A 3 


0000 


1E88 


IMPTOP 


0000 


0000:1 


INCR 


0000 


1E36 


INDEX 


0000 


8414 


INIT 


0000 


2276 


INIT.OOA 


0000 


22A6 


INIT. 003 


0000 


2388 


ISIT.OOC 


0000 


239C 


INIT.OOD 


0000 


23CE 


INIT.01A 


0000 


22S8 


INIT.02A 


0000 


22F0 


INIT.OA 


0000 


2400 


INIT.0A1 


0000 


2316 


INIT.OAA 


0000 


230S 


INIT. OB 


0000 


2320 


INIT. OB 1 


0000 


233A 


INIT.10A 


0000 


2352 


INIT.1A 


0000 


2410 


INIT.1AA 


0000 


241E 


INIT. 20 


0000 


243E 


INITER1 


0000 


23EC 


IHITRET 


0000 


12CC 


INT.1 


0000 


0FC2 


INT.CMD 


0000 


0FB8 


INT.DEF 


0000 


0FB4 


INTDEV 


0000 


1E32 


INTLEVEL 


0000 


20C5 


INTLVL 


0000 


21EC 


INTLVLM 


0000 


1F18 


INTPSSJ 


0000 


1E28 


IRTRSET 


0000 


62AE 


ISTSTA 


0000 


1E34 


IC 


0000 


0A10 


IOSAVE 


0000 


1E4C 


ISITER3 


0000 


1E4S 


IT.1 


0000 


7D9C 


IT. 2 


0000 


7DF0 


IT. 3 


0000 


7DC2 


IT.B1 


0000 


7D58 


IT.B2 


0000 


7D78 


IT.C 


0000 


7D88 


K3INT 


0000 


1E45 


KBIHTO 


0000 


1C60 



8168 


8886* 


























218 


964* 


970 


1083 


1445 




















509 


540 


600 


604 


805 


810 


814 


818 


831 


842 


911 


988 


991 


1 123 


1 143 


1159 


1171 


1294* 


1359 


1414 


2182 


2202 


2469 


2613 


2637 


2869 


2873 


2376 


2910 


3111 


3115 


3120 


3124 


3127 


3194 


3224 


3300 


3324 


3992 


3996 


5104 


5108 


5111 


5114 


5117 


6035 


6039 


6297 


6320 


6423 


7172 


7317 


7320 


8421 


8426 


«465 


8476 


3480 


8483 


8557 


8702 


8730 


8841 
















1199 


1301 


1326 


2024 


2256* 




















1003 


2221* 


























2407 
5942 


2791 
6210 


3011 
6465 


3109 
7096 


3250 
7273 


3345 
8905* 


3428 


3488 


4312 


4446 


4959 


4982 


5426 


55 11 


887 


2405* 


























2415* 


2517 


























2463 


2465 


2473* 
























2476 


2478* 


























2482 


2488* 
























- 


2424 


2432* 


























2426 


2434* 


























2490 


2498* 


























2431 


2440 


2445* 
























2435 


2441* 


























2428 


2433 


2437 


2442 


2447* 




















2449 


2454* 


























2455 


2458 


2461* 
























2474 


2499 


2502* 
























2505* 


2511 


























2416 


2417 


2514* 
























2494* 


2501 


























888* 




























627 


631* 


























311 


628* 


























311 


626* 


























1956 


2216* 


2217 
























632 


2325* 


























631 


1978 


2390* 
























2035 


2282* 


2283 
























1952 


2212* 


























5595 


6506* 


6624 


6856 


7416 




















1957 


2218* 


2219 
























133* 
1810 


850 
1912 


1578 


1619 


1620 


1628 


1629 


1635 


1642 


1644 


1688 


1743 


1^69 


1777 


766 


349 


1484 


1512 


1742 


1770 


1778 


1808 


2236* 












206 
8308 


231 
8314* 


901 


920 


1065 


1075 


1447 


1500 


1722 


2033 


2155 


2166 


2237* 




8321 


8327 


8334* 
























8325* 




























2803 
7379 


3513 
7485 


4004 
8294* 


4465 


4993 


5310 


5549 


6528 


6719 


6737 


6770 


6793 


6 5 15 


7187 


8298 


8304* 


























2477 


3605 


7464 


8309* 


8315 


8596 


















1930 


2232* 


























1908* 


1961 



























HI3H PEBF0BMANCE(P250)I f ft3TAPE DIAGNOSTIC 06-263E01H95A 1 3 PAGE 214 08:34:07 12/23/83 
SYMBOL TABLE £ CROSS BFFF?"NCE LIST 



K3IN T T2 


0000 


1C7A 


K5INT2A 


0000 


1CS5 


KPI3T23 


0000 


1C8A 


SPIN? 3 


0000 


1C94 


KPSD 


0000 


139A 


K 3 F D 1 


0000 


13B2 


KEP.EAD 


oooc 


1B7E 


T t CJ 


0000 


3114 


I. A DC 


0000 


0002 


LCI 


0000 


76CE 


LC. 20 


0000 


77 A A 


LC.4 


0000 


770A 


LCCPE 


0000 


1BD0 


LEKASC 


0000 


2ABC 


LENSAV 


0000 


844A 


L r YELA. 1 


0000 


ODOC 


LI?5MS" 


0000 


850C 


LN'ZB 


0000 


8891 


LCC"!S3 


0000 


1F0D 


LCCP 


0000 


1FE6 


LOOP. 1 


0000 


0C28 


LOOP.CMD 


0000 


0C1E 


LOCP.DEF 


0000 


0C1A 


LOOP. IT 


0000 


83B8 


LOOP. OPT 


0000 


8402 


L00P2 


0000 


836E 



LOOPEXIT 0000 83BA 
LOOPOOT 0000 82FC 
LOOPTOP 0000 838C 



LP. 3 


0000 


315C 


LPADS 


0000 


0A1A 


LPHET 


0000 


0A3C 


S.CHK1 


0000 


7008 


K.CHK2 


0000 


7042 


!«.CHK3 


0000 


702E 


MATCH 


0000 


OAFO 


HATCH. 01 


0000 


OAFA 


BATCH. 02 


0000 


0B04 


HATCH. 03 


0000 


OB20 


MATCH. 04 


0000 


0B22 


MATCH. 05 


0000 


OB 3 


SATCH.06 


0000 


OB36 


KATCH.07 


0000 


0B42 


MATCH. 08 


0000 


OB50 


fATCH.09 


0000 


055E 



1914 


1920* 






















1924* 


1926 






















1923 


1925* 






















1919 


1930* 






















1795* 


2518 






















1799 


1801* 






















1574 


1733* 






















3382 


3334* 






















923 


1314 






















7557* 


7570 






















7621 


7627* 






















7578 


7584* 






















211 


877 


1317* 


7271 


731C 


7346 


7373 












2905* 


4950 


4983 




















2908 


4600 


4646 


4576 


4751 


4800 


4884 


4917 


8926* 








419 


424 


428 


432* 


















8840 


8842 


8947* 




















8985* 
























1149 


2280* 






















358 


2309* 






















354 


358* 






















298 


355* 






















298 


353* 






















8788 


8835 


8846* 




















359 


8784 


8825 


8896* 


















519 


524 


547 


606 


2445 


2453 


2614 


2741 


2863 


2865 


3063 


3092 


3145 


3190 


3220 


3320 


3954 


3966 


3969 


3973 


3988 


4189 


4409 


4698 


5258 


6030 


6293 


7107 


7113 


7119 


7174 


7224 


7307 


7312 


7327 


7332 


7992 


8331 


8341 


8416 


8422 


8452 


8461 


8470 


8532 


8559 


8634 


8640 


8664 


8672 


8681 


8689 


8695 


8782 


8790 


8793 


8818 


8821* 






8808 


3847* 






















8787* 


8819 






















436 


466 


2415 


2569 


2624 


2642 


2725 


2968 


3035 


3159 


3266 


3363 


3618 


3698 


3791 


3884 


3976 


4110 


4205 


4323 


4332 


4522 


4575 


4618 


4701 


4775 


4816 


4860 


5035 


5362 


5590 


5620 


5631 


5671 


5703 


5727 


5850 


5999 


6120 


6259 


6369 


6617 


6659 


6734 


6767 


6790 


6896 


6965 


7281 


7413 


7446 


8830* 


















3400* 


3404 






















139* 
























159* 
























7137* 


7140 






















7148 


7157* 






















7149* 


7152 






















250* 


860 






















253* 


268 






















257* 


265 


274 




















266* 


283 






















267* 


271 






















262 


273* 






















275* 


279 






















276 


280* 






















284* 


288 






















2fc1 


286 


290* 





















3105 3107 

5098 5100 

7336 7459 

8649 fl 662 



3441 3595 

4657 46"32 

5762 57»0 

7214 "'239 



HIGH PERF0RHANCE(6250)*A3TAPE DIAGNOSTIC 06-263RC 1 *95A 1 3 FAGE 215 08:34:07 12/23/ e ? 
SYMBOL TABLE £ CROSS REFERENCE LIST 



*AXTST 


0000 


2234 


KEM.INT 


0000 


703C 


MEKCHK 


0000 


6FEC 


MESS3.0 


ooco 


35E8 


KESSA3A 


0000 


245C 


MESSA3AA 


0000 


247E 


"SESSA3AB 


0000 


249E 


KESSA3E1 


0000 


2A4C 


MESSA3E2 


0000 


2A58 


HESSASE3 


0000 


2A6C 


3ESSAGE4 


0000 


351C 


MESSA3E5 


0000 


3630 


MESSA3E9 


0000 


7FD2 


KESSA3EA 


0000 


7FE6 


13ESSASE9 


0000 


8000 


FESSG3A 


0000 


35F6 


SESSG3B 


0000 


3602 


HESSG3C 


0000 


360E 


SICROBUS 


0000 


0A22 


SISSED 


0000 


2EFE 


HMAW3S3 


0000 


1EF0 


MMSW 


0000 


1E2C 


KMStfSSG 


0000 


1EDE 


H0D32 


0000 


1E30 


MREADC 


0000 


0A44 


M TEST NO 


0000 


1E9E 


NEWLI9 


0000 


833A 


NEWPSS 


0000 


1E20 


NEXTSEQ 


0000 


8342 


NOBOT 


0000 


87B0 


NOERMSG 


0000 


1EBE 


NOERR 


0000 


1E50 


MOPO 


0000 


83D0 


N0P1 


0000 


83D1 


N0P2 


0000 


83D2 


N0P3 


0000 


83D3 


N0P4 


0000 


83D4 


NORM 


0000 


1E35 


SOSSL 


0000 


6B20 


NOSELCH 


0000 


85D4 


NST 


0000 


4840 


NULLNS3 


0000 


1F5C 


OCR 


0000 


7B96 


OLDPSW 


0000 


1E18 


0SL.1 


0000 


OFDC 


ONL.CMD 


0000 


0FD2 


ONL.DEF 


0000 


OFCE 


ONLI^O 


0000 


8868 


ONLINE 


0000 


20D4 


OPT 


0000 


1FD8 


OPT.2A 


0000 


118E 



331 


2397* 












7131 


7154* 












6853 


7130* 












2909 


3542* 


4962 


4985 








2444 


2522* 


2740 










2430 


2439 


2523* 


2735 








2452 


2524* 












2495 


2565 


2868 


2893* 


2S85 


3001 


3066 


6700 


6998 


7352 


7434 


7477 


8088 


8537 


2872 


2894* 












2875 


2895* 












3123 


3546* 












3126 


3547* 












8475 


8485 


8490* 










8479 


8491* 












8482 


8492* 












2794 


3014 


3114 


3253 


3434 


3491 


3543* 


7099 


7277 












3119 


3544* 












3110 


3545* 












143* 














3243 


3248* 












2204 


2276* 


2277 










2063 


2066 


2070 


2178 


2213* 






2184 


2274* 


2275 










208 


2215* 












173* 


1915 












910 


1063 


2261* 










8801 


8804* 












925 


926 


2211* 










8786 


3806* 


8814 










8328 


8974* 












960 


2257* 












2238* 














8184 


8853* 


8864 










8189 


8864* 












8194 


3855* 


8866 










8199 


3866* 












8204 


8857* 


8868 










1013 


2220* 












3144 


6818* 


7118 










4328 


4697 


5257 


6518 


7106 


8953* 




4456 


4458* 












979 


1397 


2291* 


2292 








2421 


8005 


8029* 










1047 


1133 


1150 


195S 


2012 


2152 


2210* 


636 


640* 












312 


637* 












312 


635* 












7112 


8983* 












640 


2326* 


2425 


2«32 


2473 


2645 


3138 


777 


2307* 












791 


796* 













3390 



U17« 



4192 



4414 



5250 



f,2ti< : 



5431 



5514 



5945 



621' 



6468 



7588 



7663 



8304 
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OPT. 238 

OPT. 22 

OPT. 3 A 

0PT.3B 

OFT.PROC 

OPT. TAB 

OPTEND 

0PTEND2 

OPTIN 

0PTIN1 



0000 1lAa 

0000 1200 

000^ 1230 

0000 1242 

0000 0370 

0000 21"6 

000 C 2129 

0000 2128 

0000 0A?4 

0000 0A2C 



OPTION 0000 2128 

OPTPOINT 0000 83F8 

OPTRTN 0000 11U2 

OPTVAL 0000 15 r C 



ORIGIN 

ORIGIM1 

ORIGIN2 

OUT.SAV 

DUTCH R 

PASLADR 

PASS 



PASSSSG 

PAT.1 

PATCHK 

PATCHK.1 

FEINT 

PE0.1 

FEO.CKD 

PRO.OEF 

PROCEED 

PP.OLIH 

PSW 

PSW2 



PSW3 



PSWHS3 

PSWSAYE 

PURETDP 

PUTCrfR 

JMSG 

QUEST* 



0000 0A00 
0000 0A00 
0000 0A04 
0000 1E68 
00Q0 13C4 
0000 0A12 
0000 834E 



0000 8500 
0000 2F28 
0000 32C0 
OOQC 32D8 
0000 1602 
0000 OF^S 
0000 0FE8 
0000 0FE4 
0000 20E2 
0000 63A0 
0000 0A50 
0000 0A52 



0000 0A54 



0000 1F01 
0000 8898 
0000 0000: 
0000 175C 
0000 1F3C 
0000 1A7C 



798 


800 


803* 
























802 


823* 


























841* 




























822 


334 


845* 
























291 


2 94 


297* 
























251 


2338* 


























2333* 




























847 


2332* 


























227* 


1591 


1593 


2192 


2205 




















230* 


348 


360 


368 


375 


409 


415 


434 


452 


512 


520 


548 


55U 


561 


596 


616 


624 


633 


64 1 


651 


657 


663 


671 


679 


722 


843 


858 


962 


1507 


1671 


2036 


2169 


8795 


8844 


















767 


770 


2334* 


2335 






















8787 


8798 


8806 


8332 


8393* 




















768 


777* 


























330 


381 


391 


397 


403 


493 


568 


578 


584 


590 


*84 


694 


704 


710 


716 


761 


1186* 
























108* 


117 


























109 


113* 


























124* 




























1511 


1548 


2249* 
























240 


242 


458 


1455 


1457 


1471 


1492 


1494 


1511* 












135* 


1747 


























2512 


2599 


2629 


2633 


2646 


2719 


2787 


3025 


3087 


3499 


3506 


3603 


3633 


3641 


3689 


3704 


3779 


3797 


3872 


3955 


3967 


3970 


3974 


3980 


3983 


4197 


4305 


4327 


4397 


4419 


4569 


4605 


4610 


4651 


4633 


4769 


4810 


4854 


4893 


*245 


5419 


^SO" 7 


5615 


5625 


5654 


5695 


5747 


5774 


5842 


5969 


6091 


6113 


6194 


6253 


6337 


6362 


6502 


6761 


6785 


6807 


6956 


6958 


7071 


7076 


7237 


7268 


7368 


7440 


7460 


7471 


8811* 




























8817 


8945* 


























3246 


3256* 


























3256 


3341 


3425 


3434 


3494* 




















3496 


3502* 


























511 


517 


522 


1152 


1178 


1420 


1437* 


6868 


7424 


7450 


8822 


8828 


8843 




644 


647 


650* 
























314 


545* 






. 




















314 


643* 


























650 


2327* 


8794 


8821 






















8838* 




























185* 




























186* 


194 


230 


930 


1061 


1982 


2026 


2076 


2156 


2418 


5661 


5691 


5720 


=nui 


5765 


5796 


5 629 


5843 


5990 


6379 


6418 


6479 


6515 


6644 


6648 


6630 


6686 


6^14 


6943 


7009 


7035 


70 54 


7155 




















187* 


921 


5600 


5576 


5708 


5732 


5750 


5787 


5301 


5321 


5835 


5853 


5885 


58^6 


5916 


5966 


6013 


6046 


6070 


6084 


6108 


6136 


6157 


6188 


6236 


6258 


6308 


<;32f 


6353 


533o 


6409 


6430 


6486 


*522 


6638 


6674 


5903 


6920 


6935 


6970 


7017 


741« 


8295 


8 35 2 


























1142 


2278* 


2279 


2280 


22?1 




















1866 


3987* 


























1382* 




























1670 


2236* 


























250 


1668* 
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RC 



OOOO 0000 



HI 



0000 0001 



91* 


205 


206 


207 


208 


212 


213 


219 


220 


221 


222 


233 


?34 


2?^ 


237 


238 


418 


423 


427 


431 


432 


506 


514 


536 


598 


730 


731 


742 


753 


732 


783 


795 


819 


820 


827 


328 


829 


832 


833 


840 


843 


844 


849 


850 


352 


853 


867 


870 


872 


880 


881 


882 


883 


834 


885 


886 


892 


893 


909 


919 


920 


931 


947 


948 


957 


961 


969 


975 


976 


977 


985 


99 2 


993 


1001 


1003 


1008 


1012 


1013 


1015 


1016 


1060 


1062 


1063 


1064 


1065 


1074 


1075 


1076 


1084 


1102 


1111 


1120 


1124 


1140 


1157 


1226 


1231 


1259 


1265 


1274 


1275 


1276 


1284 


1294 


1295 


1312 


1313 


1340 


1341 


1347 


1361 


1376 


1396 


1405 


1413 


1415 


1416 


1417 


1421 


1422 


1423 


1433 


1438 


1439 


1440 


1447 


1532 


1541 


1542 


1570 


1575 


1577 


1635 


1636 


1639 


1650 


1741 


1745 


1750 


1750 


1758 


1759 


1760 


1767 


1768 


1769 


1770 


1775 


1776 


1777 


1778 


1793 


1784 


1785 


1789 


1795 


1796 


1797 


1800 


1801 


1810 


1811 


1818 


1820 


1821 


1829 


1831 


1961 


1862 


1866 


1887 


1888 


1389 


1912 


1913 


1922 


1953 


2027 


2064 


2066 


2073 


2074 


2077 


2157 


2180 


2201 


2406 


2407 


2410 


2411 


2422 


2427 


2436 


2441 


2447 


2448 


2450 


2451 


2456 


2457 


2459 


2460 


2466 


2473 


2492 


2493 


2515 


2516 


2565 


2566 


2609 


2611 


2615 


2634 


26 4 5 


2648 


2649 


2662 


2563 


2666 


2667 


2730 


2763 


2767 


2770 


2800 


2801 


2814 


2815 


2820 


2821 


2823 


2828 


2829 


2831 


2836 


2837 


2840 


2841 


2862 


2867 


2871 


2877 


2906 


2907 


2911 


2981 


2982 


2997 


2998 


3010 


3011 


3018 


3042 


3071 


3104 


3108 


3113 


3116 


3121 


3128 


3138 


3140 


3148 


3183 


3184 


3185 


3186 


3189 


3191 


3195 


3213 


3214 


3215 


3216 


3219 


3221 


3225 


3278 


3289 


3290 


3291 


3292 


3297 


3314 


3315 


3316 


3317 


3321 


3387 


3388 


3510 


3511 


3606 


3607 


3626 


3708 


3717 


3726 


3735 


3744 


3753 


3762 


3771 


3780 


3801 


3310 


3819 


3828 


3837 


3846 


3855 


3864 


3873 


3892 


3924 


3943 


3979 


3987 


3989 


3994 


3997 


4001 


4002 


4167 


4186 


4187 


4224 


4225 


4226 


4257 


4258 


4259 


4231 


4282 


4283 


4352 


4353 


4354 


4355 


4383 


4384 


4385 


4386 


4411 


4412 


4429 


4443 


4462 


4463 


4526 


4527 


4627 


4628 


4708 


4709 


4720 


4721 


4722 


4723 


4752 


4753 


4754 


4755 


4792 


4793 


4794 


4795 


4837 


4838 


4839 


4840 


4877 


4878 


4879 


4880 


4904 


4918 


4929 


4935 


4949 


4990 


4991 


5081 


5082 


5083 


50 84 


5097 


5101 


5105 


5118 


*130 


5131 


5133 


5135 


5137 


5140 


5149 


5150 


5212 


5213 


5234 


5235 


5247 


5248 


5287 


5288 


5289 


5290 


5307 


5308 


5453 


5454 


5455 


5456 


5476 


5477 


5478 


5479 


5527 


5541 


5546 


5547 


5735 


5743 


5752 


5767 


5827 


5837 


5857 


5865 


5873 


5903 


5955 


5958 


5971 


5997 


6029 


6033 


6036 


6040 


6050 


6051 


6076 


6 086 


6101 


6110 


6126 


6127 


6148 


6226 


6238 


6243 


6244 


5292 


6294 


6298 


6314 


6316 


6317 


6321 


6343 


6376 


6399 


6420 


6443 


6460 


6476 


6525 


6526 


6640 


6676 


6812 


6813 


6912 


6959 


6960 


6994 


6995 


7007 


7169 


7184 


7185 


7270 


7272 


7309 


7311 


7313 


7314 


7321 


7345 


7347 


7348 


7349 


7372 


7374 


7375 


7377 


7420 


7421 


7431 


7432 


744? 


74«5 


7467 


7473 


7474 


7482 


7483 


7513 


7514 


7526 


7534 


7538 


7544 


7547 


7550 


7554 


7561 


7578 


7579 


7580 


7588 


7590 


7594 


7600 


7603 


7606 


7610 


7621 


7622 


7623 


7644 


7645 


7663 


7665 


7669 


7675 


7678 


7681 


7685 


7690 


7693 


7741 


7757 


7760 


7769 


7772 


7795 


7796 


7797 


7798 


7806 


7809 


7816 


7819 


7826 


7827 


7873 


7890 


7893 


7900 


7903 


7912 


7915 


7927 


7928 


7929 


7930 


7938 


7941 


7951 


7954 


7959 


7960 


7986 


7987 


8002 


800 3 


8043 


8048 


8074 


8082 


8085 


8086 


8094 


8101 


8104 


8252 


8253 


8271 


8272 


8292 


8293 


8304 


8365 


8374 


8384 


8388 


8402 


8415 


8419 


8424 


8427 


8451 


8455 


8456 


8462 


8466 


8471 


8472 


8477 


8484 


3503 


8511 


9 534 


8535 


8548 


8554 


8576 


8579 


8667 


8699 


8700 


8723 


8727 


8728 


3731 


8775 


8778 


8784 


8785 


8794 


8796 


8800 


8802 


8811 


8812 


8815 


8816 


8821 


9823 


8825 


8826 


8833 


8838 


8848 


8649 






















92* 


232 


251 


254 


258 


260 


269 


270 


277 


278 


439 


u->1 


486 


502 


507 


50 - ? 


527 


528 


530 


538 


595 


601 


602 


732 


739 


744 


780 


733 


784 


735 


803 


808 


812 


816 


825 


826 


826 


828 


839 


894 


895 


896 


898 


902 


905 


930 


931 


950 


967 


968 


969 


987 


989 


1005 


1006 


100* 


1007 


1007 


1008 


1009 


1010 


1010 


1011 


1011 


1012 


1061 


1062 


1077 


1078 


1080 


1081 


1103 


1112 


1121 


1125 


1134 


1151 


1227 


1230 


1298 


1318 


1320 


1342 


1343 
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R10 



0000 OOOA 



H1 1 
K12 

213 
P14 



0000 0003 
0000 oocc 

0000 OCOD 
0000 OOOE 



1352 


1363 


1371 


1407 


1408 


1409 


1444 


1512 


1513 


1515 


1518 


1520 


1*2 3 


1524 


1525 


1527 


1530 


1531 


1532 


1534 


1536 


1537 


1539 


154- 


1544 


1546 


16 19 


1*22 


1624 


1628 


1639 


16^0 


1641 


1642 


1544 


1546 


1648 


165-; 


1651 


1742 


17a 5 


"74« 


1747 


1748 


1752 


1753 


1755 


1757 


1759 


1761 


1761 


1798 


1801 


1807 


1 S O* 5 


1 809 


1810 


18 11 


1812 


1913 


1819 


1820 


1821 


1622 


18 30 


1831 


1832 


1860 


19 5 2 


1853 


1954 


1981 


2026 


2027 


2076 


2077 


2083 


2091 


2156 


2157 


2151 


2162 


2178 


2190 


2191 


219 3 


2408 


2409 


2467 


2563 


2564 


2610 


2635 


2647 


2751 


2772 


280* 


291 7 


2819 


2325 


2827 


2333 


2835 


2846 


2852 


2866 


28' 1 


2874 


2908 


2975 


20Q-| 


304° 


3077 


3109 


3112 


3118 


3122 


3125 


3192 


3222 


3293 


3322 


3376 


3401 


3457 


347Q 


3990 


3993 


4126 


4139 


4471 


4533 


4561 


4595 


4542 


4571 


4930 


49^1 


493? 


4933 


5077 


5102 


5106 


5109 


5112 


5115 


5167 


5204 


5226 


5397 


5528 


5531 


5532 


553« 


553S 


5554 


5596 


5770 


5307 


5813 


5883 


5889 


5913 


5992 


6031 


6037 


605* 


6 0«3 


6138 


6159 


6167 


6295 


6318 


6330 


6355 


5390 


5411 


6421 


6432 


6488 


6507 


6650 


6688 


■5706 


6741 


6747 


6758 


6774 


6782 


6796 


6304 


6922 


5937 


7019 


705« 


717n 


7175 


7233 


7250 


7315 


7318 


7511 


7512 


7613 


7614 


7615 


7616 


7619 


7653 


7696 


7754 


7896 


7984 


7935 


8029 


8035 


8041 


3057 


3063 


8068 


8075 


8095 


8115 


R120 


8125 


3130 


8135 


8140 


8145 


8150 


8159 


8153 


8184 


8189 


8194 


8199 


8204 


8209 


8214 


3219 


8229 


8234 


8239 


8244 


8290 


8291 


9350 


3356 


8370 


8 371 


837? 


9419 


8423 


3453 


8473 


8474 


8478 


8481 


8504 


8505 


9508 


8509 


8555 


8665 


8729 


8750 


8776 


377 7 


8839 
























101* 


1951 


1951 


1952 


1976 


1977 


1978 


2024 


2024 


2025 


2729 


2732 


2734 


2737 


2739 


2742 


2743 


2752 


2754 


2774 


3177 


31-78 


3195 


3283 


3284 


3291 


3453 


3459 


3460 


3472 


4345 


4346 


4354 


4530 


4534 


4548 


4549 


4551 


4568 


4580 


4581 


4593 


4609 


4629 


4631 


4533 


4534 


4635 


4639 


4646 


4650 


4652 


4661 


4653 


4655 


466* 


4667 


4575 


4582 


4684 


4722 


4953 


5280 


5281 


5289 


5447 


5448 


5455 


5470 


*47P 


6053 


5056 


6198 


6200 


6203 


6210 


5453 


6454 


6454 


6954 


6955 


6957 


7046 


7049 


7219 


7220 


7222 


7225 


7519 


7520 


7521 


7528 


7558 


7569 


7654 


7656 


7699 


8449 


8449 


8453 


8481 
























102* 


4547 


4549 


4552 


4557 


4568 


4570 


4579 


4591 


4584 


4*00 


4509 


4611 


4*30 


4631 


4650 


4662 


4663 


4682 


4738 


4739 


4742 


4751 


4768 


4770 


4781 


479' 


4796 


48C0 


4809 


4811 


4823 


4824 


4853 


4867 


4868 


4892 


4951 










103* 


250 


256 


326 


332 


345 


357 


366 


380 


383 


393 


399 


40* 


408 


430 


497 


500 


560 


567 


570 


580 


586 


592 


622 


630 


639 


649 


677 


683 


686 


693 


696 


706 


712 


718 


721 


738 


763 


765 


871 


1068 


1071 


1203 


4338 


4371 


4378 


4417 


5596 


5597 


5598 


5804 


5826 


5856 


5888 


5907 


5926 


6049 


6075 


6085 


f 146 


6163 


6223 


















104* 


1069 


1072 


1357 


1360 


1571 


1572 


1573 


1600 


1603 


1610 


1610 


1612 


2042 


2042 


2063 


2070 


2071 


6950 


7042 


8280 


8352 


8353 


8444 










105* 


194 


196 


197 


210 


330 


333 


334 


335 


338 


340 


381 


384 


396 


387 


388 


391 


397 


403 


472 


478 


484 


485 


490 


498 


503 


*29 


56" 


571 


573 


574 


575 


578 


584 


590 


597 


684 


694 


697 


699 


700 


701 


704 


710 


716 


761 


906 


921 


925 


952 


954 


1047 


1070 


1071 


1072 


1094 


1095 


1101 


1104 


1110 


1113 


1119 


1126 


1132 


11 33 


1134 


1148 


1150 


1163 


1164 


1168 


1169 


1170 


1172 


1175 


1176 


1177 


1179 


1180 


1192 


1197 


1213 


1406 


1419 


1564 


1675 


1684 


1597 


1693 


1697 


1706 


1707 


1710 


1725 


1728 


1730 


1734 


1817 


1835 


1840 


1842 


1847 


1849 


1857 


1859 


1893 


1996 


1899 


1901 


1953 


1958 


1082 


1999 


2043 


2152 


2158 


2167 


2413 


2414 


2419 


2421 


2461 


2471 


2473 


2479 


2480 


2484 


2486 


2494 


2496 


2572 


2577 


2579 


2582 


2535 


2587 


2590 


2593 


2595 


25°9 


2601 


260 3 


2616 


2531 


2639 


2657 


2658 


26*4 


2565 


2671 


2704 


2748 


2749 


275G 


2761 


2754 


2793 


2795 


2806 


2847 


2S53 


2878 


2971 


2972 


2973 


2976 


2984 


2986 


2989 


2990 


2992 


3000 


3002 


3013 


3015 


3038 


3039 


3048 


3055 


3065 


3057 


3075 


3083 


3117 


3129 


3137 


3147 


3162 


3163 


3173 


3175 


3176 


3180 


319 1 


3137 


31Q7 


3209 


3211 


3217 


3225 


3252 


3254 


3269 


3 270 


3231 


3282 


3286 


3237 


32°3 


3302 
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3306 


3307 


3308 


3311 


3312 


3313 


3326 


3329 


3330 


3331 


3 367 


3368 


3369 


337* 


3379 


3339 


3391 


3394 


3396 


3399 


3400 


3405 


3433 


3435 


3454 


3455 


3456 


3467 


3469 


3490 


3492 


3495 


3598 


3601 


3602 


3609 


3611 


3628 


3629 


3633 


3635 


3639 


3701 


3702 


3794 


3795 


3888 


3889 


3890 


3891 


3998 


4118 


4119 


4124 


4125 


412° 


4130 


4138 


4139 


4145 


4156 


4157 


4158 


4163 


4164 


4169 


4170 


4175 


4177 


4181 


4182 


4183 


4191 


4193 


4208 


4209 


4220 


4221 


4222 


4227 


4239 


4240 


4245 


42*3 


4254 


4255 


4260 


4279 


4284 


4314 


4316 


4329 


4335 


4336 


4343 


4344 


4348 


4349 


4350 


4356 


4369 


4370 


4380 


4381 


4387 


4403 


4404 


4405 


4413 


4415 


4450 


44*2 


4472 


4531 


4532 


4536 


4556 


4559 


4560 


4564 


4593 


4594 


4599 


4637 


4640 


4641 


4645 


4669 


4670 


4675 


4705 


4706 


4714 


4716 


4717 


4718 


4724 


4^30 


4746 


4748 


4749 


4750 


4756 


4763 


4778 


4779 


4789 


4790 


4796 


4819 


4820 


4831 


4833 


4834 


4835 


4841 


4848 


4853 


4864 


4874 


4875 


4881 


4919 


4961 


4963 


4984 


4936 


5038 


5039 


5042 


5056 


5063 


5064 


5073 


5075 


5076 


5085 


5092 


5094 


5099 


5119 


5132 


5144 


5146 


5151 


5158 


5160 


5163 


5164 


5179 


5180 


5185 


5187 


5192 


5194 


5195 


5199 


5200 


5201 


5202 


5203 


5218 


5219 


5220 


5221 


5224 


5225 


5239 


5240 


5241 


5242 


5243 


5249 


5251 


5262 


5264 


5265 


5257 


5269 


5270 


5275 


5277 


5278 


52-79 


5283 


5284 


5291 


5295 


5301 


5302 


5303 


5355 


5365 


5394 


5395 


5396 


5401 


^430 


5432 


5441 


5442 


5443 


5444 


5445 


5450 


5451 


5457 


5466 


5472 


5473 


5474 


5480 


5489 


549 3 


5494 


5513 


5515 


5542 


5555 


5601 


5607 


5608 


5609 


5624 


5642 


5643 


5644 


5656 


5558 


5662 


5663 


5665 


5674 


5675 


5677 


5682 


5683 


5685 


5692 


5693 


5706 


5707 


5709 


5713 


5714 


5716 


5721 


5722 


5733 


5734 


5736 


5742 


5749 


5751 


5754 


5756 


5766 


5768 


5769 


5783 


5784 


5788 


5789 


5793 


5795 


5797 


5802 


5806 


5810 


5812 


5315 


5816 


5822 


5830 


5836 


5838 


5844 


5858 


5864 


5856 


5874 


58R6 


5891 


5897 


5898 


5917 


5918 


5944 


5946 


5959 


5967 


5972 


5978 


5980 


5983 


5991 


6002 


6006 


6011 


6014 


6017 


6018 


6019 


6021 


60-24 


6026 


6032 


6041 


6047 


60 e ;4 


6058 


6060 


6062 


6065 


6071 


6085 


6102 


6109 


6125 


6128 


6137 


6149 


6158 


6161 


6171 


6173 


6174 


6177 


6189 


6190 


6192 


6212 


6214 


6227 


6237 


6239 


6245 


6247 


6262 


6265 


6266 


6269 


6274 


6277 


6280 


6282 


6285 


6287 


6300 


6302 


6309 


«310 


6313 


6329 


6344 


6345 


6354 


6357 


6 372 


6373 


5377 


6380 


6389 


6396 


6400 


6401 


6410 


6415 


6416 


6419 


6431 


6467 


6469 


6475 


6477 


6480 


6487 


6490 


6491 


6516 


6521 


6523 


6621 


6622 


6633 


6634 


6635 


6639 


6642 


6645 


6649 


6657 


6662 


6663 


6670 


6673 


6675 


6678 


6681 


6687 


6692 


6699 


6701 


6705 


6711 


6712 


6714 


6720 


6721 


6722 


6739 


6740 


6744 


6746 


6748 


6757 


6772 


6773 


6777 


6779 


6781 


679* 


5799 


6801 


6803 


6870 


6871 


6872 


6895 


6899 


6900 


6902 


6904 


6906 


6907 


5908 


6911 


5915 


6921 


6924 


6925 


5928 


6931 


6936 


6944 


6947 


6948 


6952 


6953 


596* 


6969 


6971 


6972 


6987 


6988 


6989 


5997 


6999 


7001 


7002 


7005 


7006 


7010 


7018 


7021 


7022 


7023 


7036 


7038 


7039 


7040 


7044 


7055 


7058 


7059 


7060 


7069 


7074 


7090 


7098 


7100 


7127 


7156 


7218 


7227 


7231 


7232 


7236 


7243 


7246 


7247 


7249 


7254 


7276 


7278 


7323 


7340 


7351 


7353 


7417 


7419 


7422 


7429 


7433 


7435 


7439 


7445 


7452 


7461 


7452 


7466 


7469 


7476 


7478 


7516 


7518 


7529 


7530 


7532 


7535 


7543 


7545 


7551 


7557 


7560 


7571 


7572 


7576 


7577 


7581 


7585 


7586 


7587 


7591 


7599 


7601 


7607 


7618 


7620 


7624 


7628 


7629 


7630 


7652 


7666 


76^4 


7676 


7682 


7688 


7691 


7745 


7747 


7752 


7753 


7758 


7770 


7783 


7789 


7790 


7793 


7794 


7799 


7803 


7804 


7805 


7807 


7817 


7887 


7891 


7901 


7913 


7925 


7926 


7931 


7935 


7936 


7937 


7939 


7950 


7952 


7988 


7996 


8005 


80C6 


8011 


8015 


8016 


8030 


8042 


8044 


8051 


8052 


8058 


8064 


8070 


8078 


8079 


8081 


8087 


8089 


8097 


e098 


8100 


8111 


8121 


8126 


8151 


8155 


8160 


8164 


8169 


8174 


8180 


8210 


8215 


P220 


8225 


8230 


8235 


8240 


8246 


8256 


8265 


8275 


8281 


8296 


8299 


8300 


8302 


8303 


8306 


8310 


8312 


&314 


8316 


8317 


8319 


8325 


8329 


8334 


3337 


8344 


8353 


8398 


8410 


8411 


8412 


6429 


8431 


8441 


8442 


8446 


8447 


8468 


8486 


8523 


8526 


8531 


S53R 


«550 


8551 


8569 


857U 


8575 


8577 


8582 


8584 


8586 


8594 


R597 


8603 


8605 


8627 


8628 


8656 


8657 


8703 


8704 


8707 


8708 


8711 


8712 


8715 


8716 


8719 


8720 


8742 


8743 



8746 8747 8746 8753 8759 8773 
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0000 000? 



106* 


195 


211 


214 


215 


217 


228 


229 


235 


240 


242 


243 


291 


293 


294 


295 


355 


364 


372 


413 


420 


436 


443 


451 


458 


453 


466 


459 


473 


539 


511 


513 


517 


519 


522 


524 


540 


547 


552 


558 


600 


604 


606 


520 


628 


637 


645 


655 


561 


667 


575 


681 


5 = 7 


688 


775 


79? 


805 


810 


814 


818 


831 


842 


845 


855 


866 


869 


874 


876 


877 


370 


887 


838 


911 


912 


918 


922 


923 


924 


924 


936 


949 


954 


055 


9 = 9 


965 


978 


980 


983 


991 


994 


1002 


1005 


1009 


1014 


1017 


1026 


1077 


1030 


1031 


1035 


1036 


1040 


1041 


1046 


1043 


1052 


1053 


1066 


1067 


1068 


1069 


10»2 


1085 


1036 


1123 


1143 


1151 


1159 


1160 


1161 


1152 


1171 


1178 


1108 


1199 


1201 


1205 


1259 


1266 


1359 


1370 


1375 


1377 


1382 


1383 


1384 


1385 


1387 


1388 


1389 


1390 


1391 


1403 


1404 


1406 


1414 


1418 


1420 


1424 


1427 


1428 


1429 


1430 


1441 


1455 


1457 


1471 


1478 


1492 


1494 


1495 


1497 


1500 


1503 


1504 


1505 


1511 


15 1« 


1548 


1549 


1555 


1=56 


1557 


1559 


1560 


1561 


1552 


1563 


1564 


1565 


1638 


166° 


1669 


1578 


1679 


1532 


1683 


1685 


1688 


1689 


1591 


1693 


1695 


1697 


1698 


169R 


1702 


1703 


1704 


1709 


1711 


1721 


1722 


1725 


1725 


1728 


1730 


1731 


1732 


1734 


1735 


1763 


1771 


1779 


1836 


1843 


1850 


1884 


1835 


1892 


1895 


1898 


1902 


19QQ 


1954 


1981 


1983 


1997 


1998 


2028 


2034 


2159 


2163 


2164 


2182 


21B3 


2202 


2203 


2405 


2415 


2445 


2453 


2469 


2470 


2485 


2488 


2495 


2514 


2518 


2519 


2 = 20 


2569 


2578 


2586 


2594 


2502 


2613 


2614 


2524 


2637 


2638 


2642 


2665 


2702 


2726 


2741 


2760 


2794 


2799 


2803 


2822 


2830 


2838 


2842 


2863 


2865 


2869 


2873 


2876 


2910 


2912 


2952 


2968 


2985 


3001 


3014 


3026 


3035 


3053 


3066 


3092 


3105 


310" 7 


3111 


3115 


3120 


3124 


3127 


3145 


3159 


3164 


3165 


3174 


3188 


3190 


3194 


3196 


3199 


3200 


3201 


3202 


3205 


3208 


3210 


3218 


3220 


3224 


3227 


3229 


3230 


3231 


3232 


3235 


3253 


3256 


3257 


3256 


3279 


3280 


3294 


3300 


3303 


3305 


3310 


3319 


3320 


3324 


3325 


3328 


3332 


3341 


3363 


3366 


3380 


3383 


3390 


3395 


3425 


3434 


3441 


3456 


3484 


3491 


3501 


3502 


3503 


3504 


3507 


3509 


3513 


3 = 88 


3589 


3595 


3510 


3618 


3634 


3698 


3791 


3884 


3887 


3954 


3966 


3969 


3973 


3976 


3988 


3992 


3996 


4000 


4004 


4095 


4096 


4110 


4113 


4114 


4151 


4176 


4139 


4192 


4205 


4210 


4214 


4219 


4228 


4230 


4231 


4232 


4233 


4236 


4238 


4252 


4261 


4263 


4265 


4266 


4267 


4269 


4277 


4278 


4285 


4287 


4288 


4289 


4290 


4315 


4323 


4328 


4332 


4337 


4340 


4342 


4357 


4359 


4360 


4361 


4362 


4365 


4376 


4377 


4388 


4390 


4391 


4392 


4393 


4396 


4400 


4409 


4414 


4444 


4451 


4455 


4461 


4465 


4512 


4513 


4522 


4525 


4529 


4537 


4540 


4546 


4565 


4 57 5 


4578 


4501 


4604 


4607 


4618 


4621 


4647 


4657 


4660 


4677 


4681 


4692 


4698 


4701 


4704 


4707 


4715 


4725 


4727 


4728 


4729 


473* 


ft-»!|-> 


4757 


4760 


4761 


4762 


4775 


4780 


4788 


4797 


4801 


4802 


4803 


4804 


4807 


4816 


4821 


4832 


4842 


4845 


4846 


. 4847 


4860 


4865 


4873 


4882 


4885 


48«6 


4837 


4838 


4891 


4920 


4934 


4936 


4955 


4960 


4962 


4976 


4983 


4985 


4989 


4993 


5030 


5031 


5035 


5040 


5041 


5052 


5055 


5059 


5062 


5067 


5068 


5069 


5074 


5093 


5098 


= 100 


5104 


5108 


5111 


5114 


5117 


5145 


5159 


5183 


5186 


5193 


5222 


5223 


5250 


5258 


5271 


5276 


5285 


5292 


5294 


5298 


5299 


5300 


5306 


5310 


5355 


5356 


536? 


5367 


5368 


5383 


5384 


53 92 


5431 


5440 


5446 


5458 


5460 


5461 


5452 


5463 


5471 


5481 


= 483 


54 84 


5485 


5486 


5514 


5543 


5545 


5549 


55"7 


= 588 


"90 


5593 


5595 


5*14 


5620 


5631 


5648 


5664 


5671 


5694 


5703 


5723 


5727 


5737 


5755 


5762 


5773 


5780 


5785 


5828 


5850 


5859 


5879 


5909 


5924 


5945 


5960 


5973 


5979 


5999 


6003 


6025 


6030 


6035 


6039 


6077 


6089 


6103 


6111 


6120 


5129 


6150 


6191 


6213 


6223 


62 4« 


6259 


5267 


6279 


6293 


6297 


6301 


6? 15 


6 320 


6333 


6334 


6335 


6346 


6360 


5369 


6378 


6395 


6402 


6417 


6423 


6435 


6436 


6437 


5440 


6468 


6478 


6512 


6517 


6524 


5528 


6612 


6613 


6617 


6623 


6624 


6625 


6632 


6543 


6652 


6653 


6654 


6659 


6664 


6669 


6679 


6690 


6691 


6700 


6713 


6719 


6734 


57 37 


6767 


6 770 


6790 


6793 


6811 


6815 


6850 


6852 


6856 


6G57 


6868 


6879 


6883 


6896 


6901 


6913 


6946 


696 = 


6973 


5998 


7008 


7045 


7099 


7107 


7111 


7113 


7119 


7128 


7172 


7174 


7183 


7187 


7207 


7208 


7214 


7217 


7224 


7239 


7244 


7245 


7271 


7277 


7281 


7284 


7307 


7310 


7312 


7317 


7320 


7322 


7327 


7332 


7336 


7341 


7345 


735? 


7 37? 


7?75 


7379 


7409 


7413 
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R15SAVE 
R2 



0000 894C 
0000 0002 



R3 



0000 0003 



7U15 


7424 


7426 


7434 


7446 


7450 


7455 


7459 


7477 


7481 


7485 


7563 


7582 


7534 


7617 


7625 


7627 


7642 


7643 


7662 


7735 


7736 


7786 


7787 


7800 


7802 


7823 


7824 


7825 


7867 


7868 


7884 


7909 


7923 


7924 


7932 


7934 


7947 


7958 


7992 


7995 


7999 


8047 


8030 


8088 


8099 


8305 


6311 


8322 


8323 


8324 


8331 


8338 


8341 


8342 


3343 


8354 


8375 


8403 


8414 


8416 


8421 


8422 


8426 


8430 


8450 


8452 


8451 


8465 


8470 


8476 


8480 


8483 


8485 


8510 


8512 


8525 


3528 


8532 


8536 


8537 


8549 


8553 


8557 


8559 


8571 


8583 


8537 


8500 


8601 


8602 


8604 


3634 


P64C 


8649 


8662 


8664 


8«6«> 


8669 


8672 


8673 


8681 


8589 


8695 


8702 


8706 


8710 


8714 


8718 


8722 


8724 


"730 


8732 


8757 


8751 


8774 


8782 


8787 


8790 


8793 


8798 


8799 


8799 


8802 


8804 


8805 


8807 


8807 


8818 


8827 


8830 


8831 


8832 


8834 


8839 


8841 


8843 


8846 


8847 




681 


687 


5978 


5980 


8994* 




















93* 


230 


231 


232 


441 


444 


459 


481 


486 


457 


508 


539 


Rgg 


«03 


733 


735 


745 


746 


767 


770 


776 


781 


732 


785 


804 


809 


813 


817 


830 


841 


910 


932 


933 


934 


986 


990 


993 


1122 


1141 


1158 


1170 


122" 


1282 


1283 


1287 


1302 


1303 


1327 


1328 


1349 


1352 


1355 


1356 


1357 


1358 


13«0 


1361 


1366 


1367 


1368 


1410 


1411 


1412 


1416 


1518 


1523 


1*20 


1625 


1627 


1629 


1630 


1634 


1635 


1636 


1646 


1647 


1648 


1649 


1656 


1656 


1657 


1659 


1747 


1748 


1915 


1916 


1918 


1920 


1956 


1959 


1969 


2110 


2181 


2200 


2412 


2418 


2419 


2458 


2503 


2504 


2504 


2507 


2612 


2627 


2628 


2635 


2636 


2776 


2779 


2784 


2868 


2872 


2875 


2909 


3110 


3114 


3119 


3123 


3126 


3142 


3150 


3192 


3193 


3222 


3223 


3298 


3299 


3322 


3323 


3414 


3415 


3420 


3474 


3476 


3481 


3991 


3995 


4264 


4294 


4298 


4303 


4326 


4432 


4435 


4439 


4695 


4942 


4944 


4948 


5103 


5107 


5110 


5113 


5116 


5411 


5413 


5415 


5421 


5526 


*532 


5533 


5534 


5884 


5914 


6034 


6038 


6139 


61 SO 


6196 


6199 


6204 


6263 


6295 


6296 


6318 


6319 


6331 


6356 


6391 


6412 


6421 


S422 


6433 


6445 


6452 


6457 


6489 


6508 


6509 


6620 


6651 


6689 


6923 


6938 


7020 


7057 


7079 


7080 


7081 


7086 


7089 


7104 


7171 


7176 


7258 


7250 


7265 


7316 


7319 


7357 


7360 


7365 


7515 


7631 


7634 


7639 


7780 


7921 


7994 


8001 


8017 


8018 


8020 


3022 


8024 


8026 


8109 


8154 


8168 


8173 


8179 


8224 


8250 


8251 


8254 


8255 


8260 


3261 


8262 


8263 


8264 


8269 


8270 


8273 


8274 


8279 


8280 


8297 


8301 


8351 


8367 


8363 


8372 


8389 


8420 


8425 


8464 


8475 


8479 


8482 


8506 


8507 


8508 


8556 


8701 


"705 


8709 


8713 


8717 


8721 


8340 




















94* 


253 


257 


259 


284 


287 


444 


445 


446 


449 


504 


534 


539 


541 


734 


735 


736 


737 


740 


777 


731 


790 


797 


799 


801 


803 


808 


812 


816 


821 


823 


825 


827 


839 


846 


847 


907 


1190 


1191 


1193 


1210 


1211 


1212 


1229 


1295 


1296 


1297 


1299 


1304 


1313 


1314 


1315 


1317 


1329 


1344 


1346 


1350 


1583 


1621 


1622 


1625 


1642 


1643 


1644 


1645 


1557 


1658 


1659 


1662 


1916 


1927 


1957 


2423 


2425 


2429 


2432 


2434 


2438 


2443 


2446 


2454 


2462 


2464 


2475 


2481 


2439 


2498 


2505 


2505 


2507 


2508 


2573 


2574 


2632 


2659 


2674 


2675 


2676 


2681 


2682 


2683 


2688 


2689 


2690 


269 6 


2697 


2698 


2709 


2710 


2711 


2716 


2717 


2718 


2765 


2777 


2779 


2978 


2979 


2993 


2995 


3005 


3006 


3008 


3060 


3061 


308° 


30 90 


3203 


3233 


3239 


3240 


3241 


3244 


3245 


3250 


3295 


3296 


3334 


3335 


3336 


3338 


3339 


3345 


3347 


3370 


3375 


3381 


3384 


3405 


3408 


3409 


3415 


3417 


3430 


3497 


3498 


3599 


3604 


3630 


3637 


3640 


3703 


3796 


3981 


3982 


4103 


4131 


414* 


4165 


4171 


4172 


4134 


4211 


4234 


4241 


4246 


4273 


4274 


4275 


4276 


4292 


4299 


4302 


4304 


4312 


4363 


4394 


4406 


4433 


4441 


4515 


4552 


4553 


4554 


4566 


4536 


4587 


4602 


4648 


4678 


4731 


4764 


4766 


4805 


4849 


4851 


4889 


4969 


4971 


497? 


4974 


4980 


5043 


5065 


5077 


5078 


5080 


5086 


5121 


5122 


5124 


5126 


5128 


5147 


5152 


5167 


5168 


5169 


5181 


5182 


5204 


5206 


5203 


5226 


5228 


5230 


5244 


525^ 


5296 


5369 


5415 


5416 


542? 


5464 


5487 


5501 


5502 


5509 


5535 


5536 


s^ -7 


5539 


5600 


5601 


5610 


£611 


5636 


5637 


5545 


5646 


5554 


5655 


5657 


56«1 


5652 


56"6 


5677 


5678 


5679 


5684 


5691 


5692 


5708 


5709 


5711 


5712 


5715 


5720 


5721 


. 5730 


5731 


5732 


5733 


5741 


5742 


5747 


5748 


5750 


5751 


5765 


5766 


5787 


578« 


5790 


5791 


57S4 


5796 


5797 


5801 


5802 


5803 


5804 


5814 


5E21 


5822 


5825 


5825 


5 3 29 
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0000 0004 



5830 


5335 


5836 


5839 


5841 


5843 


5844 


5853 


5854 


5855 


5856 


5S«3 


5861 


*867 


5869 


5870 


5885 


5986 


5887 


5888 


5890 


5896 


5897 


589? 


5906 


5907 


5916 


591"? 


5919 


5925 


5926 


5953 


5954 


5965 


5967 


5969 


5970 


5931 


5990 


5991 


5013 


6014 


6015 


6016 


5020 


5 046 


6047 


6048 


6049 


5064 


6070 


6071 


6074 


6075 


6084 


60S5 


5087 


6068 


6090 


6 9 9 


6100 


6108 


6109 


61 12 


5123 


6124 


6136 


gi^i 


614* 


6146 


6157 


6158 


6162 


6163 


6164 


6165 


6176 


6185 


6188 


61S9 


6193 


6199 


6201 


6208 


6222 


6223 


6224 


6225 


6236 


6237 


6240 


6268 


5269 


6275 


6276 


6283 


6284 


628S 


6289 


6308 


6309 


5311 


6312 


6328 


6329 


6336 


6341 


6342 


6353 


6354 


6358 


6361 


5374 


6375 


6379 


5380 


638S 


6389 


5397 


5398 


5409 


«U10 


6413 


6414 


6"13 


6419 


5030 


6431 


6438 


5452 


6454 


6463 


6473 


6474 


6479 


5480 


6486 


6487 


6492 


6510 


6511 


6515 


6516 


6522 


6523 


6636 


6637 


6638 


5639 


6644 


6645 


6648 


6649 


665* 


6665 


5666 


6667 


6668 


6671 


6672 


6674 


6675 


6680 


6681 


5686 


6687 


6693 


6695 


6696 


6707 


6708 


6724 


6725 


6727 


6749 


6751 


6752 


6759 


6750 


6733 


6734 


680* 


6806 


6876 


6880 


6885 


6886 


6887 


6888 


6889 


6890 


6891 


6892 


6893 


6894 


6903 


6901 


6909 


6910 


6914 


6915 


6920 


6921 


6929 


6930 


6935 


6936 


6943 


6944 


6949 


6949 


5950 


6951 


6970 


6971 


6980 


6981 


6982 


6983 


6984 


6985 


6990 


7009 


7010 


7017 


7018 


7026 


7027 


7028 


7029 


7030 


7035 


7036 


7041 


7041 


7042 


7043 


"'054 


7055 


7081 


7083 


7092 


7110 


7116 


7123 


7131 


7132 


7142 


7144 


7146 


7147 


7150 


7155 


7155 


7158 


7159 


7164 


7165 


7166 


7250 


7262 


7274 


7285 


7287 


7292 


729* 


7297 


7298 


7299 


7342 


7343 


7360 


7362 


7418 


7419 


7425 


7427 


7439 


7451 


■7453 


7456 


7463 


7470 


7536 


7541 


7552 


7573 


7574 


7575 


7592 


7597 


7608 


7632 


7634 


7667 


7672 


7683 


7763 


7764 


7812 


7906 


7944 


7989 


7997 


8007 


8013 


8045 


8056 


8057 


8062 


8063 


8068 


8069 


8075 


8076 


8077 


8095 


8096 


6109 


8110 


8239 


3244 


8245 


8279 


8295 


8296 


8307 


8320 


8326 


8335 


8359 


8370 


8390 


8391 


8392 


8394 


8399 


8400 


8413 


8443 


8443 


8444 


8445 


8524 


8527 


8552 


8*70 


8572 


8595 


8598 


8615 


8621 


8622 


8629 


8630 


8658 


8659 


8677 


8673 


8685 


8754 


8756 


8760 




95* 


239 


241 


257 


264 


273 


280 


282 


292 


323 


325 


341 


343 


37° 


389 


395 


401 


407 


446 


448 


453 


454 


45* 


457 


496 


537 


*43 


511 


566 


576 


582 


588 


682 


685 


692 


702 


708 


714 


720 


759 


778 


779 


788 


789 


806 


807 


811 


815 


856 


8 57 


859 


982 


983 


984 


1190 


1194 


1196 


1199 


1278 


1281 


1282 


1286 


1287 


1298 


1299 


1300 


1301 


1301 


1302 


1316 


1321 


1322 


1324 


1326 


1326 


1327 


1354 


1355 


1365 


1365 


1387 


1450 


1452 


14*4 


1456 


1458 


1459 


1462 


1463 


1464 


1470 


1472 


1482 


1484 


1485 


1488 


1493 


149* 


1498 


1541 


1561 


1574 


1575 


1577 


1585 


1586 


1587 


1589 


1590 


1592 


1594 


1596 


1598 


1603 


1504 


1608 


1551 


1652 


1653 


1654 


1654 


1660 


1660 


1790 


1918 


1920 


1929 


2420 


2695 


2700 


27.0 3 


2744 


2746 


2747 


2751 


2954 


2956 


2959 


2960 


2975 


3005 


3020 


3023 


3040 


3049 


3166 


3168 


3171 


3172 


3271 


3273 


3276 


3277 


335* 


3358 


3361 


3362 


3370 


3415 


3444 


3446 


3449 


3450 


3457 


3476 


3498 


3500 


3644 


3645 


3650 


3651 


3656 


3657 


3661 


3662 


3666 


3667 


3671 


3672 


3676 


367^ 


3681 


3682 


3687 


3688 


3705 


3706 


3714 


3715 


3723 


3724 


3732 


3733 


3741 


3742 


3750 


3751 


3759 


3760 


3768 


3769 


3777 


3778 


3798 


3799 


3807 


3808 


3816 


3817 


3825 


3826 


3834 


3835 


3843 


3844 


3852 


3853 


3861 


3862 


3870 


3371 


3894 


3895 


3899 


3900 


3904 


3905 


3909 


3910 


3914 


3915 


3919 


3920 


3927 


3928 


3932 


3933 


3937 


3938 


3945 


3946 


4115 


4126 


4152 


4195 


4218 


4251 


4293 


4298 


4339 


4398 


443* 


4528 


4533 


4541 


4543 


4545 


4561 


4622 


4624 


4626 


4638 


4642 


4710 


4711 


4712 


4737 


4739 


4741 


4754 


4768 


4782 


4783 


4785 


4809 


4822 


4824 


482* 


4827 


4833 


4853 


4355 


4866 


4868 


4870 


1871 


4879 


4884 


4892 


4894 


4944 


5051 


5054 


50*"? 


5060 


5261 


5263 


5266 


5268 


5376 


5377 


5379 


5380 


5405 


5415 


5612 


5681 


592" 


5929 


5993 


5995 


5996 


6055 


6063 


6140 


6197 


6199 


6271 


6444 


6452 


6626 


662« 


6629 


6630 


5741 


6747 


6774 


6795 


7047 


7048 


7057 


7072 


7081 


7133 


7134 


7135 


7137 


7138 


7139 


7145 


7149 


7150 


7151 


7157 


7159 


7161 


7209 


7211 


721? 


"■233 


7259 


7260 


7358 


7360 


7522 


7524 


7525 


7557 


7653 


7737 


7739 


7740 


7754 


7781 


7869 


7871 


7872 


8004 


8029 


8392 


°750 
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0000 0005 



R5BI.1 
R6 



0000 1650 
0000 0006 



96* 


254 


255 


255 


258 


261 


263 


264 


257 


267 


269 


273 


275 


275 


277 


284 


285 


442 


ueo 


461 


482 


483 


488 


510 


516 


518 


=;21 


523 


525 


530 


531 


535 


538 


542 


546 


605 


753 


792 


1142 


1149 


1173 


1174 


1177 


1279 


1317 


1318 


1320 


1344 


1346 


1397 


1419 


1429 


1434 


1464 


1470 


1474 


1475 


1477 


1501 


1606 


1966 


1967 


1971 


1973 


1975 


1978 


2430 


2439 


2444 


2452 


2483 


2491 


2500 


2502 


2505 


2508 


2509 


2510 


2576 


2584 


2*92 


2600 


2661 


267R 


2685 


2692 


2706 


2713 


2720 


2735 


2740 


2743 


2754 


2758 


2769 


27R5 


2792 


2864 


2983 


2999 


3012 


3062 


3064 


5091 


3093 


3106 


3144 


3182 


3212 


3238 


3245 


3251 


3288 


3301 


3313 


3346 


3386 


3410 


3416 


3417 


3429 


3431 


3451 


3452 


3453 


3460 


3464 


3482 


3489 


3608 


3632 


3642 


3647 


3653 


3659 


3664 


3669 


3674 


3679 


3684 


3690 


3710 


3712 


3719 


3721 


3728 


3730 


3737 


3739 


3746 


3748 


3755 


3757 


3764 


3766 


3773 


3775 


3782 


3784 


3803 


3805 


3812 


3814 


3821 


3923 


3830 


3832 


38 39 


3841 


3848 


3850 


3857 


3859 


3866 


3868 


3875 


3877 


3897 


3902 


3907 


3912 


3917 


3922 


3930 


3935 


3940 


3948 


3953 


3956 


3965 


3968 


3972 


3984 


4116 


4143 


417ft 


4188 


4190 


4223 


4256 


4270 


4271 


4272 


4272 


4275 


4280 


4295 


4296 


4297 


4297 


4298 


4300 


4304 


4310 


4313 


4351 


4382 


4399 


4408 


4410 


4430 


4434 


4438 


4449 


4606 


4680 


4697 


4719 


4758 


4791 


4798 


4836 


4843 


4876 


5050 


5053 


5058 


5061 


5088 


5090 


5139 


5154 


5156 


5165 


5166 


5169 


5184 


5205 


5206 


5209 


5210 


522'' 


5228 


5231 


5233 


5246 


5257 


5286 


5381 


5382 


5387 


5388 


5389 


5390 


5391 


540R 


5409 


5424 


5425 


5427 


5452 


5475 


5495 


5512 


5529 


5530 


5533 


5539 


5605 


5606 


5613 


5623 


5634 


5635 


5647 


5653 


5660 


5680 


5686 


5710 


5717 


5738 


5753 


575-7 


5771 


5792 


5798 


5817 


5823 


5831 


5860 


5872 


5880 


5892 


5902 


5903 


5910 


5933 


5943 


5961 


5974 


6012 


6023 


6061 


6066 


6072 


6078 


6104 


6130 


6147 


6151 


6169 


6178 


5195 


6205 


6211 


6229 


6242 


6291 


6299 


6322 


6332 


6347 


6381 


6403 


6424 


6434 


6446 


6447 


6449 


6450 


6458 


6466 


6481 


6494 


6641 


6677 


6697 


6710 


6728 


6738 


5742 


6753 


6762 


6771 


6775 


6786 


6794 


6797 


6808 


6867 


6877 


6881 


691* 


6945 


6976 


6977 


6978 


6979 


6996 


7011 


7037 


7050 


7065 


7082 


7085 


7095 


7096 


7097 


7106 


7112 


7118 


7125 


7136 


7139 


7173 


7223 


7225 


7226 


7228 


7229 


7234 


7242 


7252 


7256 


7266 


7269 


7300 


7301 


7302 


7306 


7308 


7326 


7328 


7331 


7333 


7335 


7337 


7350 


7356 


7366 


7369 


7423 


7430 


7441 


7449 


7458 


7475 


7521 


7574 


7615 


7640 


7656 


7660 


7748 


7749 


7750 


7755 


7785 


7791 


7880 


7881 


7882 


7886 


7991 


8084 


8103 


8309 


8328 


8330 


8340 


8417 


8423 


8458 


8460 


8467 


8469 


8533 


8558 


8581 


8633 


8635 


8639 


6641 


3648 


8650 


8661 


8663 


8671 


8680 


8682 


868P 


8690 
1274* 
97* 


8694 


8696 


8744 


8751 


8781 


8789 


8791 


8817 


8842 










252 


266 


290 


291 


294 


331 


335 


336 


353 


356 


358 


359 


362 


365 


367 


370 


373 


374 


377 


382 


385 


392 


394 


398 


400 


404 


406 


411 


414 


417 


421 


425 


429 


433 


470 


474 


474 


476 


479 


493 


494 


499 


501 


502 


550 


553 


556 


559 


561 


564 


569 


572 


579 


581 


585 


587 


591 


593 


594 


595 


607 


608 


610 


612 


614 


618 


621 


623 


626 


629 


631 


632 


535 


638 


640 


643 


646 


648 


650 


653 


656 


659 


6*2 


665 


568 


669 


669 


670 


673 


676 


678 


690 


695 


698 


705 


707 


■711 


713 


717 


719 


734 


748 


749 


750 


751 


751 


762 


764 


764 


766 


905 


1186 


1204 


1205 


1212 


1630 


1631 


1632 


1632 


1967 


1969 


1973 


1983 


2016 


2021 


2022 


2023 


2030 


2031 


2033 


2094 


2099 


2104 


2109 


2115 


2129 


2137 


2153 


21 c 4 


2155 


2165 


2166 


2168 


2779 


2781 


2789 


2991 


3006 


3009 


3044 


3046 


3050 


3054 


3057 


3073 


3075 


3078 


3082 


3085 


3335 


3336 


3344 


3371 


3372 


3373 


3377 


3398 


3401 


3402 


3403 


3413 


3416 


3419 


3423 


3428 


3476 


3478 


34S6 


3950 


3951 


3959 


3960 


3962 


3963 


4117 


4136 


4153 


4179 


4215 


4216 


4217 


4217 


42«8 


4249 


42*0 


4250 


4299 


4300 


4311 


4341 


4367 


4379 


4401 


4431 


4440 


4411 1 


4446 


4713 


4905 


4906 


4907 


4909 


4311 


4914 


4915 


4916 


4943 


4945 


4957 


4 97C 


4972 


4981 


5048 


5049 


5050 


5053 


5058 


5061 


5385 


5386 


5390 


5397 


5398 


5407 


5414 


5418 


5420 


5425 


5426 


5495 


5497 


5501 


5505 


5805 


5808 


5371 


5889 


59C1 


c 9?9 


5931 


5940 
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R7 



0000 O0G7 



R8 



R9 



SDBACK 
RDBU p 

RDDATA 

READ 

READ30F 



RFRIIF 

REC.1 

RFC.CSD 

REC.DSF 

3EC1 

REC2 

EEC3 

5FC5 

RECFI.i1 

HECFL32 

RECS'JM 

RECORDS 

RECO'lT 
RECSAV 

REDE 



0000 0003 



0000 0009 



0000 83DC 
0000 84DC 

0000 28A6 

0000 83CF 

0001 89D0 



0000 7D2A 
0000 100A 
0000 1006 
0000 1000 
0000 51R2 
0000 51B6 
0000 MBA 
0000 51BE 
0000 8410 
0000 8412 
0000 513E 
0000 20"0 

0000 51AC 
0000 8406 
0000 7C P 2 



6005 
6974 
7534 
8001 

98* 
3275 
4159 
4671 
4970 
5930 
6S78 
7264 
7361 
8396 

99* 
2790 
3421 
4591 
5510 
6394 
7745 

100* 
1925 
3249 
4787 
6201 
7093 
7661 
5554 
2757 
8366 
2598 
8120 

446 
4273 
5930 
7658 
3209 

654 

315 

315 
5123 
5125 
5127 
5129 
5109 
5084 
5099 

656 
7922 
5131* 
6862 
3629 



5033 
5475 
7636 
8001 
526 
3360 
4150 
4672 
4975 
5933 
*382 
"'273 
7364 

322 
3021 
3422 
4597 
5930 
6471 
7757 
321 
1927 
3462 
4827 
6 20 9 
7161 
7539 
8375* 
3453 
8456 
2852* 
8862* 

436 
4299 
6166 
7689 
3311 
656* 
555* 
653* 
5133* 
5135* 
5137* 
5139* 
5131 
5105 
5171* 
2328* 

5134 
6856 
3639 



6142 
7024 
7783 
8003 
532 
3448 
4161 
4S08 
4977 
5 9 35 
6986 
7236 
7556 

328 
3022 
3423 
4639 
5931 
7056 
7782 

327 
1929 
3463 
4828 
6451 
7153 
7695 
8876 
4274 
8505 



2756 

4430 
6200 
7878 
4278 



8903* 
5213 

4117 

5136 
5875 
3702 



5 217 
7094 
7784 
8009 
1343 
3475 
4434 
4909 
4982 
5942 
6992 
7287 
7567 

340 
3023 
3432 
4643 
5941 
7070 
7814 

338 
1930 
3464 
4829 
6453 
7166 
7697 

4931 
8935* 



2762 
4587 
6453 
7889 
4330 



5235 

4153 

5138 
6974 
3795 



6631 
7095 
7735 
S385 
1367 
3477 
443f 
4910 
5389 
6004 
7068 
7238 
7568 

347 
3047 
3477 
4667 
6007 
7075 
7885 

346 
1931 
3465 
4871 
6456 
7168 



5386 



2780 
4595 
6665. 
8504 
4789 



8904* 

4341 

5141 
7066 
3891 



6862 
7137 
7797 
6385 
1373 
3480 
4447 
4912 
5399 
6114 
7073 
7269 
7633 

739 
3077 
3473 
4673 
6008 
7160 
7910 
1578 
2756 
3468 
4872 
6465 
7170 



6666 



3241 

4671 

6975 

9000" 

4874 



6863 
7141 
7878 
8396 
2778 
3482 
4585 
4917 
5414 
6141 
7087 
7291 
7635 

742 
3240 
3487 
4944 
6009 
7162 
7922 
1579 
2757 
3470 
4912 
6858 
7228 



6977 



3336 
4930 
7065 

5473 



5855 
7145 
7879 
8400 
2780 
3488 
4587 
4941 
5416 
6251 
7123 
7292 
7638 

899 
3242 
4435 
4945 

6012 
7261 
7948 
1581 
2758 
3471 
4915 
6859 
7242 



7028 



3347 
4943 
7094 

6396 



5856 
7149 
7882 
8401 
2783 
3505 
4588 
4943 
5429 
6270 
"7124 
7293 
7640 

900 
3248 
4436 
4958 
6143 
7262 

1582 
2759 
4154 
4932 
6860 
7256 



7614 



3401 
4970 
7133 

6670 



6869 
724? 
78 8 3 
8522 
2785 
4120 
4589 
4947 
5498 
6278 
7143 
7294 
7886 

901 
3235 
4448 
5406 
6144 
7275 

1583 
2762 
4161 
4975 
6910 
7300 



7659 



3416 
5385 
7158 

7005 



6873 
7250 
7889 
8529 
2791 
4121 
4592 
4951 
5499 
6281 
7144 
7304 
7898 

904 
3339 
4557 
5418 
6147 
7361 

1585 
2772 
4742 
6166 
6930 
7356 



7879 



3462 
5407 
7248 

7618 



6375 
T251 

78 Q 6 



2958 
4122 
4595 
4953 
5504 
6364 
7146 
7304 
8 393 

907 
3347 
4558 
5499 
6195 
7362 

1786 
2773 
4743 
61«7 

6981 
7658 



8269 



3468 
5424 
7261 

7925 



6926 
7564 
7897 



3027 
4127 
469* 
4959 
5511 
6392 
7257 
7318 
8394 

2780 
3397 
4562 
5*00 
6272 
7635 

1921 
3241 
4744 
6168 
7082 
7659 



8270 



3477 
5499 
7513 

8269* 



693° 
755 I: . 
8000 



3170 
4156 
4668 
496" 
5°27 
6500 
7261 
7359 
8395 

^781 
34 3 
4584 
^502 
6339 
7636 

1924 
3242 
4786 
6200 
7083 
7660 



8271 



41*Q 
5871 
763"= 



4379 



7165 
4170 



6005 



7168 
5180 



6142 



8898* 
8244* 



627? 



8561 



6394 



8628 



7164 



8657 



7745 



8704 



7782 



8708 



7806 



0712 
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REEN3 3000 7D44 
REGS 0000 8450 
REGSAVE 0000 8490 



RESTORE 

REST3RE1 

RET0P3W 

RET0PSW1 

REWIND 
REwST 



RITEDATA 
RSAVE 



0000 7E08 

0000 7E10 
0000 1CF8 
0000 1CF8 
0000 83CD 
0000 80D2 



0000 289E 
0000 8950 



RSTORS 


0000 


84FE 


RUN 


0000 


2136 


RW.1 


0000 


8058 


RW.2A 


0000 


80E6 


EW.3 


0000 


80EE 


BW.33 


0000 


810C 


RWTMO'JT 


0000 


8064 


SAVE 15 


0000 


84D0 


SCHK1 


0000 


620E 


SDAT. 1 


0000 


6212 


SDAT.ERR 


0000 


6234 


SEL.1 


0000 


7E5A 


SEL.2 


0000 


6FDC 


SEI.3 


ooco 


7E44 


SEL.31 


0000 


7E48 


SEL.5 


0000 


6FB8 


SEL.S 


0000 


6FCA 


SELADH 


0000 


6FA4 


SELC. 1 


0000 


101C 


SELC.CSD 


0000 


1018 


SELC.DEF 


0000 


1012 


SELCH 


0000 


20FE 


SELCHK 


0000 


7E78 


SELEND 


0000 


7F02 



SELE^D.1 0000 7F24 

SELEa.R. 1 0003 7F4A 

SELERRA 0000 7F42 

SELERRAA 0000 7F46 



8716 


3720 


























6948 


7040 


8279* 


8442 






















8365 


8374 


8929* 
























2906 


2911 


4429 


4443 


4904 


4918 


4929 


4935 


5527 


5541 


8334 


8388 


8402 


R503 


8511 


8727 


8731 


8930* 






















3199 


3229 


3305 


3328 


4230 


4263 


4287 


4359 


4390 


4727 


4760 


4801 


4845 


4885 


5294 


5450 


5483 


7584 


7627 


7802 


7934 


8350* 














3165 


3279 


4214 


4340 


4707 


5285 


5446 


7563 


7787 


7924 


8352* 








1932 


2005* 


2232 


8302 






















2011* 




























8163 


8860* 


























473 


2488 


2702 


3164 


3205 


3210 


3235 


3257 


3366 


3383 


3887 


4113 


4151 


4210 


4236 


4238 


4269 


4337 


4365 


4376 


4396 


4525 


4540 


4578 


4604 


4621 


4660 


4704 


4736 


4780 


4821 


4855 


5040 


5067 


5069 


514? 


5193 


5298 


5367 


5785 


6003 


6267 


6440 


6623 


6664 


6901 


7217 


7245 


7284 


7823 


7868 


7999 


8015 


8323 


8561* 




2590 


2846* 


























730 


1226 


1258 


1265 


1274 


1294 


1312 


1396 


1433 


1438 


1570 


1795 


4264 


5743 


5767 


5837 


5865 


5833 


5884 


5913 


5914 


5968 


6086 


6110 


6138 


6139 


6159 


6160 


6238 


5330 


6331 


6355 


6356 


6390 


6391 


6411 


6412 


6432 


6433 


6443 


6460 


648« 


6489 


6650 


6651 


6588 


6689 


6922 


6923 


6937 


6938 


•7019 


7020 


7056 


7057 


7079 


7089 


8995* 


























2790 


3009 


3125 


3249 


3431 


3432 


3487 


4311 


4447 


4958 


4981 


5080 


5115 


5121 


5168 


5208 


5230 


5429 


5510 


5941 


6209 


6464 


7093 


7275 


8942* 








2336* 




























8523* 


8530 


























8573 


8575* 


























8577* 


8580 


























8578 


8586* 


























3395 


3521* 


























2405 


2519 


3502 


3504 


8322 


8324 


8600 


8602 


8931* 












6448 


6450* 


























6452* 


6459 


























6455 


6453* 


























8394* 


8397 


























6879 


6883 


7122* 


7126 






















4219 


4252 


4715 


6632 


7786 


8388* 


















83 87 


8389* 


























3589 


4096 


4513 


5031 


5356 


5588 


7110* 


7117 


7208 












7105 


7116* 


























6613 


6852 


7103* 
























660 


662* 


























317 


661* 


























317 


659* 


























652 


2329* 


2412 


2627 


3142 


3150 


4326 


4695 


5255 


5525 


6263 


6508 


6*20 


6858 


7104 


7175 


7515 


7780 


7921 


8297 


8351 


3389 


8418 


8463 










3200 


3230 


4231 


4265 


4 23 8 


4360 


4391 


4728 


4761 


4802 


4846 


4886 


5299 


5451 


5484 


6333 


6435 


5552 


5690 


6946 


7045 


8410* 














3201 


3231 


3332 


4232 


4265 


4289 


4361 


4392 


4729 


4762 


"803 


4847 


4887 


^300 


5452 


5435 


5334 


6436 


6653 


5691 


8441* 
















6961 


8451* 


























3454 


8462* 


























8457 


8460* 


























8459 


3451* 
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SYMBOL TABLE £ CRO^S SFFEHENCE LIST 



SELL 1 

SILIN"vf 

SEL"SG 

SELSETK 

SELSST* 

3ELSTAT 

SELTST 

SFLV.2 

SELV30 

SELV'.'RT 

S FN ST A 



SENSTA1 



0000 57DA 

OOOC 57BA 

0000 85B8 

OOOC 8040 

0000 7F38 

0000 83C6 

0000 1E52 

0000 4ED0 

0300 4EF4 

0000 4EC0 

0000 7BDC 



0000 7BE4 



SENSTMA 0000 7BEA 
SENSTA2 0000 7C4C 
SEKSTA3 0000 7C22 



SENSTA3A 

SFT.5TN 

SFTK3 

SFTLST 

SINK 

SKIP33 

SKIPBF 

SKIPFB 

SKIPFF 

SNS.C0S1 

SNS.ESB 

SNS.ER3A 

SVS.E3BS 

SNS.E3BC 

SNS.KRC 

SNS.SRD 

SNS.S3R 

SNSCONV 

SSSHW 



SPACHK 

STAMS3 

3TARADD5 

START 

START3 

STARTH 



0000 7C28 
OOOC 1F70 
0000 1B5E 
0000 1B6E 
0000 1E38 
0000 83DA 
0000 83DB 
0000 83D8 
0000 8399 
0000 8216 
0000 8192 
0000 81D8 
0000 S1F0 
0000 8206 
0000 8132 
0000 8172 
0000 813E 
0000 827A 
0000 8448 



0000 1052 

0000 1ECF 
0000 84E4 
0000 0A5E 
0000 0A72 
0000 0.^2 



5536* 


5540 


























5440 


5525* 


























2639 


3197 


3226 


4329 


498r 


6469 


8952* 
















3208 


3310 


4377 


5471 


5395 


7244 


7923 


8502* 














3174 


3280 


4342 


5276 


6279 


8383* 


















8110 


8423 


8473 


8854* 






















876 


895 


2239* 
























4909* 


4913 


























4788 


4373 


4928* 
























4747 


4832 


4903* 
























*03 


597 


2451 


2430 


2572 


2658 


2704 


2764 


2992 


3055 


3083 


31 17 


4130 


414"=; 


4164 


4133 


4245 


"405 


5064 


5085 


5151 


5756 


5816 


5838 


5866 


5898 


5913 


603? 


6239 


6357 


6491 


6953 


6989 


7023 


7060 


7429 


7438 


7452 


7462 


7469 


7535 


7545 


7551 


7591 


7601 


7607 


7666 


7676 


7682 


7691 


7758 


7770 


7 807 


7817 


7891 


7901 


7913 


7939 


7952 


7988 


7996 


8006 


8044 


8058* 


8305 


3319 


8334 


8447 


8523 


8526 


8531 


8559 


8577 


8594 


8 603 


8606 


8753 
















490 


3379 


3396 


3405 


3598 


3889 


4129 


4139 


4163 


4182 


4240 


4370 


4404 


453* 


4564 


4599 


4645 


4675 


4730 


4763 


4848 


5 301 


5401 


6173 


6692 


6722 


6746 


574R 


6779 


6801 


6872 


6972 


7001 


7236 


7254 


7340 


8074* 


8325 


8574 


8586 


8597 


875° 


8075* 


8083 


























2631 


3306 


3329 


5295 


7585 


7628 


7803 


7935 


8109* 


8410 










485 


529 


2976 


2990 


3400 


3469 


4158 


4594 


4570 


5076 


5164 


5203 


5225 


5395 


5396 


5769 


5810 


6058 


6060 


6171 


6721 


6744 


6777 


6799 


7249 


8094* 


8743 




8095* 


8102 


























1807 


1812 


2251* 
























228 


236 


1638 


1668 


1767* 




















888 


1775* 


























1785 


222U* 


























8145 


8873* 


8874 
























8140 


8874* 


























8130 


8871* 


8872 
























8115 


8872* 


























513 


3342 


8666 


8699* 






















8616 


3655* 


























8660 


S676* 


























8679 


8685* 


























8687 


3693* 


























8623 


8547* 


























8631 


8638* 


























4132 


4147 


4166 


5845 


8614* 




















8705 


8710 


8714 


8718 


8722 


8726* 


















3645 


3551 


3657 


3662 


3667 


3672 


3577 


3682 


3588 


3706 


3715 


?y>t* 


3733 


3742 


3751 


3760 


3769 


3778 


3799 


3808 


3817 


3826 


3335 


3844 


3853 


3862 


3871 


3395 


3900 


i90 5 


3910 


3915 


3920 


3928 


3 933 


3938 


3946 


3951 


3960 


3963 


3981 


'0Q3 


4172 


5182 


670S 


6 708 


6758 


6760 


6782 


6734 


68^4 


5306 


8245 


8*30 


8*59 


867fi 


8729 


3925* 


























355 


364 


372 


413 


420 


469 


552 


558 


620 


628 


637 


645 


655 


6*1 


667 


575 


681* 
























1115 


2270* 


























8253 


8262 


8272 


8453 


8455 


8937* 


















118 


194* 


























124 


125 


126 


201* 






















195 


201 


205* 


997 
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STAT.ER 


000^ 


813A 


STATCHK 


0000 


8112 


STATCHK1 


0000 


8134 


STATE30 


occo 


81C6 


STATER1 


0000 


81CA 


STATERR 


0000 


8150 


STAT"?!} 


0000 


83C8 


STATUS 


0000 


83C4 


STCON 


0000 


19F8 


STERFLG 


0000 


82F0 


STOP 


0000 


83EA 


STOPAD8 


0000 


84E0 


STOPS 


0000 


83EB 


T.2 


0000 


3082 


T.3 


0000 


3056 


T.4 


0000 


2F6E 


T.6 


0000 


313E 


T.7A 


0000 


3190 


TO. 000 


0000 


2744 


TO.OOOA 


0000 


2734 


TO. 102 


0000 


275C 


TO. 104 


0000 


278E 


TO. 105 


0000 


27AC 


T0.7A 


0000 


2720 


TO.COKP 


0000 


27C2 


TO.EOOO 


0000 


28FA 


TO.E001 


0000 


2908 


T0.E002 


0000 


2916 


TO.E003 


0000 


2924 


TC.E003A 


0000 


2932 


T0.E0O4 


0000 


294C 


T0.E005 


000 


2960 


T0.E006 


0000 


2980 


T0.E007 


oooc 


29A0 


T0.E008 


0000 


29C0 


T0.E009 


0000 


29F0 


TO.EOOA 


00 


2 A 00 


TO.EOOD 


0000 


2A20 


TO.ENDA 


oooo 


2826 


T0.F3R 


0000 


27E2 


TO.'SGA 


0000 


272E 


T0ERM331 


0000 


2A80 


T0£B:iSG2 


0000 


2A9A 


TOERRORA 


0000 


2564 


TCSRR0R3 


0000 


28AE 


TOSOO 


0000 


2612 


TOF.OO?. 


0000 


2636 


T0300B 


0000 


263C 



4732 


4765 


4850 


8599 


8605* 




















3202 


3232 


3380 


4233 


4243 


4267 


4290 


4362 


4393 


4537 


4565 


4601 


4647 


467^ 


4804 


4888 


5068 


5222 


5271 


5384 


5463 


5486 


5773 


^ses 


5924 


*089 


6111 


6191 


6335 


6360 


6437 


6554 


6 97 3 


7341 


8593* 


8755 














8603* 




























3670* 


S674 


























8668 


«671* 


























86 36 


S642 


8651 


8664* 


8683 


8691 


8697 
















2493 


2649 


2663 


2870 


2982 


2998 


3061 


3090 


3295 


3388 


3409 


3607 


4187 


4412 


5150 


5248 


6244 


6696 


6727 


6752 


6995 


7349 


7432 


7474 


8086 


8535 


8855* 




601 


884 


2666 


2674 


2681 


2688 


2696 


2709 


2716 


2874 


3118 


6037 


8069 


80 -T 6 


8096 


86 21 


8686 


8853* 














. 








210 


1619* 


2158 
























8780 


8784* 


8797 


8803 


8805 


8813 


8824 
















8173 


8887* 


8888 
























6951 


6954- 


7043 


7046 


8445 


8448 


8936* 
















8179 


8838* 


























3337 


3344* 


























3335* 


3340 


























3274 


3278* 


3342 
























3385 


3394* 


























3415* 


3424 


























2745 


2747* 


























2733 


2738 


2742* 
























2751* 


2753 ' 


























2764* 


2768 


2775 
























2766 


2772* 


























2731 


2737* 


























2779* 


2785 


























2578 


2880* 


























2586 


2881* 


























2594 


2882* 


























2602 


2833* 


























2636 


2633 


2884* 
























2661 


2885* 


7991 


8309 






















2678 


2886* 


























2685 


2887* 


























2692 


2883* 


























2706 


2889* 


























2713 


2390* 


























2720 


2891* 


























2792 


2892* 


























2802 


2305* 


























2782 


2789* 


























2736 


2741* 


























2468 


2470 


2576 


2584 


2592 


2600 


2612 


2896* 














2483 


2854 


2897* 


3608 






















2577 


2585 


2593 


2501 


2609* 


7476 


















2494 


2664 


2862* 


2984 


3000 


3065 


3389 


3609 


4191 


4413 


5249 


6245 


6699 


fiOOT 


7351 


7433 


8087 


8536 






















2662* 


2679 


2686 


2693 


2707 


2714 


2721 
















2670* 


2572 


























2668 


257 1* 
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T1.005 


0000 


2F78 


T1.006A 


0000 


30F6 


T1.04H 


0000 


2C2 5 


T1.05A 


0000 


2C6S 


T1.40H 


0000 


2E34 


T1.4A 


0000 


2C22 


T1.4C0 


0000 


2E3A 


T1.5A 


0000 


2C3 4 


T1.600 


ooco 


321C 


T1.6000 


0000 


31E8 


T1.601 


0000 


3205 


T1.60H 


0000 


3215 


T1.602 


0000 


3230 


T1.604 


0000 


3250 


T1.C01P 


0000 


3274 


T1.E000 


0000 


330E 


T1.E001 


0000 


333C 


T1.E002 


0000 


335A 


T1-E003 


0000 


339C 


T1.E004 


0000 


33CC 


T1.E008 


0000 


33FC 


T1.E0081 


0000 


341 A 


T1.E009 


0000 


343C 


T1.E00A 


0000 


346A 


T1.E03B 


0000 


3498 


T1.E90C 


0000 


34AC 


T1.E00C1 


0000 


34C0 


T1.E00D 


0000 


34E2 


T1.E00S 


0000 


3504 


T1.E00F 


0000 


3525 


T1.E3QG 


0000 


3544 


T1.E00H 


0000 


3564 


T1.EO0I 


0000 


357E 


T1.E00J 


0000 


3596 


T1.ERH 


0000 


3296 


T1ER1SG1 


0000 


35B6 


T1ERMSG2 


0000 


35CS 


T1ERR0RA 


0000 


2CC4 


T1F.003 


0000 


31CE 


T1R01 


0000 


2C4C 


T1P01.2 


0000 


2C64 


T1R02 


0000 


2CAA 


T1R06 


0000 


2354 


T1309 


0000 


2F06 


T1R0A 


0000 


312A 


T1RQB 


0000 


31P8 


T1R10 


0000 


2E8C 


T2.003 


0000 


371 A 


T2.0000 


0000 


357A 


T2.001 


0000 


372C 


T2.002 


0000 


373i 


T2.0O3 


0000 


3750 



3280* 

3374 

3045 

3074 

3183 

3043 

3213 

3072 

3453* 

3141 

3445 

3447 

3457* 

3469* 

3476* 

2983 

2999 

3012 

3064 

3093 

3251 

3346 

3299 

3323 

3386 

3410 

3429 

3193 

3223 

3288 

3313 

3182 

3212 

3489 

3479 

3106 . 

3062 

2793 

6467 

3348 

3056 

3065* 

3084 

3144* 

3189* 

3389* 

3418 

3219* 

3646 

3600 

3652 

3658 

3663 



3375* 

3047* 

3075* 

3 1 9 9 * 

3046* 

3229* 

3075* 

3485 

3441* 

3448* 

3451* 

3459 

3473 

3483 

3515* 

3518* 

3520* 

3522* 

3524* 

3525* 

3527* 

3301 

3325 

3530* 

3531* 

3532* 

3196 

3227 

3535* 

3536* 

3537* 

3533* 

3539* 

3486* 

3540* 

3091 

3013 

7093 

3432* 

3060* 

3094 

3089* 

3152 

4229 

3411 

3428* 

4286 

3650* 

3604* 

3656* 

3661* 

3666* 



3378 



3528* 
3529* 



3533* 
3534* 



3541* 
3104* 
7276 



4262 



4389 



3252 



34 3 3 



3490 4314 4450 4961 4984 5430 5513 5944 6212 



4358 



4799 



4726 



48 83 



4759 4844 5293 5459 6646 6917 



5482 6683 7012 
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T2.03- OOOO 3762 

T2.005 0000 377U 

T2.C05 0000 3786 

T2.007 0000 3798 

T2.003 0000 37F2 

T2.001 0000 3812 

T2.03? 0000 3832 

T2.00C 0000 3852 

T2.00D 0000 3872 

T2.C0E 0000 3892 

T2.00? 0000 3832 

T2.013 0000 38D2 

T2.011 0000 393A 

T2.012 0000 395A 

T2.C13 0000 397A 

T2.01-i 0000 399A 

T2.015 0000 39BA 

T2.015 0000 39DA 

T2.017 0000 39FA 

T2.01S 0000 3A1A 

T2.013 0000 3A96 

T2.G1A 0000 3AA8 

T2.013 0000 3ABA 

T2.C13 0000 3ACC 

T2.013 0000 331C 

T2.01E 0000 3B58 

T2.01? 0000 3AF8 

T2.020 0000 3B0A 

T2.4 0000 36E6 

T2.5 0000 36F0 

T2.CA 0000 3A58 

T2.D3 0000 3B34 

T2.E030 0000 3C1E 

"2.E000A 0000 3C3E 

T2.E0003 0000 3C64 

T2.Z0D0C 0000 3C8A 

T2.E000D 0000 3CB2 

T2.E030E 0000 3CD4 

T2.ED00F 0000 3CEC 

T2.E331 0000 3D5A 

T2.E0D13 0000 3D16 

T2.E0311 0000 3D42 

T2.E002 0000 3B70 

T2.E333 0000 3D34 

T2.E003A 0000 3DA6 

T2.E004 0000 3DBC 

T2.E004A 0000 3DDC 

T2.E0D5 0000 3DFC 

T2.E035A 0000 3S1C 

T2.E0D6 0000 3E3C 

T2.EC06A 0000 3E5C 

T2.E007 0000 3E7E 

T2.E007A 0000 3S98 



3668 3671* 

3673 3676* 

3678 36S1* 

3683 3637* 
3707 3714* 
3716 3723* 
3725 3732* 
3734 3741* 
3743 3750* 
3752 3759* 
3761 3768* 
3770 3777* 
3800 3807* 
3809 3816* 
3818 3825* 
3827 3834* 
3836 3843* 
3845 3852* 
3854 3861* 
3863 3870* 
3901 3904* 
3906 3909* 
3911 3914* 
3916 3919* 

3896 3925 3939 3943' 

3944 3959* 

3929 3932* 

3934 3937* 

3631 3637* 
3639* 
3889* 

3947 3950* 

3684 4007* 

3679 4008* 

3674 4009* 

3669 4010* 
3664 4011* 
3659 4012* 
3653 4013* 

3632 4016* 
3647 4014* 
3690 4015* 

3642 3984 4017* 

3710 4013* 

3775 4019* 

3719 4020* 

3766 4021* 

3728 4022* 

3757 4023* 

3737 4024* 

3745 4025* 

3746 4026* 
3739 4027* 



HIGH ?ERF0RMANCE(6250)yAGTAPE DIAGNOSTIC 06-263R01 M95A 1 3 PAGE 230 08:34:07 12/23/83 
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T2.F008 

T2.S008A 

T2.E009 

T2.E009A 

T2.E00A 

T2.E00AA 

T2.E003 

T2.S00BA 

T2.E00C 

T2.E00CA 

T2.EO0D 

T2.EO0DA 

T2.E00S 

T2.E00EA 

T2.E00F 

T2.E00FA 

T2.E010 

T2.E010A 

T2.E011 

T2.E011A 

T2.E012 

T2.E012A 

T2.E013 

T2.E013A 

T2.E014 

T2.E014A 

T2.E015 

T2.E015 

T2.E017 

T2.E018 

T2.E019 

T2.E01A 

T2.E01B 

T2.E01C 

T2.E01D 

T2.E01E 

T2.F 

T2.G 

T2.50 

T2.HSG2 

T2.HSG2A 

T2.HSG3 

T2ER1SG0 

T2ERMSG1 

T2ERR0RA 

T2KSG1 

T2SSG2 

T2KSG3 

T2P00.1 

T2R01 



0000 3F3A 
0000 3EDA 
0000 3F04 
OOOO 3^24 
0000 3F3A 
0000 3P5C 
OOOG 3F88 
0000 3FA4 
0000 3FBC 
0000 3FDE 
0000 3FF8 
0000 401A 
0000 403A 
0000 405C 
0000 4078 
0000 409A 
0000 40C8 
0000 40EA 
0000 4104 
0000 4126 

oooo into 

0000 4162 
0000 4190 
000 41 A2 
0000 41C0 
0000 4106 
0000 41EF 
0000 420A 
0000 422A 
0000 424E 
0000 4274 
0000 4296 
0000 42BC 
0000 42DE 
0000 4302 
0000 4320 
0000 3ADE 
0000 3B8E 
0000 3B7E 
0000 3B40 
0000 3B44 
0000 3B50 
0000 4390 
0000 439C 
0000 3BCE 
0000 4338 
0000 4356 
0000 4372 
0000 3688 
0000 36D2 



3755 

3730 

3764 

3721 

3773 

3712 

3782 

3784 

3303 

3868 

3812 

3859 

3821 

3850 

3830 

3841 

3839 

3832 

3843 

3823 

3857 

3814 

3866 

3805 

3875 

3877 

3902 

3907 

3912 

3917 

3922 

3956 

3930 

3935 

3940 

3897 

3921 

3952 

3964 

3953* 

3949 

3956* 

3634 

3995 

3633 

3948 

3953 

3972 

3607* 

3633* 

3722 

37S5 

3860 



4028* 

U029* 

4030* 

4031* 

4032* 

4033* 

4034* 

4035* 

4036* 

4037* 

4038* 

4039* 

4040* 

4041* 

4042* 

4043* 

4044* 

4045* 

4046* 

4047* 

4048* 

4049* 

4050* 

4051* 

4052* 

4053* 

4054* 

4055* 

4056* 

4057* 

4058* 

4059* 

4060* 

4051* 

4062* 

4063* 

3924* 

3961 

3968* 

3954* 

3991 

4068* 

3987* 

3965 

3968 

4066* 

3643 
3729 
38 04 
3867 



3972* 



4067* 5136 



4175 

4064* 

4065* 



3649 
3731 
3 806 
3859 



>185 



3655 
3738 
3813 
3 8 7 6 



6713 



6712 



3660 
3740 
3815 
3878 



3665 
3747 
3822 

3898 



3670 
3749 
3824 
3903 



3675 
37*6 
3831 
3908 



3680 
3758 
3*33 
3913 



3686 
3765 
3840 
3918 



3691 
3767 
3842 
3923 



3711 
3774 
3849 
3931 



3713 
3-776 

3851 
3^36 



3720 
378'' 
385° 
3Q41 
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T2R02 0000 37FA 

T2R0210 0000 38CA 

T2E0211 0000 38EE 

T2R02A 0000 3S0A 

T2B02B 0000 382A 

T2R02C 0000 38UA 

T2E02D 0000 386A 

T2E02E 0000 3881 

T2R02F 0000 38AA 

T2S0310 0000 39F2 

T280311 0000 3A12 

T2S0312 0000 3»3S 

T2R03* 0000 3932 

T2R03B 0000 3952 

T2R03C 0000 3972 

T2R03D 0000 3992 

T2R03E 0000 39B2 

T2R03F 0000 39D2 

T3.02A 0000 4405 

T3.2A 0000 440A 

T3.2B 0000 43KE 

T3.2C 0000 43EA 

T3.2DA 0000 4420 

T3.3E 0000 44A8 

T3.3F 0000 444C 

T3-3G 0000 4448 

T3.3H 0000 44E8 

T3.3J 0000 445A 

T3.4DA 0000 4552 

T3.4E 0000 456C 

T3.4G 0000 4582 

T3.4J 0000 45C8 

T3.4L 0000 4624 

T3.4H 0000 4646 

T3.5 0000 46A4 

T3.5A 0000 46D0 

T3.5A1 0000 46E6 

T3.5BA OOCO 470A 

T3.5C 0000 46C8 

T3.5DB 0000 4726 

T3.6A 0000 474A 

T3.63 0000 4746 

T3.6C1 0000 4770 

T3.6DB 0000 478E 

T3.6DC 0000 47D8 

T3.DE5 0000 4654 

T3.EO0O 0000 4898 

T3.EO02 0000 48BE 

T3.2004 0000 48E4 

T3.E004A 0000 4906 

T3.E007 0000 4924 

T3.E00A 0000 4940 



3957 3935 

3709 3712* 

3772 3775* 

3781 3784* 

3718 3721* 

3727 3730* 

3736 3739* 

3745 3748* 

3754 3757* 

3763 3756* 

3856 3359* 

3865 3868* 

3874 3877* 

3802 3305* 

3811 3814* 

3820 3823* 

3829 3832* 

3838 3841* 

3847 3850* 

4123 4125* 

4126* 4128 

4118* 4137 

4117* 4144 

4136* 

4168 4173 4179* 

4154* 4180 

4153* 4196 

4185 4195* 

4158* 4162 

4224 4230* 

4235 4233* 

4242 4245* 

4257 4263* 

4281 4287* 

4298* 4306 

4324 4325 4332* 

4343* 4368 

4347 4349* 

4352 4359* 

4341* 4372 

4364 4357* 

4380* 4402 

4379* 4418 

4383 4390* 

4395 4398* 

4407 4417* 

4301 4309* 

4474* 

4174 4475* 

4190 4475* 

U410 4477* 

4223 4478* 

4256 4479* 



HI3H ?ESFOEMANCE(P?50)"?.3TAPF DIAGNOSTIC 06-263R01M95A 13 PAGE 232 08:34:97 12/23/83 
SYMBOL TABLE £ C?CSS FFFFpEKC? LIST 



T3.E303 

T3.EOOC 

T3.E0OD 

T3.E0 0F 

13.2311 

T3.E012 

T3.ERE3 

T4.000 

TU.0000 

T4.0C00A 

T4.0002 

T4.001 

T4.002 

I4.002A 

T4.002AA 

T4.002C 

74.003 

T4.003* 

T4.0033 

TU.Q03E5 

T4.003EF 

T4.004 

T4.004A 

T4.004B 

T4.005 

T4.005A 

T4.005C 

T4.02C 

T4.1A 

T4.1D 

T4.1E1 

T4.2AA 

T4.2Q1 

T4.5 

T4.6 

T4.7* 

T4.9A 

T4.CHK 

T4.CHKA 

TU.CHKB 

T4.CHKC 

T4.EO02 

T4.E004 

T4.E005 

T4.E0 6 

T4.E008 

T4.E009 

T4.E3R 

T4.SEXT 

Tli.SCHK 

T4.SC«KA 

T4.S2RB 

T4044A 



OOOO 4955 
0000 4973 
0000 499A 
0000 49C2 
0000 49E3 
0000 4A0C 
0000 4654 
0000 4A9E 
0000 4A7A 
0000 4A7S 
0000 4C9C 
0000 4AA& 
0000 4DB4 
0000 4DD8 
0000 4DF6 
0000 4E16 
0000 4B48 
0000 4B86 
0000 4P94 
0000 4364 
0000 4B68 
0000 4BBC 
0000 4BD8 
0000 4EE2 
0000 4E42 
0000 4E68 
0000 4F94 
0000 4D56 
0000 4C3A 
0000 4CD4 
0000 4D04 
0000 4D2E 
0000 4D88 
0000 4AEE 
0000 4B0A 
0000 4B34 
0000 4ACE 
0000 4F12 
0000 4F16 
0000 4F36 
0000 4F38 
0000 4FEC 
0000 4FB2 
0000 4FD" 
0000 50CF. 
0000 5026 
0000 5048 
0000 4F3E 
OOCO 432C 
0000 4F^F 
OOOO 4F62 
0000 4F7A 
OOOO 43DA 



4280 


4490* 




4313 


4481* 




4351 


4482* 




4382 


44B3* 




4399 


4449 


4484* 


4183 


4408 


4485* 


4247 


4308* 




4555 


4557* 




4542 


4545* 




4544 


4546* 




4720 


4727* 




4561* 


4563 




4776 


4816* 




4825 


4827* 


4856 


4830 


4832* 




4837 


4845* 




4576 


4618* 




4536 


4638* 




4642* 


4644 




4623 


4626* 




4625 


4627* 




4519 


4657* 




4664 


4666* 




4670* 


4674 




4817 


4860* 




4869 


4871* 


4895 


4877 


4884* 




4784 


4786* 


4812 


4693 


4694 


4696 


4745 


4747* 




4752 


4760* 




4702 


4767 


4775* 


4792 


4800* 




4582 


4584* 


4512 


4594* 


4598 




4603 


4606* 




4523 


4524 


4 575* 


4607 


4681 


4940* 


4943* 


4954 




4950 


4953* 




4952 


4954* 




4836 


4843 


4998* 


4791 


4798 


4996* 


4605 


4997* 




4680 


4999* 




4719 


4758 


5000* 


4876 


5001* 




4946 


4957* 




4567 


4604* 


4649 


4807 


4891 


4967* 


4970* 


4978 




4973 


4930* 




4667* 


46R5 





4701* 



4679 



4 8 f . 



4852 



4890 
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T4066 


0000 


4S7«. 


T4067 


0000 


437C 


T4099 


0000 


4 A 90 


T4100 


0000 


4CC6 


T4CLS 


0000 


4AF4 


T5.1A 


0000 


50E4 


T5.1B 


0000 


50E0 


T5.2E 


0000 


5204 


T5.2F 


0000 


51C6 


T5.3A 


0000 


5248 


T5.3S 


0000 


52SC 


T5« 4 


0000 


52CC 


T5.531 


0000 


538C 


T5.5C 


0300 


539E 


T5.CHK1 


0000 


5224 


T5.E000 


0000 


53C8 


T5.E000A 


0000 


5406 


T5.E001 


0000 


5438 


T5.E001A 


0000 


5472 


T5.E002 


0000 


54A2 


T5.E003 


0000 


54D2 


T5.5004 


0000 


5506 


T5.S005 


oooc 


5528 


T5.E006 


0000 


553E 


T5.E007 


0000 


5554 


T5.S000 


0000 


5316 


T5.SW1 


0000 


5368 


T5.SWRT 


0000 


5346 


T5SR3SG0 


0000 


5578 


TSERSSGI 


0000 


55S4 


T5ER1SG2 


0000 


559A 


T5ERK3G3 


0000 


5530 


T5ERHSG4 


00 00 


55C4 


T5ERR0RA 


0000 


5133 


T5R01 


oooc 


51F0 


T5R01.5 


0000 


51F4 


T5R02 


0000 


5124 


T5E02.1 


0000 


5128 


T6.002A 


0000 


5676 


T6.1DB 


0000 


5548 


T6.2R 


0000 


5678 


T6.2C 


0000 


5694 


T6.3A1 


0000 


5706 


T6.3AA 


0000 


5720 


T6.33 


0000 


56E6 


T6.3C1 


0000 


5750 


T6.3CA 


0000 


575A 


T6.3E 


0000 


577E 


T6.E002 


0000 


580S 


T6.E003 


0000 


5820 


T6.E004 


0000 


533S 


T601A 


0000 


5516 


T6R04 


000 


57 9 A 



4632 


4634* 




4635* 


4653 




4550 


4552* 


4571 


4740 


4742* 


4771 


4587* 


4590 




5069* 


5272 




5066 


5068* 




5148 


5163* 




5079 


5144* 




5170 


5192* 




5207 


5218* 




5229 


5239* 




5287 


5294* 




5297 


5299* 




5074 


5178* 


5223 


508S 


5313* 




5090 


5315* 




5156 


5317* 




5154 


5319* 




5210 


5321* 




5233 


5323* 




5246 


5325* 




5286 


5326* 




5184 


5327* 




5139 


5328* 




5256 


5261* 




5282 


5284* 




5262 


5264 


5267 


5093 


5103 


5329* 


5107 


5330* 




5110 


5331* 




5113 


5332* 




5116 


5333* 




5092 


5097* 




5153 


5156* 


5171 


5155 


5158* 




5087 


5090* 




5089 


5092* 


5215 


5410 


5413* 




5396* 


5400 




5412 


5414* 


5422 


5417 


5424* 




5453 


5450* 




5465 


5470* 




5449 


5451* 




5476 


5483* 




5488 


5493* 




5499* 


5506 




5427 


5557* 




5452 


5558* 




5475 


5512 


5559* 


5378 


5381* 




5503 


5509* 





5269 



5274* 



5236 
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T7.0038 


0000 


5:6? 


T7.00 2 


0000 


5 3 A Z 


T7.00 3 


00 


5304 


T"'.005 


0000 


597E 


T7.007 


0000 


5010 


T7.3A 


0000 


59EC 


T7.33 


0000 


59CA 


T7.33C 


0000 


5 Af- 5 


T7.3C 


0000 


59?E 


T7.4G 


0000 


5AE8 


T7.4D 


000 


5AD0 


T7.4F, 


0000 


5E12 


T7.4F 


0000 


5B0A 


T7.4G 


0000 


5ABE 


T7.4H 


0000 


5ACC 


T7.5 


00 


53H8 


T7.5C 


0000 


5BCC 


T7.5CA 


0000 


5B?A 


T7.5DA 


0000 


5C30 


T7.5DAT 


0000 


5C1E 


T7.5F 


0000 


5C0A 


T7.5SS 


0000 


5C02 


T7.5iR5 


0000 


5C4C 


T7.7A 


0000 


SZ*C 


T7.7D 


0000 


5CF9 


77.75 


0000 


5E82 


T7.7K 


0000 


5SD2 


T7.7I 


0000 


5F85 


T7.7K 


0000 


5EFA 


T7.7L 


0000 


5EE2 


T7.DHD 


0000 


5E6C 


T7.DHD1 


000 


5SAA 


T7.DRD2 


0000 


5FFA 


T7.0RD3 


0000 


5F8C 


T" 7 .DSD4 


oooc 


5FBC 


T7.DW1 


0000 


5D9U 


T7.DW2 


0000 


5DA0 


T7.DW2A 


0000 


5DA6 


T7.DJ* 


0000 


5PA A 


T7.DW3 


0000 


5DBC 


T7.DWC 


0000 


5PDE 


T7.DWRT 


0000 


5D76 


T7.DWTA 


0000 


50FC 


T7.E000 


0000 


6?r e 


77.^001 


0000 


6 31 A 


T7.S0 2 


ocoo 


533C 


T7.S0 3 


0000 


6360 


T7.E004 


0000 


6384 


?7.^006 


0000 


63 A A 


T7.E0 07 


000 


63E2 


T7.F0OS 


0000 


6418 


T7.E30A 


0000 


644 F. 


T7.E003 


00 


647!" 



6207 


5217* 


5591 


5620* 


5621 


5631* 


5672 


5703* 


6010 


6012* 


5711 


5720* 


5704 


5705 5727" 


5759* 


5772 


5730 


5741* 


5803 


5820* 


5813* 


5S24 


5825 


5*34* 


5831* 


5340 


5607* 


5S11 


5809 


5812* 


5889* 


5904 


5887 


5895* 


5910* 


5921 


5929* 


5936 


5920 


5923* 


5900 


5915* 


5906 


5913* 


5932 


5939* 


6006* 


6094 


6005* 


6115 


6142* 


6252 


6157* 


6172 


6143* 


6218 


6175* 


6186 


6170 


6173* 


6123 


5135* 


61D5 


5156* 


6154 


6184* 


5224 


6235* 


6241 


6250* 


6055* 


6 059 


6057 


6060* 


6052 


6062* 


5063* 


£073 


6048 


5069* 


6074 


6083* 


6015 


50 4 5* 


6092* 




5505 


«531* 


5623 


6532* 


5634 


6533* 


5653 


6534* 


5686 


663S* 


5738 


5360 6536* 


5757 


5880 653S* 


5717 


5798 6023 


5831 


507S 6542* 


6130 


6544* 



6540' 
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T7.E03D 

T7.E00S 

T7.E010 

T7.E011 

T7.E012 

T7.E012A 

T7.E013 

T7.E014 

T7.E015 

T7.E016 

T7. EO 17 

T7.E018 

T7.E019 

T7.E020 

T7.E021 

T7.E022 

T7.E022A 

T7.E024 

T7.E025 

T7.NOS 

T7.S2A 

T7.S3B 

T7.S3C 

T7.S4B 

T7.S4C 

T7.S5 

T7.S6A 

T7.S77 

T7.SA 

T7.SA1 

T7.SB 

T7.SC 

T7.7S 

T7ER*331 

T7ERKSG2 

T7ERP0RA 

T7KSG3 

T7R04 

T7R05 

T7H05.5 

T7R06 

T8.13 

T8-1BB 

T8.1D 

T8.2 

T8.2A 

T8.2C 

T8.3 

T3. 4 

TS.43 

T8.4C 

TS.UE 

T8.5 



0700 64B6 
0000 64E4 
0000 6512 
0000 6550 
0000 658C 
0000 65C2 
0000 65E3 
0000 651A 
0000 664C 
0000 667E 
0000 66BE 
0000 66E6 
0000 670A 
0000 6744 
0000 677C 
0000 67BA 
0000 67E4 
0000 5806 
0000 683E 
0000 62C2 
0000 60CC 
0000 611C 
0000 6116 
0000 6168 
0000 6164 
0000 61F8 
0000 6280 
0000 6254 
0000 5FFE 
0000 6030 
0000 5FFA 
0000 6038 
0000 5E1E 
0000 6882 
0000 688E 
0000 5D48 
0000 6876 
0000 5D38 
OOOC 6040 
0000 605C 
0000 5FA4 
0000 68f.2 
0000 68D2 
0000 6916 
0000 693A 
0000 699A 
0000 69D6 
0000 69FS 
0000 6A24 
OOOC 6A4A 
0000 6A3E 
0000 6A6A 
0000 6A84 



5892 


6151 


5546* 


5910 


5178 


6548* 


5961 


6550* 




5974 


6552* 




5817 


5066 


6554* 


5943 


6211 


6556* 


6104 


6557* 




6229 


6559* 




6242 


6561* 




6291 


5563* 




6319 


6322 


6565* 


6332 


6566* 




6347 


6567* 




6381 


6569* 




6403 


5571* 




6422 


5424 


6 573* 


6434 


6466 


6574* 


6481 


6575* 




6494 


6577* 




6264 


6514* 




6338* 






6260 


6359 


6369* 


6363* 






6395* 


6472 




6393* 


6501 




6439 


6442* 




6473 


6485* 




6461 


6471* 




6273* 


6340 




6285 


6287* 




6272* 


6365 




6289* 


6290 




6099 


6107* 




2485 


3303 


5159 5664 6025 


6038 


5581* 




2484 


3302 


5158 5663 602!; 


6296 


6299 


6579* 


6024* 


6067 


6079 6105 6131 


6292* 


6348 . 


6382 6404 6483 


6300* 


6323 


6425 


6243* 


6495 




6616* 


6816 




6627 


6529* 




6636 


6647* 




6618 


6619 


6656 6559* 


6671 


6685* 




6694 


6704* 




6709 


5719* 




5660 


6725 


6733* 


6743 


6746* 




6741* 


6745 




6750 


6756* 




6735 


6767* 





6034 



6029* 



6152 



6301 



6300 



6179 



6580* 8311 



S310 



6230 



8329 



8330 



8429 



8430 



8468 



8459 



85°2 



8583 



HI3H PFRFG?*ANCF(6; 



SY130L TABLE E C7 



iDFBSTAPE DIAGNOSTIC 06-263R0 1 »95A1 3 PACK 236 08:34:07 15/21/83 
■ FFFERFSC 7 LIS" 1 



TS.5A 


0000 


6A9F 


T 8 . 5 C 


0000 


5 P. A A 


°.«.6 


0000 


6AC8 


I.? .eft 


oocc 


6ADE 


TS.6C 


0000 


6 a =: f 


Tt.EOOO 


0000 


6B3F 


T8.F001 


0000 


6 = 52 


T8.F.002 


0000 


6 n 66 


T8.E003 


0000 


6 C 84 


T8.E004 


C! P 


6&A8 


TS.E005 


0000 


6BD4 


T8.FOOS 


ococ 


6BF8 


T8.E007 


0000 


5C22 


TS.E008 


0030 


6C4C 


T8R02 


0000 


69C6 


T8R03 


0000 


6 9EA 


T9.005 


0000 


6E4A 


T9.1 


0000 


6C7C 


T9.1A 


OJOO 


6CB6 


T9. 1AA 


0000 


6CAE 


T9.50A 


0000 


5.E76 


T9.CSRR 


0000 


6F7C 


T9.C01? 


oooo 


6F58 


T9.C0!*P1 


0000 


6F5E 


T9.E000 


0000 


70F4 


T9.F002 


00 or, 


70F6 


T9.E005 


0000 


7106 


T9.E007 


0000 


7122 


T9.SS32 


0000 


70CA 


TSMS'SI 


0000 


70AA 


T9R02 


0000 


6 r 'F8 


TA.000 


0000 


7144 


TA.0O1 


0000 


714F. 


W.OOH 


0000 


717F 


TA.00 2 


0000 


7192 


TA.00 2A 


0000 


7196 


TA.1O0 


0000 


71A4 


TA.101 


0000 


71CC 


TA.201 


0000 


71F8 


TA.300 


0000 


7232 


TA.301 


0000 


7246 


TA.3011 


oocc 


79 c , - 


TA.302 


ooo: 


7300 


TA.30 3A 


0000 


72CC 


TA.3033 


000" 


7 20" 


T.'.30 3C 


0000 


72F0 


TA.400 


00 


7 3 3C 


T A . U 1 


0000 


7346 


TA.F091 


0100 


73' A 


TA.F002 


000 


7 3?? 


TA.F003 


0000 


73-70 


T A . E 4 


0000 


7 3^0 


T A . i 5 





7 3 7 : 



6774* 


6778 




6776 


6779* 




6768 


6790* 




6796* 


6600 




6798 


6601* 




6641 


681 9* 




5677 


6320* 




6697 


6821* 




6710 


6 822* 




6728 


5823* 




6753 


t n 2 4 * ■ 




6762 


6825* 




6786 


6826* 




680S 


5827* 




6698* 


6729 


6754 


6711* 


6763 


5788 


6989* 


6993 




6851* 


71e8 




6871* 


6874 




6864 


6869* 




6991 


7001* 




7084 


7092* 




7069 


7074 


7079* 


7081* 


7088 




6916 


5 94 5 


7192* 


7011 


7037 


7050 


6996 


7194* 




7097 


7195* 




6867 


7191* 




7171 


7173 


7190* 


6961* 


7051 




7209* 


7330 




7210 


7212* 




7221 


7225* 




7230 


7232* 




7233* 


7235 




7215 


7239* 




7249* 


7253 




7260* 


7267 




7240 


7281* 




7287* 


7290 




7292* 


7 2y5 




7303 


7340* 




7305 


7325* 




7325 


7330* 




7330 


7335* 




7344 


7355* 




7 3 S * 


7357 




7259 


7 3 3 3* 




7305 


7325 


7331 


7308 


7335* 




7323 


7385* 




7333 


7 3 3 7 * 





680a 



■7193" 



73 3 5 



SEO 



7369 



7384" 



HI3H PERF0RHANCE(6250)FA3TAPE DIAGNOSTIC 06-263R01 S95A 1 3 PAGE 237 08:34:07 12/23/33 
SYH30L TA31E K CROSS REFERENCE LIST 



TA.EOOS 

TA.XSG1 

TAER13G2 

TAER13S3 

TAR01 

TAR01.1 

TAR02 

TAR03A 

TB.1 

TB.EOOO 

TB.E001 

TB. E002 

TB.E003 

TB.MSS2 

TBHS31 

TBR01.1 

TC.000 

TC.001 

TC.002 

TC.002A 

TC.0023 

TC.003 

TC.004 

TC.005 

TC.006 

TC.006B 

TC.007 

TC.1O0 

TC.102 

TC.103 

TC.104 

TC.104A 

TC.105 

TC.106 

TC. 106B 

TC.107 

TC.5 

TC.COMP 

TC.COHPO 

TD.O 

TD.000 

TD.001 

TD.002 

TD.O03 

TC.0031 

TD.003A 

TD.C04 

TD.0041 

TP.OOAA 

TB. 100 

TD. 1000 

TD.1002 

TD.1004 



0000 741E 
0000 738E 
0000 742C 
0000 743C 
0000 7206 
0000 720A 
0000 7362 
0000 7292 
0000 751A 
0000 755C 
0000 7572 
0000 7596 
0000 75BC 
0000 75F8 
0000 75E2 
0000 7496 
0000 763A 
0000 7660 
0000 7672 
0000 7684 
0000 7692 
0000 7698 
0000 76AA 
0000 7728 
0000 773A 
0000 774C 
0000 775A 
0000 77F6 
0000 77FA 
0000 786E 
0000 787E 
0000 788C 
0000 7824 
0000 7836 
0000 7848 
0000 7856 
0000 7772 
0000 77C2 
0000 77BA 
0000 789E 
0000 78AC 
0000 78D4 
0000 78D8 
0000 78DE 
0000 78E4 
0000 78"2 
0000 7904 
0000 790A 
0000 78BC 
0000 791A 
0000 7936 
OCOO 794C 
0000 79*6 



7337 


7333* 




7223 


7382* 




7316 


7322 


■7390 


7319 


7391* 




7263 


7269* 




7270* 


7370 




7363 


7369* 




7309* 


7329 


7334 


7467* 


7468 




7475 


7438* 




7430 


7489* 




7441 


7490* 




7458 


7491* 




7449 


7493* 




7423 


7492* 




7432* 


7443 




7523 


7525* 




7535* 


7539 




7537 


7541* 




7545* 


7548 




7546 


7550* 




7551* 


7555 




7542 


7553 


7557 


7591* 


7595 




7593 


7597* 




7601* 


7604 




7602 


7606* 


7611 


7562 


7552* 




7653* 


7555 




7664 


7673 


76 84 


7691* 


7694 


7699 


7692 


7695* 




7666* 


7670 




7668 


7672* 




7676* 


7579 




7677 


76S1* 


7686 


7589 


7598 


76C9 


7634* 


7641 




7631* 


7700 




7736* 


7828 


7830 


7738 


7740* 




7751 


7753* 




7754* 


7756 




7757* 






7758* 


7751 




7759 


7763* 




7769* 






7770* 


7773 




7746* 


7758 




7742 


7779* 




7788* 


7815 




7792 


7794* 




7795 


7802* 





7338 



7688* 



7613* 



HI3H PERF0RKANCE(62: 
SY*530I. TA31E £ C?.C: : 



;)*A3TAPE DIAGNOSTIC 06-263RO 1 :*35A 1 3 PAGE 238 08:34:07 12/23/83 

REFERENCE LIST 



T!i. 1005 


0000 


787 = 


IL.13 51 


0000 


797E 


?~. 10 05 5. 


000 3 


7° f : 


T-. 1335 


0000 


7 9 ^ p ' 


T". 10051 


0000 


799E 


TT.r : !3 


OOOC 


23 5 A 


T C . D H 4 


OOOC 


2878 


TE.O01A 


050 


7 A 3 


T T .002 


0000 


7 A 14 


TE.003 


0000 


7A1A 


TF.003A 


0000 


7A28 


TE.ooy 


0000 


7A32 


TF..0041 


0000 


7A38 


T E . 4 A 


0000 


7A45 


TS.005 


0000 


7»58 


TE.0051 


0000 


7A5E 


IF. 100 


OOOG 


7A6-' 


TF. 1000 


0000 


7A76 


TE. 1003 


0000 


7AA0 


TE. 1004 


0000 


7 A BO 


TE. 10041 


OOOC 


7AB5 


TE. 1004A 


0000 


7ACU 


TE.1C05 


0000 


7ADA 


TF. 10051 


0000 


7AE0 


TEST 


0000 


1FD8 


TE'STO 


0000 


24HC 


IESIO. 1 


0000 


2 4CE 


TEST0.2A 


0000 


2504 


TEST0.3A 


0000 


2524 


TEST0.4A 


0000 


2542 


TEST0.5 


0000 


2588 


TFST0.5 


0000 


2532 


TFST0.68 


0000 


2544 


TFST0.6C 


0000 


255C 


T"T0.5D 


0000 


2574 


TFST0.63 


0000 


266- 


TF3T0.6F 


0000 


25C0 


TEST0.53 


0000 


26D8 


TSST0.7 


0000 


26F4 


TEST1 


0000 


2 A DA 


TFET1.01 


0000 


2? 5 4 


TEST1.02 


0000 


2RQ4 


TSST1.03 


0000 


2 3CA 


TFST1.04 


0000 


2 r t^u 


T r S?1.05 


oocc 


2 n ie 


TEST1.05 


0000 


2T>3f< 


TFST1 .1 


0000 


2AF0 


TEST1 . 11 


000 


2AFE 


T r ~ T 1 . 4 


0000 


207A 


Tfc.iT1.4D 


000 


2 c-c; .S 


TEST1 .4 s ; 


0000 


2ED? 


TEST1.5 


0000 


2F36 


TEST1.5 


OOOC 


30 or 



7806* 




7807* 


7510 


7308 


7 p. 1 2 * 


7816* 




7817* 


7820 


2815 


2323* 


2824 


2631* 


7886* 


7911 


7890* 


7399 


7891* 


7894 


789? 


7396* 


7900* 




7901* 


7904 


7902 


7906* 


7912* 




7913* 


7316 


7874 


7 9 21* 


7923* 


7949 


7927 


7934* 


7938* 




7939* 


7942 


7940 


7944* 


7951* 




7952* 


7955 


346 


347 790 


2395 


2563* 


2569* 


2304 


2575 


2552* 


2583 


2590* 


2591 


2598* 


2570 


2571 2624* 


2625 


2626 2642* 


2660 


2674* 


2677 


26S1* 


2684 


2688* 


2691 


2C95* 


2699 


2709* 


2712 


2716* 


2643 


2726* 


2395 


7951* 


2980 


2989* 


2996 


3005* 


3007 


3018* 


2969 


2970 3028 


3059 


3071* 


3036 


?037 3137* 


2953* 


3514 


2963* 


3024 3029 


3151 


3159* 


3204 


.i207* 


3234 


3237* 


3143 


3 26 6* 


3149 


3 3 '■ 6 * 



'92 



867 



870 



907 



2308* 2456 



2460 



3 3 c ■ * 



HI3H PERFORMANCE(6250)EA3TAPE DIAGNOSTIC 06-263R01 M95A 1 3 PAGE 239 08:31:07 12/23/63 
SYS30L TABLE E CROSS PFFERENCE LI3 T 



TEST1. 


60 


0300 


30 A A 


TEST1. 


5A 


0000 


30BA 


TEST1. 


,6C 


0000 


318C 


TFST2 




oooc 


3644 


TEST2. 


01 


0000 


36A6 


TEST2. 


,02 


0000 


37AE 


TSST2. 


,03 


oooc 


38F6 


TEST2. 


,04 


0000 


3A3E 


TEST2. 


4A 


0000 


3A8U 


TEST3 




0000 


43BA 


TEST3. 


,4 


0000 


44F2 


TEST 1 * 




0000 


4A24 


TEST5 




0000 


506A 


TEST6 




0000 


55D8 


TEST7 




0000 


5856 


TEST8 




0000 


68 9 A 


TEST9 




0000 


6C78 


TESTA 




0000 


713C 


TESTB 




0000 


744C 


TESTC 




0000 


760C 


TESTC. 


1 


0000 


763E 


TESTC. 


,1A 


0000 


7652 


TESTC. 


,13 


0000 


76B8 


TESTD 




0000 


789A 


TESTE 




0000 


79CC 


TESTE. 


,00 


0000 


79D0 


TESTF 




0000 


7B02 


TESTIERR 


0000 


7DF0 


TESTINIT 


0000 


704A 


TS5TPAT 


0000 


8426 



TESTS 


0000 


21F4 


TF.000 


0000 


7B26 


TF.OOOA 


0000 


7B28 


TF.OOOB 


0000 


7E4A 


TF.001A 


0000 


7B3A 


TF.002 


0000 


7352 


TF.003 


0000 


7B6C 


TF.004 


0000 


7B86 


TF.OOBA 


0000 


7360 


TIK.1 


0000 


102E 


TI.I.CfD 


0000 


102A 


TIK.DEF 


0000 


1024 


TIMELI3T 


0000 


210C 


TISER 


0000 


162A 



TISO'JT 

TITLE 



0000 5CAE 
0000 2236 



3357 


3360* 


























3359 


3363* 


3426 
























3407 


3413* 


























2395 


3588* 


























3596 


3618* 


4005 
























3619 


3698* 


























3699 


3791* 


























3792 


3884* 


























3893 


3899* 


























2395 


4095* 


























4205* 


4333 


























2395 


4512* 


























2395 


5029* 


























2395 


5355* 


























2395 


5586* 


























2396 


6611* 


























2396 


6849* 


























2396 


7206* 


























2396 


7409* 


























2396 


7511* 


7517 


7533 


7540 


7549 


7556 


7583 


7596 


7605 


7612 


7626 


7637 


764« 


7671 


7680 


7687 


7695 






















7526* 


7647 


























7527 


7532* 


























7531 


7559 


7561* 
























2396 


7735* 


7762 


7774 


7801 


7811 


7821 


7829 














2396 


7867* 


7895 


7905 


7917 


7933 


7943 


7956 


7962 












7868* 


7961 


























2396 


7934* 


























8336 


8340* 


























2952 


3588 


4095 


4512 


5030 


5355 


5587 


6612 


6850 


7207 


7409 


7735 


7867 


3289* 


2746 


2956 


3021 


3040 


3163 


3273 


3358 


3446 


3497 


4115 


4218 


4251 


4293 


4339 


4398 


4545 


4624 


4638 


5051 


5054 


5057 


5060 


5078 


5081 


5122 


5124 


5126 


5128 


5165 


5205 


5227 


5261 


5263 


5266 


5268 


5379 


5512 


5681 


5807 


5813 


5923 


5995 


6140 


6528 


6876 


6880 


7057 


7072 


7211 


7524 


7739 


7871 


8915* 








924 


2395* 


























7994* 


3025 


























7990 


7995* 


8019 


8023 


3027 




















8005* 


8012 


























7998 


8000* 


























8008 


3013* 


























8014 


8016* 


























8021 


8024* 


























8010 


8012* 


























666 


568* 


























318 


667* 


























318 


565* 


























668 


670 


823 


2330* 


3000 


8002 


















1222* 


3138 


3218 


3294 


3319 


4228 


4261 


4285 


4357 


4388 


4725 


4757 


4797 


4342 


4882 


5292 


5458 


5431 


5737 


5755 


5828 


5859 


5379 


5909 


5960 


5973 


60 7 7 


M03 


5129 


5150 


6228 


6315 


6 I'-i* 


6378 


6402 


5417 


5478 


6643 


6679 


6913 


7C08 


7582 


7625 


7300 


7932 
























5658 


5685 


5716 


5795 


5 815 


5891 


5978* 


5982 


6021 


6055 


6177 








216 


2399* 



























HI3H P?a?:> = M»NC2(6250m3TAPE DIAGNOSTIC 06-263R0 1 Y.951 1 3 PAGE 210 08:34:07 12/23/83 
SYMBOL TK'ilZ t C?rS.; FPFEREffCE L"" 



TtfCLEAR 


00 r 


7BCA 


TOTAL 


0300 


1E5A 


TOT 2RR 


ODOO 


1E5C 


TCTHS3 


r ' 


ISA? 


T3.3 


0000 


2FD r 


TP.it 


0000 


3046 


TROO 


oooo 


7C0S 


XROOA 


0000 


7C06 


TRV.1 


oooo 


104A 


TR»f.C1D 


oooo 


1040 


THtf.DEF 


oooo 


103C 


THMODS 


30 


211 A 



TST.DRIV OOOO 2836 



TSTO.END 


OOOO 


280C 


TST1.01 


oooo 


2AEE 


TST 1.0 3 


oooo 


2BE8 


TST1.05A 


oooo 


2D62 


TST 1 . 1 


oooo 


2AFE 


TST1.2A 


oooo 


2C32 


TST1.2B 


oooo 


2G3C 


TST1.3A 


oooo 


2C8E 


TST1.33 


oooo 


2C9B 


TST1.40A 


oooo 


23,1?: 


TST 1.4 A 


oooo 


2DBE 


TST1.5A 


oooo 


2F5E 


TST1.2ND 


oooo 


32F2 


TST2.01A 


oooo 


3708 


TST2. 303 


oooo 


3B9E 


TST2.SS0 


oooo 


3C02 


TST3.1 


oooo 


43C? 


TST3.6 


oooo 


473A 


TS?3.S!J0 


oooo 


487A 


TST 3.. 1ST 


oooo 


4834 


TST3.5 


oooo 


4684 


TST4.02 


oooo 


4A5C 


TST4. 1 


oooo 


4C1A 


TST 4. 2 


oooo 


4A2C 


TSTU.SSD 


ooco 


4F9A 


TST5.1 


oooo 


5072 


TST5.5 


oooo 


5304 


TSTS.iND 


oooo 


5 3 no 


TST5. 1 


oooo 


55S0 


''ST 6 . 3 


oooo 


56BC 


TST6. ENO 


o !"■> f\ r> 


5"F0 


TST7.0ER 


oooo 


5910 


TST7. 1 


000^ 


585F 


TST7.1FR 


oooo 


5914 


TST7. 2 


oooo 


592A 


TST7.33 


oooo 


5 f. 3 4 


TST7.4 


oooo 


5A62 


TST7.4A 


oooo 


5AAA 



2532 

Be i 

682 
991 
3289 
3314 
2771 
8050 
674 
319 
319 
678 
7373 
2514 
7643 
26 44 
2955 
3019 
3139 
2957 
3049* 
3055* 
3077* 
3083* 
3167 
3169 
3272 
3160 
3627 
3885 
3597 
4103* 
4366 
4111 
4212 
4104 
4533* 
4516 
4515* 
4577 
5035* 
5044 
5036 
5362* 
5 37Q 
5363 
5610 
r. s 9 * 

5661* 
5632 
5726 
572 9 

57?C 



2748 
-> it 

937 

2256* 

3305* 

3323* 

30:15* 

3034* 

673* 

675* 

673* 

2331* 

2799 

7825 

2727 

2958* 

3025* 

3147* 

2961* 

3051 

3058 

3079 

3085 

3170* 

3173* 

3275* 

3151 

3644* 

3976* 

3620 

4466 

4376* 

4112 

4454* 

4323* 

4535 

4592* 

4934 

4620 

5311 

5255* 

50 37 

5550 

l: .4H0* 

53 6 4 

5645 

6529 

5687 

567 1* 

-.752* 

57*3 

5 h 1 * 



2806 
943 



8105 



?423 



2971 3038 3137 
987 2243* 
989 107B 1C£1 



3281 3454 
2244* 8777 



7529 



8056* 



3140 



3145 



4 103 



421 1 



4515 



5043 



5369 



5997 



7116 



7561 



T7H1 



2814* 3509 4000 4461 4939 5306 5545 6524 6811 71<>3 7375 74«1 

7958 

2728 2799* 



3258 

3267 3268 3364 3365 3442 3443 3509* 

3700 3793 3886 3977 3978 4000* 

4206 4207 4334 4457 4451* 



4658 4659 4703 4777 4818 4861 4852 4989* 



5306* 

5545* 
5660* 

"718 5739 57 r £ 
^760* 



5799 5818 5«32 5P.61 5881 5962 5°"?R 
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SYMBOL TABLE £ CROSS REFERENCE LIST 



TST7.5 


0000 


5B38 


TST7.5A 


0000 


5368 


TST7.5AB 


0000 


5B9E 


TST7.5B 


0000 


5BA2 


TST7.6 


0000 


5C6C 


TST7.5A 


0000 


5C88 


TST7.7 


0000 


5CC0 


TST7.70 


0000 


5CD4 


TST7.7B 


0000 


5E3A 


TST7.BHD 


0000 


62D4 


TST7.S 


0000 


5FC6 


TST7.S1 


0000 


606C 


TST7.S2 


0000 


60A6 


TST7.S3 


0000 


60F2 


TST7.SU 


0000 


6152 


TST7.35 


0000 


6190 


TST7.S6 


0000 


61CC 


TST7.S7 


0000 


62A4 


TST8.END 


0000 


6B08 


TST9.1 


0000 


6C84 


TST9.2A 


0000 


6D32 


TST9.2AA 


0000 


6D90 


TST9.3 


0000 


6D60 


TST9.4 


0000 


6DA6 


TST9.5 


0000 


6DEC 


TST9.51 


0000 


6E7E 


TST9.6 


0000 


6E9C 


TST9.61 


0000 


6ED0 


TST9.8 


0000 


6F0C 


TST9.8A 


0000 


6F26 


TST9.8A1 


0000 


6F30 


TST9.END 


0000 


7092 


TST9.HT 


0000 


6D4A 


TSTA.END 


0000 


736A 


TSTB.01 


0000 


74E2 


TSTB.1 


0000 


74C2 


TSTB.10 


0000 


7500 


TSTB.2 


0000 


7450 


TSTB.20 


0000 


7484 


TSTB.2A 


0000 


74AA 


TSTB.END 


0000 


7544 


TSTBRK 


0000 


1A8C 


TST3UF 


0000 


84F0 


TSTD.END 


0000 


79AC 


TSTDRV.O 


0000 


2894 


TSTD'J 


0000 


1B20 


TSTE.00 


0000 


79DE 


TSTE.SND 


0000 


7AEE 


TSTEND 


0000 


133C 


TSTERRA 


0000 


87CA 



5781 


5850* 










5853 


5863* 










5881* 


5893 


5911 








5869 


5333* 










5934 


5937 


5953* 








5953 


5966* 










5851 


5989* 










5994 


5996* 










6000 


6120* 










5592 


5622 


5633 


5673 


5764 


5782 


6521* 












599S 


6259* 










6275 


6307* 










6311 


6327* 










6341 


6352* 










6374 


6387* 










6397 


6408* 










6413 


6429* 










6493 


6499* 










6661 


6736 


6769 


6791 


6792 


6811 


6855* 


7167 


7177 








6905* 


6941 










6929 


6934* 










6909 


6919* 










6927 


6940 


6942* 








6897 


6965* 










7004* 


7031 










6980 


7016* 










7025 


7035* 










6982 


7053* 










7049 


7064* 










7067* 


7077 










6898 


6966 


6967 


7183* 






6912* 


6932 










7216 


7241 


7282 


7283 


7372* 




7452* 


7457 










7414 


7445* 










7454 


7461* 










7413* 


7486 










7426* 


7428 










7420 


7438* 










7415 


7447 


7448 


7481* 






443 


918 


1478 


1495 


1675* 


1909 


7947 


7995 


8047 


8080 


8099 


8601 


525 


535 


3047 


5770 


8940* 




7765 


7771 


7813 


7818 


7823* 




2818 


2826 


2832 


2834 


2840* 




949 


965 


1082 


1441 


1516 


1741 


7870 


7872* 










7907 


7914 


7945 


7953 


7958* 




930* 


2807 


3512 


4003 


4464 


4992 


7186 


7378 


7484 








8084 


8975* 











5852 



6001 



6121 



6122 6261 



6370 



6371 



K441 



3026 



2159 



5309 



3503 



5979 



7426 



7455 



7642 



7824 



7909 



5548 



5519 6527 



6814 



7108 



7114 



7120 
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SYMBOL TABLE £ CPO^S P^ESF.SJC 1 " LIST 



TSTE3S3 


0000 


8728 


TSTE^RC 


0000 


8808 


T S T '* D E 


0000 


33CB 


TSTMSi 


000 3 


1E9S 


TTU3 


0000 


83E7 


TUF.O'JT 


0000 


0E94 


UNARY 


0000 


1620 


tj v X, o • r> 


0000 


83E2 


v"3TJF 


0000 


8404 


WS'JF? 


0000 


64E3 


WEOF 


0000 


83D6 


WFP.OrEED 


0000 


83FC 


WHB'JF 


0000 


7CFA 


WR30F2 


0000 


7D14 


WRITE 


0000 


33CE 


WBODD3Y 


00 30 


-J3DE 


WRTSUF 


0000 


3900 


W3TEV5 


0000 


8 A 4 


W3TIJK 


0000 


8840 


HSTOHE 


0000 


84FC 


XIEPS1 


0000 


1D02 


XI£Hi2 


0000 


1D34 


ZEROS 


0000 


841-3 



2769 


6103 


8976* 
















8581 


S377* 


















8159 


3858* 


















91 3 


2260* 


2261 
















528 


£ 6 8 3 * 


















538* 


545 


















906 


1210* 


















= 229 


3881* 


















4906 
6890 


5531 
S250 


6886 
8261 


7565 
8938* 


3250 


8251 


8252 


8391 


8 9 3 3 * 




8135 


8869* 


8870 
















886 


3300 


8804 


8? 3 4 


8394* 












3175 
7790 


3282 
3250* 


4220 


4253 


4349 


4716 


4748 


4833 


5279 


5445 


6928 


8260* 


















8150 


3S61* 


8862 
















2505 


2508 


8234 


88 7 7* 


8878 












3240 
8399 


3335 

8999* 


4905 


4909 


4914 


5501 


5528 


6885 


7123 


7"=.64 


4114 
8556 


4529 
8558 


4546 
8981* 


50-1 


536H 


5593 


6625 


6857 


7736 


8547* 


2789 
5209 
2017 


3008 
5231 
2022* 


3122 

5428 


32^3 

5509 


3344 
5940 


3430 
62C8 


3486 
6463 


4310 
7092 


4448 
7274 


4957 
8941* 


2032 


2036* 


















2846 


8906* 



















6280 



7567 



4980 



6633 



7S73 



-OS? 



6908 



8390 



5112 



7576 



S3 Q 4 



516« 



R02 PATCH INFORMATION FOR DIAGNOSTIC 06-263M95A13 



LOCATION OLD 5£ALUE NEW VALUE NEW ACTION 



3A00 
21B0 

7BAA 
0A54 



246A 
2050 

4800 
70F0 



2469 LIS R6.9 

0D50 delete 'prelim' 

statement 
5800 L RO.STARADDR 
30F0 disable int 



This patch is to be incorporated in object labeled 06-263 R01.1 
on multi-media packages. 



